最近在把自己之前做的小程序微调下,使细节上更符合我们的习惯,如我们会经常按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