IBM Lotus Symphony
|
显示一个含有消息的对话框,并返回一个值。
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:否
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