VB學習要點4----日期型資料作算術運算

MsgBox函式和MsgBox語句均可用來彈出對話方塊，不同處在於MsgBox函式可以返回一個值，而MsgBox語句不會返回值。

 

MsgBox語句：用於彈出一個對話方塊。

格式如下：

MsgBox內容[，型別][，標題][，幫助檔名，幫助主題目錄號]

在IE位址列中輸入“javascript:alert(“歡迎XX”)”，然後按enter鍵，則彈出對話方塊“歡迎XX”

VB中MsgBox語句也可方便實現，在窗體的單擊事件中輸入如下程式碼

Private Sub Form_click()

MsgBox ("歡迎XX")

End Sub

 

MsgBox內容[，型別][，標題][，幫助檔名，幫助主題目錄號]

“內容”引數，為必要引數，是一個字串，其長度不得超過1024字元。如果超過，多餘的部分會被省略。字串的內容在由MsgBox語句彈出的對話方塊中顯示。當字串在一行內顯示不完時，將自動換行。也可用“chr$(13)+chr$(10)”或“vbCrlf”進行強制換行。

例如

Private Sub Form_click()

MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂每一天！"

End Sub

執行後將彈出對話方塊如圖：

 

“型別”引數，它是一個整數值或符號常量，用來控制在對話方塊內顯示的按鈕、圖示的種類及數量。該引數的值由4類數值相加產生，這4類數值或符號常量分別表示按鈕的型別、顯示圖示的種類、活動按鈕的位置以及強制返回。不過，對於MsgBox語句，按鈕的型別及強制返回作用不大，但對於MsgBox函式卻很有用。在MsgBox函式中可通過按鈕對話方塊中某個按鈕而執行指定的操作。

MsgBox型別引數的取值：

 

例如：

Private Sub Form_click()

MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂每一天！"，2

End Sub

執行後將彈出對話方塊如圖：

 

 

例如：

Private Sub Form_click()

MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂每一天！"，64

End Sub

執行後將彈出對話方塊如圖：

如果要同時定義按鈕型別和圖示樣式，可直接將按鈕型別的取值和圖示樣式的取值相加即可。例如：2+64

Private Sub Form_click()

MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂每一天！"，66

End Sub

執行結果如圖：

 

Private Sub Form_click()

MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂每一天！"，66+512

End Sub

則會將預設按鈕變為第三個按鈕，執行結果如圖：

如果對話方塊中只有三個按鈕，程式碼卻為“66+768”，執行結果為預設選中第一個按鈕。

 

“標題”引數，用來指定對話方塊的標題欄文字。

例如：

Private Sub Form_click()

MsgBox "歡迎XX" & Chr(13) + Chr(10) & "祝XX快樂每一天！"，65 + 512, "許願池"

End Sub

執行結果：

*************

MsgBox函式，除可返回值外，其他功能與MsgBox語句相同。

MsgBox函式返回值是一個整數，可以是1~7之間的任意整數，它們分別對應7個按鈕被選中的狀態。

 

例如：

在按鈕【退出】的雙擊事件中輸入如下程式碼：

Private Sub Command1_Click()

Dim a As Integer   ‘定義整形變數a

a = MsgBox("你確定要退出嗎？", 1 + 32)  ‘用變數a來接收MsgBox函式的返回值

If a = 1 Then    ‘如果變數a的值為1，即MsgBox函式的返回值為1。那麼

 End

Else

 Print ("你沒有退出。")

End If

End Sub

有問題或者想了解更多的朋友請加入群   VB學習交流群 531161726

既然來了，就留下你的腳印唄。。。。。。