Question

VB中如何设置MSGBOX有“确定”“取消”2个按钮的

点击“退出”出现窗口选择“确定”就END选择“取消”就返回怎么实现呢？我现在只能用MSGBOX出现一个按钮啊

Answer 1

Option Explicit

' 这是点击自定义的“退出”按钮实现的例子
Private Sub cmdExit_Click()
If MsgBox("是否退出程序？", vbOKCancel, "请选择") = vbOK Then
End
End If
End Sub

' 这是点击窗口右上角的关闭按钮的例子
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否退出程序？", vbOKCancel, "请选择") = vbCancel Then
Cancel = 1
End If
End Sub

' 详细的Msgbox用法，参考MSDN，里面写的很清楚。

Answer 2

比如
Private
Sub
Form_Load()
MsgBox
"输入数据",
vbOKCancel,
"有2个按钮了"
'那个VBOKCANCEL就是2个按钮的参数
End
Sub
具体的介绍楼上已给出

Answer 3

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("确定要退出吗？", vbOkCancel, "确认窗口") = vbOk Then
Unload Me
Else
Cancel = -1
End If
End Sub

Answer 4

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("您确信要退出吗?", vbExclamation + vbYesNo, "提示") = vbYes Then
Else
Cancel = 1
End If
End Sub