方法2:又看了看,貌似是对文本框
用键盘钩子或者HOTKEY来实现对TEXT1.onfocus
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function
然后在循环中或Timer的Timer事件中检测:
If myHotKey(vbkeyA) then ….
[[it] 本帖最后由 我是菜鸟哦 于 2008-9-27 16:31 编辑 [/it]]