邢窑青瓷:vb编程时Esc键不能退出窗体
来源:百度文库 编辑:高考问答 时间:2024/05/13 10:21:06
窗体是无边框,以最大化显示的,上面有shockwaveflash控件(也是满屏)
代码中是:Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '如果按的键是Esc,
End '那么退出程序
End If
End Sub 为什么窗体不退出?那么该怎样设置呢?
代码中是:Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '如果按的键是Esc,
End '那么退出程序
End If
End Sub 为什么窗体不退出?那么该怎样设置呢?
把窗体的KeyPreview属性设为True就行了
还有一个就是当前的焦点不在窗体
比如光标在文本框内,也是不可以用了的
您可以在窗体上增加一个button
然后设置这个buttom的 cancel 属性 = true
这个按纽就是整个窗体的取消按纽了
在button_click 里面写 end 就ok了
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then End
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then End
End Sub
三种方法都可以的!
在按钮属性的cancle项改为Ture就可以了,ASC码的方法比较麻烦~~