很多复杂的对话框中,不管当前焦点在哪个控件上,按ESC键就退出。请问除了在每个控件中做处理外,有没有简便的办法?
同上。谢谢。
[解决办法]
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
[解决办法]
楼上正解