vb×öµÄexeÊó±êÏûʧÊÇÕ¦»ØÊÂ
vb6.0Éú³ÉµÄ vb.exe£¬ÔÚÒ»°ã´°¿ÚÖвÙ×÷ûÎÊÌ⣬µ«ÊÇÔÚÓÎÏ·³ÌÐòÔËÐÐʱ£¬Êó±êÒÆ¶¯µ½ vb.exeµÄ´°ÌåformÉÏʱ¾Í¿´²»¼ûÊó±êÖ¸ÕëÁË£¬ÒƳöform¾ÍÓÖÏÔʾÊó±êÖ¸Õ룬ÕâÊÇÔõô»ØÊ£¿vb.exeÀïÃæÓÐ×¢²áÈȼü£¬Æô¶¯¼ÆÊ±Æ÷£¬·¢ËÍposetmessageµÈ´úÂ롣ûÓйØÓÚ¿ØÖÆÊó±êµÄ´úÂë
Æô¶¯¼ÆÊ±Æ÷£¬·¢ËÍposetmessage
¼ÓÉÏdoeventsÓï¾ä
¼ÓÁ˺öàdoevents»¹ÊDz»ÐС£Õâ¸öÓÎÏ·½ÐÒÐÌì½£ÓëÍÀÁúµ¶¡£²»¿ªÕâÓÎÏ·µÄ»°ÎÒµÄvb.exeÊÇÕý³£µÄ
¿´¿´Õâ¸ö¶ÔÄãÓÐÓò»
VB code:
Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
'¡¾²Ù×÷ϵͳ¡¿
'Win9X: Yes
'WinNT: Yes
'¡¾ËµÃ÷¡¿
' ¿ØÖÆÊó±êÖ¸ÕëµÄ¿ÉÊÓÐÔ
'¡¾·µ»ØÖµ¡¿
' Long£¬ÏÔʾ¼ÆÊý£¨²Î¿¼×¢½â£©
'¡¾ÆäËü¡¿
' windowsά³Ö×ÅÒ»¸öÄÚ²¿ÏÔʾ¼ÆÊý£»ÌÈÈôbShowΪTRUE£¬ÄÇôÿµ÷ÓÃÒ»´ÎÕâ¸öº¯Êý£¬¼ÆÊý¾Í»áµÝÔö1£»·´Ö®£¬ÈçbShowΪFALSE£¬Ôò¼ÆÊýµÝ¼õ1¡£Ö»ÓÐÔÚÕâ¸ö¼ÆÊý´óÓÚ»òµÈÓÚ0µÄÇé¿öÏ£¬Ö¸Õë²Å»áÏÔʾ³öÀ´
'¡¾²ÎÊý±í¡¿
' bShow ---------- Long£¬TRUE£¨·ÇÁ㣩ÏÔʾָÕ룬FALSEÒþ²Ø
Private Sub Command1_Click()
Dim intP As Integer
If Command1.Caption = "Òþ²ØÊó±ê" Then
intP = ShowCursor(False) 'Òþ²ØÊó±ê
Command1.Caption = "ÏÔʾÊó±ê"
Else
intP = ShowCursor(True) 'ÏÔʾÊó±ê
Command1.Caption = "Òþ²ØÊó±ê"
End If
End Sub
ÕâÊÇÓÎÏ·³ÌÐòÔÚ×÷¹Ö¡£µ±ÆäδµÃµ½½¹µãʱHIDEÊó±ê¡£
ÓпÉÄÜÊÇÓÎÏ·ÓëÄã³Ìʽ³åÍ»¡£
ShowCursor¡¡¡¡º¯Êý¹¦ÄÜ£º¸Ãº¯ÊýÏÔʾ»ò
Ïà¹ØÎÊ´ð£º
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll
³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
ÔÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨
´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß·
......
ÎÒÓÃC#дÁËÒ»¸öCOM¡£
ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£
ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿
VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£
лл¸ßÊÖÖ¸µã¡£
......