退出时弹出的确认对话框怎么写？

[xiaobird1]

rt。

msgbox我会，主要是后面。

单击X，和选择菜单退出项的代码不一样吧。请分别写出。

[射天狼]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确定要退出系统吗?", vbYesNo + vbQuestion) = vbNo Then Cancel = True
End Sub

[射天狼]

这样的话退出菜单就不用判断了,直接UNLOAD ME就行了~~

[yunfeng007]

啊，晚了，同意 cuizm(射天狼) 的。

[viena]

如果退出时，有处理代码，可以在模块加一个public函数，单击X，和选择菜单退出调用即可

[strongfisher]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intUserChoice As Integer

intUserChoice = MsgBox("是否退出CMMS系统？", vbYesNo + vbInformation, "注意")

If intUserChoice = vbYes Then

ElseIf intUserChoice = vbNo Then
Cancel = True
End If
End Sub

[xiaobird1]

谢谢。

那请问如果是通过按钮或菜单等的单机事件退出呢？
刚才的代码不可以阿。

[strongfisher]

可以

[xiaobird1]

单击菜单弹出了msgbox，但是选择确定并不退出。

可能是我的问题，请问菜单的onclick中怎么写。

[xiaobird1]

up