С°×ÎÊÌ⣺ÈçºÎÓÃVCÖÆ×÷VB¿ÉÒÔµ÷ÓõÄDLL
ÊÇÕâÑùµÄ£¬ÎÒÔÚÍøÉÏ·¢ÏÖÁËÒ»¸öC++×öµÄº¯Êý
µ«ÊDZ¾È˶ÔC++ÊÇÒ»Çϲ»Í¨£¬ÍêÈ«²»¶®£¬ËùÒÔ×îºÃÄܰÑhºÍcppÎļþµÄÈ«ÎÄ·¢À´£¬¸Ð¼¤²»¾¡ÁË
¸½ÉÏ´úÂ룺
http://blog.csdn.net/weilaixi/archive/2009/01/22/3849814.aspx
¾ÍÊÇ¿ÉÒÔÓÃDeclareÔÚVBÖе÷ÓõÄ
PS£ºÕâ¸ö½ûÓÃÍø¿¨µÄÄÜÓÃÓÚ½ûÓÃÉù¿¨Ã´£¿Ó¦¸ÃÊÇͨÓõİÉ
VBÓ¦¸ÃÒ²Äܵ÷ÓÃÕâЩAPI°É
Äã²ÎÕÕÄǸöÀàдһд²»¾ÍÊÇÁË.
ÎÒÕæ²»´ó¿´µÃ¶®ÄǸöVC++µÄÄÚÈÝ£¬ËùÒÔÒª¸ÄÒ²ÓеãÄÑ
°Ù¶ÈÁ˼¸¸öº¯Êý£¬Ã»·¢ÏÖÈçºÎÓÃVBÉùÃ÷£¬¶¼ÊÇC++µÄ
ûÈËÖªµÀô?¿´À´µÃ×Ô¼º½â¾öÁË¡£¡£¡£
Public Declare Function SetupDiGetClassDevs Lib "setupapi" Alias "SetupDiGetClassDevsA" (ClassGuid As GUID, ByVal Enumerator As Long, ByVal hWndParent As Long, ByVal Flags As Long) As Long
PnPhandle& = SetupDiGetClassDevs(HidGuid, 0, 0, &H12)
¿ÉÒԲο¼Õâ¸ö
VC×÷µÄwin32µÄDLLÓ¦¸ÃÊÇ¿ÉÒÔ±»VBµ÷Óõģ¬VBµ÷ÓÃAPI²»Ò²Êǵ÷ÓÃuser32.dllÖ®ÀàµÄDLLÀïµÄº¯ÊýÂð£¿
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......