怎样用Esc 键关闭一个窗口

leaxin 2003-12-10 02:23:30
如题
...全文
354 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
lix110 2003-12-10
  • 打赏
  • 举报
回复
将窗体的keypreview属性设置为true
在窗体的keypress事件或者keydown事件中判断一下
SaySorry 2003-12-10
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
End
End Sub
按钮的cancel属性=true就行了
SoHo_Andy 2003-12-10
  • 打赏
  • 举报
回复
代码如下
设置,窗体的keyPreview设为true

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
End If
End Sub
davidlv 2003-12-10
  • 打赏
  • 举报
回复
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End
End Sub
射天狼 2003-12-10
  • 打赏
  • 举报
回复
可以将关闭按钮的CANCEL属性设置为TRUE.
或者将窗口的PREVIEW属性设置为TRUE,然后在窗口的KEYPRESS事件里检测是否按ESC键.
maculasoft 2003-12-10
  • 打赏
  • 举报
回复
在KeyPress事件中设置一下

7,787

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧