关于VB 6.0消息框的问题

来源：百度知道 编辑：UC知道 时间：2024/07/04 18:09:31
VB 6.0中如何实现弹出选择消息框？比如：当单击“退出”按钮时会弹出一个询问是否真的要退出的消息框，点“是”退出程序，点否返回程序界面。

楼上代码不确定是否可行！

正解：
Private Sub Command1_Click()
Dim msg1
msg1 = MsgBox("确定要退出吗？", vbYesNo + vbQuestion, "提示")
If msg1 = vbYes Then End
End Su

在窗口里加上这个代码就可以了
Private Sub Form_Unload(Cancel As Integer)
Dim l As Integer
l = MsgBox("确认关闭?", vbYesNo + vbQuestion, "确认")
If l = vbNo Then
Cancel = True
End If
End Sub

以上代码是我在网上看到的，不是我写的。