在点击 X 后不关闭窗体,而是隐藏,怎么写??

studyharding 2003-10-29 07:04:26
rt
...全文
73 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
studyharding 2003-10-30
  • 打赏
  • 举报
回复
都对
octopus666666 2003-10-29
  • 打赏
  • 举报
回复
一看你就是想看什么非常类的东东:)
我是把自己做的东东加了个快键,你可以试试
当时我的快键是Z,有情况CTRL+Z一下搞定
handsomge 2003-10-29
  • 打赏
  • 举报
回复
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

if UnloadMode = vbFormControlMenu then '这里说明是用户点了关闭按钮而不是调 了Unload Me
Me.Hide
Cancel = True
end if
End Sub
benjamin8064 2003-10-29
  • 打赏
  • 举报
回复
Private Sub Form_Unload(Cancel As Integer)
Me.Hide
Cancel = True
End Sub
twobug 2003-10-29
  • 打赏
  • 举报
回复
UnloadMode 在MSDN中有介绍有一个值代表是 (点击 X 后关闭窗体)自己查


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Me.Hide
Cancel = True
End Sub
aha99 2003-10-29
  • 打赏
  • 举报
回复
Private Sub Form_Unload(Cancel As Integer)
Me.Hide
Cancel = True
End Sub
也可以
qjqmoney 2003-10-29
  • 打赏
  • 举报
回复
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Me.Hide
Cancel = True
End Sub
studyharding 2003-10-29
  • 打赏
  • 举报
回复
在线。。。
UP

7,763

社区成员

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

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