在CAD中按“ESC”按钮退出程序

最近在把自己之前做的小程序微调下，使细节上更符合我们的习惯，如我们会经常按ESC键来退出程序。而我那小程序都是有界面的，而且是在DLL中，理所当然的问题就变成：在VB中按ESC退出窗体。

    方法就是1.启动窗体有效检验 在窗体load事件中加入 KeyPreview = True

                  2.当检查到esc键按下就触发退出窗体，所以是在窗体的 KeyPress事件中加入：

                     If KeyAscii = 27 Then Unload Me

代码如下：

Private Sub Form_Load()
    '启动窗体有效检验
    KeyPreview = True

end sub

Private Sub Form_KeyPress(KeyAscii As Integer)
'按ESC取消
If KeyAscii = 27 Then Unload Me
End Sub