1.5 MsgBox, MsgBox 傳回值

Public Sub MsgBoxDemo()

Dim retrunValue As Integer

returnValue = MsgBox("OK_camce_Button+Critical+DefaultButton2+Applicationmodal 用文字提示寫", vbOKCancel + vbCritical + vbDefaultButton2 + vbApplicationModal, "Title Text")

'returnValue = MsgBox("OK_Cancel_Button+Critical+defaultButton2+Applicatonmodal 用數字格式寫", 2 + 16 + 256 +0, "Title Test Text")

If (returnValue = vbOK) Then
MsgBox ("You pressed the OK button")

Else

If (returnValue = vbCancel) Then
MsgBox ("You pressed the CANCEL button")
End If

End If
End Sub

1. MsgBox("訊息", button 類別 + 訊息類型 + 預設已選定的按鈕 + , "標題文字") 將訊息顯示在對話方塊中，等使用者按下按鈕，並傳回一 Integer 來指示使用者按下的是那一個鈕。
   

   常數	值	說明
   vbOKOnly	0	只有 OK 按鈕(預設值)。
   vbOKCancel	1	OK 和 Cancel 按鈕。
   vbAbortRetryIgnore	2	Abort、Retry，和 Ignore 按鈕。
   vbYesNoCancel	3	Yes、No，和 Cancel 按鈕。
   vbYesNo	4	Yes 和 No 按鈕。
   vbRetryCancel	5	Retry 和 Cancel 按鈕 。
   vbCritical	16	錯誤訊息。
   vbQuestion	32	警告詢問。
   vbExclamation	48	警告訊息。
   vbInformation	64	通知訊息。
   vbDefaultButton1	0	第一個按鈕是預設的(預設值)。
   vbDefaultButton2	256	第二個按鈕是預設的。
   vbDefaultButton3	512	第三個按鈕是預設的。
   vbDefaultButton4	768

   
   
2. MsgBox 傳回值
   

   常數	值	說明
   vbOK	1	按下 OK 按鈕。
   vbCancel	2	按下 Cancel 按鈕。
   vbAbort	3	按下 Abort 按鈕。
   vbRetry	4	按下 Retry 按鈕。
   vbIgnore	5	按下 Ignore 按鈕。
   vbYes	6	按下 Yes 按鈕。
   vbNo	7	按下 No 按鈕。