求教设置让某个窗体处于激活状态时如何让他按ESC实现最小化

Question

求教设置让某个窗体处于激活状态时如何让他按ESC实现最小化我现在设置的是窗体里每个控件发现按下esc的时候调用最小化，好麻烦不实用啊

Answer 1

窗口有个 KeyPreview 属性， 设置为 True 这样所有的键盘输入都会有限发给窗口，之后再发给子控件将那个 KeyPreview 设置为true后，写Private Sub Form_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyEscape Then Me.WindowState = 1
End Sub就行了