IBM Lotus Symphony


MsgBox 函数 [运行时]

显示一个含有消息的对话框,并返回一个值。

语法:

MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])

返回值:

整数

参数:

Text:字符串表达式,在对话框中显示为消息。使用 Chr$(13) 可以插入换行符。

DialogTitle:字符串表达式,在对话框的标题栏中显示。如果不指定此参数,将显示相应的应用程序名称。

Type:任意整型表达式,用于指定对话框类型并定义所显示按钮或图标的数目和类型。Type 表示位模式(通过添加各自值而定义的对话框元素)的组合:

0:仅显示“确定”按钮。

1:显示“确定”和“取消”按钮。

2:显示“中止”、“重试”和“忽略”按钮。

3:显示“是”、“否”和“取消”按钮。

4:显示“是”和“否”按钮。

5:显示“重试”和“取消”按钮。

16:在对话框中添加“停止”图标。

32:在对话框中添加“问号”图标。

48: 在对话框中添加“惊叹号”图标。

64:在对话框中添加“信息”图标。

128:将对话框中的第一个按钮作为缺省按钮。

256:将对话框中的第二个按钮作为缺省按钮。

512:将对话框中的第三个按钮作为缺省按钮。

返回值:

1:确定

2:取消

3:中止

4:重试

5:忽略

6:是

7:否

错误代码

5 无效的过程调用

示例:

Sub ExampleMsgBox

Dim sVar as Integer

sVar = MsgBox("Las Vegas")

sVar = MsgBox("Las Vegas",1)

sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")

end sub


产品反馈 | 其他文档 | 商标