如何给窗口右上角的关闭按钮写点脚本??

happy_gambler 2001-10-26 03:21:01

比如我要在用关闭按钮关窗口时弹出警告信息

...全文

165 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

cuiyxy 2001-10-26

打赏
举报

在VB中，缺省采用传值调用
如不想关闭窗口，只用在
Form_QueryUnload中设形参cancel=1即可

happy_gambler 2001-10-26

打赏
举报

哈,吴文智,你不也是.这可是我的问题,来回答啊

happy_gambler 2001-10-26

打赏
举报

若我点了关闭按钮后不想关窗口怎么办呢?

cloud_soft 2001-10-26

打赏
举报

QueryUnload......hehe

foolishtiger 2001-10-26

打赏
举报

　happy_gambler(赌徒)　怎么到处up啊,又来蹭分来了??^_^呵呵

foolishtiger 2001-10-26

打赏
举报

'要试用此例请在窗体中粘贴如下代码
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
MsgBox "用户从窗体上的“控件”菜单中选择“关闭”指令。", vbInformation
Case vbFormCode
MsgBox "Unload 语句被代码调用。", vbInformation
Case vbAppTaskManager
MsgBox "Microsoft Windows 任务管理器正在关闭应用程序。", vbInformation
End Select
End Sub
如果不想窗体被关闭就Cancel将设为大于0的数就行了

happy_gambler 2001-10-26