Option Explicit
Private Sub Form_Click()
Dim x As Integer
x = MsgBox("你单击的是窗体,是吗?", vbYesNoCancel + vbInformation, "询问框")
If x = vbYes Then
MsgBox "你选择了“是”按钮", vbInformation, "信息框"
ElseIf x = vbNo Then
MsgBox "你选择了“否”按钮", vbInformation, "信息框"
ElseIf x = vbCancel Then
MsgBox "你选择了“取消”按钮", vbInformation, "信息框"
End If
End Sub
'应该注意的细节:1.在msgbox中要想同时显示按钮的数目及形式,图标样式及默认按钮,就要用每一个参数相加。例:vbinformation+vbok,顺序无所谓
' 2.vbyes和vbok的区别:vbok是“确定”,vbyes是“是”的意思。注意VByes和vbok返回值与提示框中的按钮命令相对应