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

¸÷·¸ßÊÖÔÚVBÖÐÔõÑùʼÖÕ¼àÊÓ¼üÅÌ»òÕß¼àÊÓijһ¸ö¼üÒ²ÐÐ

VB³ÌÐòÒѾ­ÔÚÔËÐУ¬µ«Ã»Óб»¼¤»îʱ£¬ÔÚVBÖÐÔõÑùʼÖÕ¼àÊÓ¼üÅÌ»òÕß¼àÊÓijһ¸ö¼ü¡¾±ÈÈçS¼ü¡¿Ò²ÐУ¬×îºÃÊÇ¿ÉÓÃÀý×Ó
ËÆºõÊÇÓù³×Ó£¬¿ÉϧÊÖ±ßûÓдúÂë¡£UP!

http://www.codeproject.com/KB/system/kbdlistenerpackage.aspx
hope it's useful for you

ÊÇVB6»¹ÊÇVB.net£¿

Õ⹦ÄÜÓÃÈ«¾Ö¼üÅ̹³×Ó¼´¿ÉʵÏÖ¡£

VB6µÄ²»ÖªµÀÄܲ»ÄÜÓá£
http://blog.csdn.net/subMain/archive/2010/02/19/5312041.aspx

ÄãµÄÄǸö´úÂ룬ÎÒ¿´ÁËһϣ¬µ«ÊÇ¿´²»¶®£¬ÄÜ·ñÉÔ΢½âÊÍһϣ¬VB6תµ½vb.netÏÂÃæÓ¦¸Ã¿ÉÒԵ쬵«ÊÇÐèÒªÎÒ¿´¶®ÄãµÄÄǶÎÀý×Ó

ʹÓÃAPI
GetKeyboardState ÔÚÏß³ÌÀï¼àÊÓÄãÐèÒª¼àÊÓ¼üÅ̵Ä״̬

ͨ¹ýGetKeyboardState,GetKeyState¿ÉÒÔ¼àÊÓ¼üÅ̵Ä״̬£¬Èç¹ûÐèÒªÆÁ±ÎÌØ¶¨°´Å¥Ïà¹Ø²Ù×÷µÄ»°£¬¾ÍÐèÒª¿¼ÂÇÈ«¾Ö¼üÅ̹³×ÓµÄ×¢Èë

¼ÓÔØÒ»ÏÂWinioÇý¶¯ÊÔÊÔ£¬ÏÈÇå¿Õ¼üÅ̵ÄÊäÈ뻺³åÇø£¬¹Ø±Õ¼üÅÌÖжϣ¬Íù&H60¶Ë¿ÚÉèÖÃ71״̬λ¡£ÔÙ¶ÁÈ¡&H64£¨¿ØÖƶ˿ڣ©ºÍ&H60£¨Êý¾Ý¶Ë¿Ú£©Êý¾Ý£¬ÅжÏÊÇ·ñΪÄã˵ÏëÒª¼à¿ØµÄ¼ü¡£×îºó´ò¿ªÖжϣ¬Ð´¼üÅÌ»º³åÇøµÄ»·»ØÖ¸Áî¡£Èç¹ûÄãÏëÆÁ±ÎÕâ¸ö¼üµÄ»î¾Í²»Ð´¼üÅÌ»º³åÇøµÄ»·»ØÖ¸Áî¡£µ±È»ÄãÒ²¿ÉÒÔ°ÑÕâ¸ö¼ü¸ÄÁË¡£

¿ÉÒÔÀûÓá°GetAsyncKeyState¡±º¯Êý

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

Dim i As Integer

i = GetAsyncKeyState(32) '32ÊǿոñµÄASCII
If i = 0 Then
'¿Õ¸ñ¼üûÓб»°´ÏÂ
ElseIf bb < 0 Then
'¿Õ¸ñ¼üÒѾ­±»°´ÏÂ
End If



È«¾Ö¼üÅ̹³×Ó¿ÉÒÔ½â¾öÕâ¸öÎÊÌâ¡£

ÒýÓÃ
¿ÉÒÔÀûÓá°GetAsyncKeyStat


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ