标题:[求助]软件退出时的提示怎么做?
只看楼主
bc2004
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-12-8
 问题点数:0 回复次数:3 
[求助]软件退出时的提示怎么做?
好多软件,当你关闭时,它回提醒你是否关闭,“是”则关闭,“否”则什么也不做。那用VB怎么实现这个功能呢?
当你点击窗体上的“小叉”时,触发的是什么事件啊?能否从这里做?
各位出个主意啊?
搜索更多相关主题的帖子: 软件 提示 窗体 主意 
2005-12-19 01:43
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 
Query_Unload事件

天津网站建设 http://www./
2005-12-19 09:07
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
得分:0 
在unload里
If MsgBox(ys, vbYesNo) = vbNo Then
Cancel = True
Else
Cancel = False
End If

2005-12-19 11:08
bc2004
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-12-8
得分:0 
Private Sub Form_Unload(Cancel As Integer)
msg1 = "D1.FileTitleµÄÎÄ×ÖÒѾ­¸Ä±ä¡£" + vbCrLf + "Ïë±£´æÎļþÂð£¿"
x = MsgBox(msg1, vbYesNoCancel)
If x = 6 Then
f3_Click
ElseIf x = 2 Then
Cancel = True
Exit Sub
End If
End Sub


搞定了!多谢给位了!!
2005-12-20 00:05



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-38784-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.874740 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved