- 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
- MDIForm_Unload(Cancel As Integer)中
判断是否退出窗体
Cancel = False时，退出窗体
Cancel = True时，不退出窗体，程序仍正常运行。
vbQuestion + vbOKCancel + vbDefaultButton1中
vbQuestion是设置弹出msgbos窗口显示问号图标
vbOKCancel是设置弹出msgbos窗口显示一个确定按钮、一个取消按钮
vbDefaultButton1是设置弹出msgbos窗口默认焦点在第一个按钮