VB6.0的MsgBox語句

MsgBox的用法

  分函數和語句，先討論語句

形式

  MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])

Promt

  必選。字符串表達式。顯示消息。最大長度爲1024個字符。換行用（Chr(13) & Chr(10)）

    Private Sub Form_Load()
    MsgBox "welcome" & Chr(10) & Chr(13) & "hello world"
    End Sub

Button:

按鈕類型：

符號常量	值	作用
VBOkOnly	0	只顯示‘確定’按鈕
VBOKCancle	1	只顯示‘確定’和‘取消’按鈕
vbAbortRetryIgnore	2	顯示‘放棄’、‘重試’和‘忽略’按鈕
vbYesNoCancel	3	顯示‘是’、‘否’和‘取消’按鈕
VBYesNo	4	顯示‘是’和‘否’按鈕
VBRetryCancel	5	顯示‘重試’和‘取消’按鈕

    Private Sub Form_Load()
    MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 4
    End Sub

圖標形式：

符號常量	值	作用
VBCritical	16	顯示系統叉號圖標
VBQuestion	32	顯示系統問號圖標
vbExclamation	48	顯示系統歎號圖標
vbInformation	64	顯示系統信息圖標

    Private Sub Form_Load()
    MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 16
    End Sub

默認按鈕：

符號常量	值	作用
VBDefaultButton1	0	第一個按鈕爲默認按鈕
VBDefaultButton2	256	第二個按鈕爲默認按鈕
VBDefaultButton3	512	第三個按鈕爲默認按鈕
VBDefaultButton4	768	第四個按鈕爲默認按鈕

    Private Sub Form_Load()
    MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 256
    End Sub

按鈕不夠，默認爲第一個按鈕

強制返回：

符號常量	值	作用
VBApplicationModal	0	應用程序強制返回
VBSystemModal	4096	系統強制返回

如果用同時定義按鈕類型和圖標樣式，可取兩者值相加。

    Private Sub Form_Load()
    MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 49
    End Sub

Title

  在標題框顯示內容

    Private Sub Form_Load()
    MsgBox "welcome" & Chr(10) & Chr(13) & "hello world", 49,"Door"
    End Sub