VBÎÞËù²»ÄÜÖ®Áù£º¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø ת
×÷Õß: ØýÃû, ¡¡³ö´¦:ITר¼ÒÍø,¡¡ÔðÈαà¼: лåûåû,¡¡
2010-04-23 11:20
¡¡¡¡±¾ÎĽéÉÜVB¶Ô³ÌÐòÔËÐÐµÄ¼à¿Ø¡£
¡¡¡¡×ªÑۼ䣬±¾ÏµÁÐÎÄÕÂÒѾдµ½Á˵ÚÁù¸ö£¬½ñÌìдµãÊ²Ã´ÄØ?
¡¡¡¡»¹ÊǵÃд£¬¿´ËÆVB×ö²»µ½µÄÊÂÇ飬ÄÇô½ñÌìÆð¾ÍддVB¶Ô²Ù×÷ϵͳµÄ¿ØÖưɡ£
¡¡¡¡Ê×ÏÈ£¬ËµÒ»Ëµ£¬VB¶ÔÓÚ±»µ÷ÓúóµÄ³ÌÐòµÄ¼à¿Ø·½·¨¡£
¡¡¡¡ÔÐͺ¯Êý¼ò½é£º
¡¡¡¡WaitForSingleObject
¡¡¡¡Î»Ö㺠Kernel32.dll
¡¡¡¡VBÉùÃ÷£ºDeclare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
¡¡¡¡ËµÃ÷£º
¡¡¡¡²ÎÊýhHandleÊÇÒ»¸öʼþµÄ¾ä±ú£¬µÚ¶þ¸ö²ÎÊýdwMillisecondsÊÇʱ¼ä¼ä¸ô¡£Èç¹ûʼþÊÇÓÐÐźÅ״̬·µ»ØWAIT_OBJECT_0£¬Èç¹ûʱ¼ä³¬¹ýdwMillisecondsÖµµ«Ê±¼äʼþ»¹ÊÇÎÞÐźÅ״̬Ôò·µ»ØWAIT_TIMEOUT¡£
¡¡¡¡hHandle¿ÉÒÔÊÇÏÂÁжÔÏóµÄ¾ä±ú£º
¡¡
¡¡Change notification
¡¡¡¡Console input
¡¡¡¡Event
¡¡¡¡Job
¡¡¡¡Memory resource notification
¡¡¡¡Mutex
¡¡¡¡Process
¡¡¡¡Semaphore
¡¡¡¡Thread
¡¡¡¡Waitable timer
¡¡¡¡WaitForSingleObjectº¯ÊýÓÃÀ´¼ì²âhHandleʼþµÄÐźÅ״̬£¬µ±º¯ÊýµÄÖ´ÐÐʱ¼ä³¬¹ýdwMilliseconds¾Í·µ»Ø£¬µ«Èç¹û²ÎÊýdwMillisecondsΪINFINITEʱº¯Êý½«Ö±µ½ÏàӦʱ¼äʼþ±ä³ÉÓÐÐźÅ״̬²Å·µ»Ø£¬·ñÔò¾ÍÒ»Ö±µÈ´ýÏÂÈ¥£¬Ö±µ½WaitForSingleObjectÓзµ»ØÖµ²ÅÖ´ÐкóÃæµÄ´úÂë¡£´ËÍ⣬µ±dwMillisecondsÉèÖÃÎªÌØÊâÖµ0ʱ£¬²âÊÔhHandleºËÐĶÔÏóÊÇ·ñ±»¼¤·¢£¬º¯ÊýÁ¢¼´·µ»Ø¡£
¡¡¡¡·µ»ØÖµ£º
¡¡¡¡WAIT_ABANDONED 0x00000080£ºµ±hHandleΪmutexʱ£¬Èç¹ûÓµÓÐmutexµÄÏß³ÌÔÚ½áÊøÊ±Ã»ÓÐÊͷźËÐĶÔÏó»áÒý·¢´Ë·µ»ØÖµ¡£
¡¡¡¡WAIT_OBJECT_0 0x00000000 £ººËÐĶÔÏóÒѱ»¼¤»î
¡¡¡¡WAIT_TIMEOUT 0x00000102£ºµÈ´ý³¬Ê±
¡¡¡¡WAIT_FAILED 0xFFFFFFFF £º³öÏÖ´íÎ󣬿Éͨ¹ýGetLastErrorµÃµ½´íÎó´úÂë¡£
¡¡¡¡CloseHandle
¡¡¡¡Î»Ö㺠Kernel32.dll
¡¡¡¡VBÉùÃ÷£ºDeclare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
¡¡¡¡ËµÃ÷ £º
¡¡¡¡¹Ø±ÕÒ»¸öÄں˶ÔÏ󡣯äÖаüÀ¨Îļþ¡¢ÎļþÓ³Éä¡¢½ø³Ì¡¢Ï̡߳¢°²È«ºÍͬ²½¶ÔÏóµÈ¡£Éæ¼°Îļþ´¦Àíʱ£¬Õâ¸öº¯Êýͨ³£ÓëvbµÄcloseÃüÁîÏàËÆ¡£Ó¦¾¡¿ÉÄܵÄʹÓÃclose£¬ÒòΪËüÖ§³ÖvbµÄ²î´í¿ØÖÆ¡£×¢ÒâÕâ¸öº¯ÊýʹÓõÄÎļþ¾ä±úÓëvbµÄÎļþ±àºÅÊÇÍêÈ«²»Í¬µÄ
¡¡¡¡·µ»ØÖµ£º
¡¡¡¡Long£¬·ÇÁã±íʾ³É¹¦£¬Áã±íʾʧ°Ü¡£»áÉèÖÃGetLastError
¡¡¡
Ïà¹ØÎĵµ£º
VCº¯ÊýÊÇ:extern "C" int __declspec(dllexport)PassPortRead(char *InPutData,char OuPutData[255]);
VBÉùÃ÷ÊÇ£ºPrivate Declare Function PassPortRead Lib "PPRead.dll" (ByVal InPutData As String, ByVal OutPutData As String) As Integer
Éú³ÉµÄÎļþÄÜÕý³£ÔËÐÐ,²¢ÇÒÄÜÉú³ÉÏàÓ¦Êý¾Ý,µ«ÊÇÔÚµ÷ÊÔʱÌáʾ"DLLµ÷ÓÃÔ¼¶¨´í ......
ͨ¹ýµ÷ÓÃCreateDataSetfromXmlÈ¡µÃXMLÊý¾Ý
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""
clsPublic ......
ת×Ô£ºhttp://www.52arm.com/Article_Show.asp?ArticleID=186
×÷Õߣºweidian ---±¾Õ¾Ô´´ µã»÷Êý£º4721 ·¢±íʱ¼ä£º2008-5-7 ±à¼£ºsanzang
Winsock¿Ø¼þ½¨Á¢ÔÚTCP¡¢UDPÐÒéµÄ»ù´¡ÉÏ£¬Íê³ÉÓëÔ¶³Ì¼ÆËã»úµÄ ......
ѧÉúʱ´úרҵÊÇ»úе£¬µ«ÊDzμӹ¤×÷ºó£¬»úÔµÇɺϴÓÊÂÁËÓëÈí¼þÏà¹ØµÄ¹¤×÷£¬¾ÍÊǶԴóÐ͹¤³ÌÈí¼þÈí¼þ×öһЩ¶þ´Î¿ª·¢£¬ÊÕ»ñ¹ý¿ìÀÖ£¬ÊÕ»ñ¹ýÐÁËᣬÔÚÒ»´ÎÓÖÒ»´ÎµÄµÃÓëʧÖУ¬ÏëÕÒÒ»¸öµØ·½£¬ÕÒһЩÈË¿ÉÒÔÂýÂýÓëÖ®·ÖÏí£¬ÓëÖ®½»Á÷£¬²¢ÆÚµÃµ½°ïÖú»òÌṩ°ïÖú£¡Ò²ÐíÄãÊÇÎÞÒâ¼û·¹ý£¬Éõ»òƯ¹ý£¬µ«ÄãµÄעĿÊÇÎÒǰ½øµÄ¶¯Á¦£¬ÓÐÐÒפ×ãÒ²»áÈÃÎÒ ......
Ôںܶà VB µÄ×ÊÁÏ¿âÊé¼®ÖУ¬¶¼»áºÜÍêÕûµÄÌáµ½£ºÈçºÎÓÉÆäËûÖÖÀàµÄÎļþÖн«×ÊÁϵ¼Èë×ÊÁϿ⣬µ«ÊÇÈ´ºÜÉÙÓÐÊéÌáµ½£ºÈçºÎ½«×ÊÁÏ¿âÖеÄ×ÊÁÏ£¬µ¼³öµ½¸÷ÖÖ²»Í¬µÄÎļþÀàÐ͵ÄÎļþÖУ¬Á¬ VB µÄ Help ÖÐÒ²ÊÇÕâÑù£¡
»òÐíÊÇ´ó¼Ò¶¼ÈÏΪ×ÊÁÏ¿âÖ÷ÌâµÄÖØµãÊÇÔÚ×ÊÁϿⱾÉí°É£¡
µ«ÊÇ£¬ÔÚʵ¼ÊµÄ×ÊÁÏ¿â³ÌÐòÔËÓÃÖУ¬È´³£³£ÐèÒª½«×ÊÁϿ⵼³öµ½¸÷ÖÖ ......