在MDI窗体中打开子窗体后,如果点MDI窗体右上角的退出(X),MDI子窗体会自动退出,有什么办法避免这种情况?

Question

如题.

Answer 1

在Mdi窗体的unload事件中判断是否有子窗体打开，
有就不让关闭。

Answer 2

晕．．．看不懂．．．是我理解能力有问题还是你的逻辑有问题？父窗体退出了，子窗体当然就不存在了要是想关闭父窗体，而不关闭子窗体，你就别用　MDI　，就普通的窗体用　form2.show vbmodal ,form1这样好了

Answer 3

在父窗口的RequestUnload()事件中加入API：SetParent()把子窗口设为桌面的子窗口

Answer 4

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim strmsg As Integer
Dim me_title
me_title = Left(Me.Caption, 3)
If (Text1.Text = "" And Text2.Text = "") And me_title = "未命名" Then
    Unload Me
Else
    If MDIForm1.ActiveForm.Text2.Enabled = False Then
        Text1 = MDIForm1.ActiveForm.Text1.Text
    Else
        Text1 = MDIForm1.ActiveForm.Text2.Text
    End If
    Text3 = MDIForm1.ActiveForm.Text3.Text
    If StrComp(Text1, Text3) = 0 Then
        Unload Me
    Else
        strmsg = MsgBox("文件有改動﹐需要保存嗎?", vbYesNoCancel + vbExclamation, "記事本")
    End If
 Select Case strmsg
         Case vbYes:    saveaspro
                        Unload Me
         Case vbNo:     Unload Me
         Case vbCancel:  Cancel = True
  End Select
    
End If
End Sub

Answer 5

在QueryUnload事件中進行詢問就可以了。記事本就是這樣處理的