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