接着上节课，我们继续下节课。///添加快捷键///--------------------------------------------------------------------------------------------------------------------------------------------------------///需要VB API函数：///GetAsyncKeyState ←判断函数调用时指定虚拟键的状态///--------------------------------------------------------------------------------------------------------------------------------------------------------///相关API声明：///GetAsyncKeyState///↓///Private * Function GetAsyncKeyState Lib “user32“ (ByVal vkey As Long) As Integer///Private Function MyHotKey(vKeyCode) As Boolean///--------------------------------------------------------------------------------------------------------------------------------------------------------///需要的控件：Timer（interval不为空）///--------------------------------------------------------------------------------------------------------------------------------------------------------///代码：///Private * Function GetAsyncKeyState Lib “user32“ (ByVal vkey As Long) As Integer///Private Function MyHotKey(vKeyCode) As BooleanMyHotKey = (GetAsyncKeyState(vKeyCode) < 0)End Function‘///然后在循环中或Timer的Timer事件中检测:Private Sub Timer1_Timer()If MyHotKey(vbKeyA) And vbKeyControl Then ‘ctrl+AEnd ‘关闭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///第四节课结束，敬请期待第五节课！
