[CODE]<html>
<head>
<title>Test</title>
<script language=vbscript >
Dim ReVal
ReVal = MsgBox("Test?",
vbInformation + vbYesNo, "Test")
If ReVal = vbYes Then
MsgBox "Yes"
Else
MsgBox "No"
End If
</script>
</head>
<body>
</body>
</html>[/CODE]
红字的那个是MsgBox的参数
那两个是系统定义的常量,以下为常量列表
下面的常量最多一次使用两个就像我写的代码里,
vbOK 1 按下 OK 按钮
vbCancel 2 按下 Cancel 按钮
vbAbort 3 按下 Abort 按钮
vbRetry 4 按下 Retry 按钮
vbIgnore 5 按下 Ignore 按钮
vbYes 6 按下 Yes 按钮
vbNo 7 按下 No 按钮
vbOKOnly 0 只有 OK 按钮(缺省值)
vbOKCancel 1 OK 和 Cancel 按钮
vbAbortRetryIgnore 2 Abort、Retry,和 Ignore 按钮
vbYesNoCancel 3 Yes、No,和 Cancel 按钮
vbYesNo 4 Yes 和 No 按钮
vbRetryCancel 5 Retry 和 Cancel 按钮
不过上面这些个人所知一次只能使用其中一个常量与下面的一个进行组合
vbCritical 16 关键消息
vbQuestion 32 警告询问
vbExclamation 48 警告消息
vbInformation 64 通知消息
vbDefaultButton1 0 第一个按钮是缺省的(缺省值)
vbDefaultButton2 256 第二个按钮是缺省的
vbDefaultButton3 512 第三个按钮是缺省的
vbDefaultButton4 768 第四个按钮是缺省的
vbApplicationModal 0 应用程序形态的消息框(缺省值)
vbSystemModal 4096 系统强制返回的消息框
vbMsgBoxHelpButton 16384 添加Help按钮到消息框
VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口
vbMsgBoxRight 524288 文本是右对齐的
vbMsgBoxRtlReading 1048576 指定在希伯来语和阿拉伯语系统中,