关于MDI窗口的问题！？

[sunrain_leo]

当关闭MDI窗口时（即点击窗口右上角的关闭按钮时），弹出对话框:
If MsgBox("警告：系统退出后接收仪将停止运行！" + vbCrLf + "是否确定退出系统？", vbOKCancel + vbInformation, "系统提示") = vbOK Then
End
End If

点击ＯＫ退出，点击ＣＡＮＣＥＬ取消操作，窗口不退出！

[accp258]

private sub form_queryunload(cancel as integer,unloadform as integer)
If MsgBox("警告：系统退出后接收仪将停止运行！" + vbCrLf + "是否确定退出系统？", vbOKCancel + vbInformation, "系统提示") = vbOK Then
end
else

cancel=true
end if

end sub

[zxwitsme]

up
如果cancel=-1会怎么样,窗口也不会关闭吧

[dreamreality]

cancel 只在真假之别，不为0都是真，为0则为假

[zwbhyy]

我用这个

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("警告：系统退出后接收仪将停止运行！" + vbCrLf + "是否确定退出系统？", vbOKCancel + vbInformation, "系统提示") = vbOK Then
End
Else
Cancel = 1
End If
End Sub

[strongfisher]

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("警告：系统退出后接收仪将停止运行！" + vbCrLf + "是否确定退出系统？", vbOKCancel + vbInformation, "系统提示") = vbOK Then
End
Else
Cancel = true
End If
End Sub

[didishu0807]

cancel=true

[vv1vv]

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("警告：系统退出后接收仪将停止运行！" + vbCrLf + "是否确定退出系统？", vbOKCancel + vbInformation, "系统提示") = vbOK Then
End
Else
Cancel = 1
End If
End Sub

[道素]

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("警告：系统退出后接收仪将停止运行！" + vbCrLf + "是否确定退出系统？", vbOKCancel + vbInformation, "系统提示") = vbOK Then
End
Else
Cancel = 1
End If
End Sub