
程序代码:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If 关闭父窗体 = False Then
If Len(Me.RichTextBox1.Text) <> "" Then
Dim choice As Integer
choice = MsgBox("是否保存" & Me.Caption & "", 51, Me.Caption)
Select Case choice
Case 6 '保存
= "保存"
= 2
If Len() <> "" Then
Me.RichTextBox1.SaveFile () '这个括号内应该是 不是 CommonDialog1.FileName
Unload SearchingAndExchange '不知道这个 SearchingAndExchange 是否是一个窗体
End If
choice = 0
Case 7 '关闭
Unload SearchingAndExchange '不知道这个 SearchingAndExchange 是否是一个窗体
Unload Me
Case 2 '取消
'以下代码看不到,不知道是什么,无法修改
在当前窗体打开时,MDIFrm窗体也应该是打开的,最起码是隐藏的,不是关闭的。