分类：电脑/网络-程序设计-数据库
问题：vb一段程序是什么意思PrivateSubMDIForm_Unl 
Private Sub MDIForm_Unload(Cancel As Integer) Dim strmsg As String  strmsg = "您确定退出吗？"     If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, "分析系统") = vbOK Then        Cancel = False        End     Else        Cancel = True     End If End Sub这Private Sub MDIForm_Unload(Cancel As Integer) Dim strmsg As String  strmsg = "您确定退出吗？"     If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, "分析系统") = vbOK Then        Cancel = False        End     Else        Cancel = True     End If End Sub这段程序是什么意思
回答：MDIForm_Unload(Cancel As Integer)中
判断是否退出窗体
Cancel = False时，退出窗体
Cancel = True时，不退出窗体，程序仍正常运行。


vbQuestion + vbOKCancel + vbDefaultButton1中

vbQuestion是设置弹出msgbos窗口显示问号图标
vbOKCancel是设置弹出msgbos窗口显示一个确定按钮、一个取消按钮
vbDefaultButton1是设置弹出msgbos窗口默认焦点在第一个按钮