msgbox函数

 

 

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返回值与提示框中的按钮命令相对应