我们今天学的是VB消息对话框，有个简单问题 问问大家 小弟先谢谢了！！

来源：百度知道 编辑：UC知道 时间：2024/05/23 18:15:35
题目要求是这样的，设计一个程序，单击窗体时，出现三个按钮，名字分别是 是、否、取消，然后单击“是”这个按钮后，在弹出一个消息框，显示出所选择的按钮。 还有 我不会怎么在单击窗体的时候，三个按钮出来啊 具体详细的写一下 谢谢各位高手了

这是在VS2005中调试，VB.net改过来的 应该也差不多

Private Sub Form1_Click()
Dim clickResNum As Integer
Dim clickResStr As String
clickResNum = MsgBox("请选择一个按钮", MsgBoxStyle.YesNoCancel, "测试标题")
Select Case clickResNum
Case 6 : clickResStr = "是"
Case 7 : clickResStr = "否"
Case 2 : clickResStr = "取消"
End Select
MsgBox("选择的按钮是：" + clickResStr, MsgBoxStyle.OkOnly, "结果提示")
End Sub

Private Sub Command1_Click()
Dim lngR As Long
lngR = MsgBox("请任意点击三个按钮.注意我设置了第三个按钮为默认", vbQuestion Or vbYesNoCancel Or vbDefaultButton3, "选择")
If lngR = vbYes Then
MsgBox "你选择了是"
ElseIf lngR = vbNo Then
MsgBox "你选择了否"
Else
MsgBox "你选择了取消"
End If

End Sub<