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

2024-12-05 07:26:07

推荐回答（5个）

回答1：

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("你确定退出程序吗？", 1 + 64 + 256) = vbCancel Then Cancel = 1
End Sub

在UNLOAD事件中启用以上代码

回答2：

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

回答3：

If MsgBox("提示", vbOKCancel, "标题") = 1 Then
'按下了确定
Else
'按下了取消或者直接关闭
End If

回答4：

temp = MsgBox("提示", vbDefaultButton1 + vbOKCancel, "标题")

回答5：

x=Msgbox("Hello World!",1)