Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vbÖÐsqlÓï¾äÒýºÅÎÊÌâ

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......

VBµ÷ÓÃUsb7kC.dll

¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll

³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
Ô­ÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨

´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß· ......

ÇëÎÊVBµ÷COMµÄÎÊÌâ

ÎÒÓÃC#дÁËÒ»¸öCOM¡£

ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£

ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿


VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£

лл¸ßÊÖÖ¸µã¡£

......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ