Question

在VB中点击一个按钮会出现msgbox"您确定要退出程序吗？", vbYesNo + vbDefaultButton2,"提示"

怎么点击“是”关闭程序点击“否”继续程序，我是个VB新手，能讲一下代码吗？
在VB中点击一个按钮会出现msgbox"您确定要退出程序吗？", vbYesNo,"提示"，怎么点击“是”关闭程序点击“否”继续程序，我是个VB新手，能讲一下代码吗？

Answer 1

很简单的， 看代码

Msg = "您确定要退出程序吗？"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "提示"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
End
End If

Answer 2

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "您确定要退出程序吗?" ' 定义信息。
Style = vbYesNo ' 定义按钮。
Title = "提示" ' 定义标题。
Ctxt = 1000 ' 定义标题 ' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, ,, Ctxt)If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes"
Exit Sub
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If

Answer 3

Private Sub Command1_Click()
If MsgBox("您确定要退出程序吗？", vbYesNo, "提示") = vbYes Then
Unload Me
End If
End Sub