接着上节课，我们继续下节课。
添加快捷键
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要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
第四节课结束，敬请期待第五节课！