[求助] 要求在关闭子窗口之前禁止关闭父窗口,怎样才能做到?

我想实现在关闭子窗口之前不让关闭父窗口的功能,要怎样做呀?

模式窗体
Form1.Show vbModel

griefforyou我试过了不行呀。加上vbModel有什么作用。我关闭先后次序不同也一样。先关那个那个就先unload

不可能哦,用vbmodel显示出来的窗口还可能是被后关闭的吗

设一个变量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
应该可以

Count变量应声明为Public，并且在子窗体的Unload事件中要写入：
Count=Count-1
不然会不能退出程序。

可以这个方法。高手

bu suan gao shou

还有个办法:用ActiveForm判断
If ActiveForm Is Nothing Then
没有子窗体
Else
有子窗体
End If

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

oo