vb绋嬪簭涓儹閿殑璁剧疆
鍙戝竷: 2008-7-15 14:46 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 33娆
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2)<0 Then ...
If GetAsyncKeyState(vbKeyF2)<0 and GetAsyncKeyState(vbKeyF3)<0 Then ...
End Sub




发表于 2009-1-5 19:48
| 











