[讨论]对程序窗口右上角的关闭按钮如何控制? - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [讨论]对程序窗口右上角的关闭按钮如何控制?

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2641 人关注过本帖

标题：[讨论]对程序窗口右上角的关闭按钮如何控制?

只看楼主加入收藏

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

楼主

问题点数：0 回复次数：7

[讨论]对程序窗口右上角的关闭按钮如何控制?

我的一个打印程序,用户可能会单击右上角的关闭按钮或左上角的控制菜单框的关闭(即Alt+F4)来关闭程序,
可问题是该程序仍然在内存运行中,按Ctrl+Alt+Del,调出任务管理器即可看到.
非得通过"退出"按钮"的
Unload form
命令才能完全退出.
该如何解决.

搜索更多相关主题的帖子: 按钮　右上角　窗口　

2007-10-04 14:48

simpson

等　级：论坛游民
威　望：7
帖　子：863
专家分：17
注　册：2006-11-16

第 2 楼

得分:0

Form_QueryUnload中Unload 一下好了

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]

2007-10-04 14:50

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

第 3 楼

得分:0

如何让窗体的Controlbox属性设为False,则没有最大化和最小化按钮.也不方便.
不知他们怎么做的?

2007-10-04 14:51

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 4 楼

得分:0

可以自行制作标题栏..

我的msn: myfend@

2007-10-04 17:34

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

第 5 楼

得分:0

太麻烦了吧.况且我也不会做.

2007-10-04 20:38

lrd1986

等　级：新手上路
帖　子：111
专家分：0
注　册：2007-9-11

第 6 楼

得分:0

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的退出吗?", vbQuestion + vbYesNo) = vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub

走自己的路，让人说去

2007-10-04 21:01

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 7 楼

得分:0

以下是引用lrd1986在2007-10-4 21:01:47的发言：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的退出吗?", vbQuestion + vbYesNo) = vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub

然后别人就以为VB里面Integer和Boolean没区别了。

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的退出吗?", vbQuestion + vbYesNo) = vbYes Then Cancel = 0
End Sub

至于Cancel=1则无需设置。

2007-10-04 21:03

qwaszwc

等　级：新手上路
帖　子：74
专家分：0
注　册：2007-9-29

第 8 楼

得分:0

我引用了上面的代码,可窗口还是没有关闭.又在中间加入了下面的代码:
Dim intctr As Integer
For intctr = (Forms.Count - 1) To 0 Step -1
Unload Forms(intctr)
Next intctr
卸载全部窗口.
问题解决.

2007-10-04 23:04

快速回复：[讨论]对程序窗口右上角的关闭按钮如何控制?