给你个方法吧,源代码就得把窗体设计文件和程序都给你,不想弄了
窗体上放一个按钮,将Cancel属性设置为True
在Load事件中将按钮放到可见区域之外,比如 Left=-10000, Top=-10000
在按钮的Click事件中,加入 Unload Me语句
这样在打开窗体之后按Esc键就关闭了
下面,的就可以了!
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then End '27就是Esc
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub