怎样用Esc 键关闭一个窗口

Question

如题

Answer 1

可以将关闭按钮的CANCEL属性设置为TRUE.
或者将窗口的PREVIEW属性设置为TRUE,然后在窗口的KEYPRESS事件里检测是否按ESC键.

Answer 2

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 Then End
End Sub

Answer 3

代码如下
设置，窗体的keyPreview设为truePrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        Unload Me
    End If
End Sub

Answer 4

Private Sub Command1_Click()
End
End Sub
按钮的cancel属性=true就行了

Answer 5

将窗体的keypreview属性设置为true
在窗体的keypress事件或者keydown事件中判断一下