參數說明
返回值
MsgBox函數可以返回以下值之一,可用于标識用戶在消息框中單擊的按鈕。
例1 顯示一條信息
Sub msg1()
Msgbox “這是一條歡迎信息"
End sub
結果如圖:
例2 顯示一條帶标題的信息
Sub msg2()
MsgBox "這是一條歡迎信息", vbOK, "标題1"
End Sub
例3顯示交互信息
Sub msg3()
Dim answer As VbMsgBoxResult
answer = MsgBox("上面的兩個例子看明白了嗎?", vbYesNo)
If answer = vbYes Then
MsgBox "你太棒了!"
Else
MsgBox "加油,再學一遍吧"
End If
End Sub
該消息框顯示信息:"上面的兩個例子看明白了嗎?",當用戶選擇“是”時,彈出一個消息框"你太棒了!",當用戶選擇“否”時,顯示 "加油,再學一遍吧"
點擊“是”,顯示“你太棒了!”
前面在返回值一段講過,vbyes返回值為6,
If answer = vbYes Then
可以寫成
If answer = 6 Then
可以得到一樣的效果。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!