-------------------------------------------------------------------------------------------------------------------------------------------------------- 添加快捷键 -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要VB API函数： GetAsyncKeyState ←判断函数调用时指定虚拟键的状态 -------------------------------------------------------------------------------------------------------------------------------------------------------- 相关API声明： GetAsyncKeyState ↓ Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer Private Function MyHotKey(vKeyCode) As Boolean -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要的控件：Timer（interval不为空） -------------------------------------------------------------------------------------------------------------------------------------------------------- 代码： 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事件中检测: Private Sub Timer1_Timer() If MyHotKey(vbKeyA) And vbKeyControl Then ''''ctrl+A End ''''关闭 End If ''''其中vbkeyA是键盘″A″的常数，其他键可按F1查得。 End Sub -------------------------------------------------------------------------------------------------------------------------------------------------------- 其它方法： 比如按下"ctrl+A"就退出! ''''可以设置Form的KeyPreview属性为True，然后在Form_KeyDown事件中添加代码： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = Asc("A") And Shift = vbCtrlMask Then unload me ''''如果ctrl+A键被按下就退出 End Sub -------------------------------------------------------------------------------------------------------------------------------------------------------- 点击给我留言 --------------------------------------------------------------------------------------------------------------------------------------------------------
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
