E
eye0eye
Unregistered / Unconfirmed
GUEST, unregistred user!
Dim WithEvents hk As cHotKey '为什么要用withevents？Private Sub Form_Load() Set hk = New cHotKey 'hk = new 是什么？ With hk .frmHwnd = cmdExit.hWnd '指定接收热键消息的句柄 .AddHotKey 36 '指定热键Home .AddHotKey 35 '指定热键End .StartHotKeys Timer1 '启动热键捕捉过程 End WithEnd Sub