标题:[求助] 要求在关闭子窗口之前禁止关闭父窗口,怎样才能做到?
只看楼主
iamyc
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-2-21
 问题点数:0 回复次数:11 
[求助] 要求在关闭子窗口之前禁止关闭父窗口,怎样才能做到?
我想实现在关闭子窗口之前不让关闭父窗口的功能,要怎样做呀?
搜索更多相关主题的帖子: 父窗口 子窗口 
2006-02-21 16:53
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 

模式窗体
Form1.Show vbModel


天津网站建设 http://www./
2006-02-21 21:39
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
得分:0 
griefforyou我试过了不行呀。加上vbModel有什么作用。我关闭先后次序不同也一样。先关那个那个就先unload

IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-02-22 17:31
wsn
Rank: 2
等 级:新手上路
威 望:5
帖 子:321
专家分:0
注 册:2006-2-9
得分:0 
不可能哦,用vbmodel显示出来的窗口还可能是被后关闭的吗

已婚男人!没事请勿打扰·老婆格言:①不准對她耍酷 ②不准讓她吃醋 ③吵架我要讓步 ④揍我我要挺住⊙⊙
2006-02-22 20:03
Ver
Rank: 1
等 级:新手上路
帖 子:173
专家分:0
注 册:2006-2-8
得分:0 

设一个变量Count
当启动一个子窗口,Count自动加1
在MdiFrom的Unload事件中,检查Count是否大于0,如果大于0,Cnacel=true
否则Cancel=false
Dim i
Private Sub df_Click()
Dim m As New Form1
m.Show
i = i + 1
End Sub

Private Sub MDIForm_Load()
i = 0
Unload Form1
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If i > 0 Then
Cancel = True
Else
Cancel = False
End If
End Sub
应该可以


我用古老的咒语重温,吟唱灵魂序曲寻根 面对魔界的邪吻,不被污染的转身,维持纯白的象徵然后还原为人
2006-02-23 09:40
Ver
Rank: 1
等 级:新手上路
帖 子:173
专家分:0
注 册:2006-2-8
得分:0 
Count变量应声明为Public,并且在子窗体的Unload事件中要写入:
Count=Count-1
不然会不能退出程序。

我用古老的咒语重温,吟唱灵魂序曲寻根 面对魔界的邪吻,不被污染的转身,维持纯白的象徵然后还原为人
2006-02-23 10:10
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
得分:0 
可以这个方法。高手

IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-02-23 10:27
Ver
Rank: 1
等 级:新手上路
帖 子:173
专家分:0
注 册:2006-2-8
得分:0 
bu suan gao shou

我用古老的咒语重温,吟唱灵魂序曲寻根 面对魔界的邪吻,不被污染的转身,维持纯白的象徵然后还原为人
2006-02-23 13:01
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
得分:0 
还有个办法:用ActiveForm判断
If ActiveForm Is Nothing Then
没有子窗体
Else
有子窗体
End If

还有,griefforyou说的有点问题,在父窗体中加载子窗体是不能用模式窗体的
如果写vbmodal会报错

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-02-23 13:28
Ver
Rank: 1
等 级:新手上路
帖 子:173
专家分:0
注 册:2006-2-8
得分:0 
oo

我用古老的咒语重温,吟唱灵魂序曲寻根 面对魔界的邪吻,不被污染的转身,维持纯白的象徵然后还原为人
2006-02-23 19:10



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




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

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