VBScript - 对话框

什么是对话框？

VBScript 允许开发者有效地与用户交互。它可以是一个显示消息给用户的消息框，也可以是一个用户可以输入值的输入框。

VBScript MsgBox 函数

MsgBox 函数显示一个消息框，并等待用户点击一个按钮，然后根据用户点击的按钮执行操作。

语法

MsgBox(prompt[,buttons][,title][,helpfile,context])

参数描述

提示 − 必需参数。在对话框中显示为消息的字符串。提示的最大长度约为 1024 个字符。如果消息超过一行，则可以使用回车符 (Chr(13)) 或换行符 (Chr(10)) 在各行之间分隔。
按钮 − 可选参数。一个数字表达式，用于指定要显示的按钮类型、使用的图标样式、默认按钮的标识以及消息框的模态性。如果留空，按钮的默认值为 0。
标题 − 可选参数。在对话框标题栏中显示的字符串表达式。如果标题留空，则应用程序名称将放在标题栏中。
帮助文件 − 可选参数。一个字符串表达式，用于标识要用于为对话框提供上下文相关帮助的帮助文件。
上下文 − 可选参数。一个数字表达式，用于标识帮助作者分配给相应帮助主题的帮助上下文编号。如果提供上下文，则也必须提供帮助文件。

按钮参数可以取以下任何值：

0 vbOKOnly 只显示“确定”按钮。
1 vbOKCancel 显示“确定”和“取消”按钮。
2 vbAbortRetryIgnore 显示“中止”、“重试”和“忽略”按钮。
3 vbYesNoCancel 显示“是”、“否”和“取消”按钮。
4 vbYesNo 显示“是”和“否”按钮。
5 vbRetryCancel 显示“重试”和“取消”按钮。
16 vbCritical 显示严重错误消息图标。
32 vbQuestion 显示警告查询图标。
48 vbExclamation 显示警告消息图标。
64 vbInformation 显示信息消息图标。
0 vbDefaultButton1 第一个按钮为默认按钮。
256 vbDefaultButton2 第二个按钮为默认按钮。
512 vbDefaultButton3 第三个按钮为默认按钮。
768 vbDefaultButton4 第四个按钮为默认按钮。
0 vbApplicationModal 应用程序模态。在用户响应消息框之前，当前应用程序将无法工作。
4096 vbSystemModal 系统模态。在用户响应消息框之前，所有应用程序都将无法工作。

上述值在逻辑上分为四组：第一组 (0 到 5) 指示要在消息框中显示的按钮；第二组 (16、32、48、64) 描述要显示的图标的样式；第三组 (0、256、512、768) 指示哪个按钮必须是默认按钮；第四组 (0、4096) 确定消息框的模态性。

返回值

MsgBox 函数可以返回以下值之一：

1 - vbOK - 点击了“确定”
2 - vbCancel - 点击了“取消”
3 - vbAbort - 点击了“中止”
4 - vbRetry - 点击了“重试”
5 - vbIgnore - 点击了“忽略”
6 - vbYes - 点击了“是”
7 - vbNo - 点击了“否”

示例

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         'Message Box with just prompt message
         MsgBox("Welcome")    
           
         'Message Box with title, yes no and cancel Butttons 
         a = MsgBox("Do you like blue color?",3,"Choose options")
         ' Assume that you press No Button	
         document.write("The Value of a is " & a)
         
      </script>
   </body>
</html>

执行上述脚本时，将显示消息框，如果按下“否”按钮，则 a 的值为 7。

The Value of a is 7

VBScript InputBox 函数

InputBox 函数帮助用户从用户那里获取值。输入值后，如果用户点击“确定”按钮或按键盘上的 ENTER 键，InputBox 函数将返回文本框中的文本。如果用户点击“取消”按钮，则该函数将返回空字符串 ("")。

语法

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

参数描述

提示 − 必需参数。在对话框中显示为消息的字符串。提示的最大长度约为 1024 个字符。如果消息超过一行，则可以使用回车符 (Chr(13)) 或换行符 (Chr(10)) 在各行之间分隔。
标题 − 可选参数。在对话框标题栏中显示的字符串表达式。如果标题留空，则应用程序名称将放在标题栏中。
默认值 − 可选参数。用户希望显示在文本框中的默认文本。
XPos − 可选参数。X 轴的位置，表示提示距离屏幕左侧的水平距离。如果留空，则输入框水平居中。
YPos − 可选参数。Y 轴的位置，表示提示距离屏幕左侧的垂直距离。如果留空，则输入框垂直居中。
帮助文件 − 可选参数。一个字符串表达式，用于标识要用于为对话框提供上下文相关帮助的帮助文件。
上下文 − 可选参数。一个数字表达式，用于标识帮助作者分配给相应帮助主题的帮助上下文编号。如果提供上下文，则也必须提供帮助文件。

示例

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         ' Input Box with only Prompt
         InputBox("Enter a number")    
        
         ' Input Box with a Title
         a = InputBox("Enter a Number","Enter Value")
         msgbox a
        
         ' Input Box with a Prompt,Title and Default value
         a = InputBox("Enter a Number","Enter Value",123)
         msgbox a
        
         ' Input Box with a Prompt,Title,Default and XPos
         a = InputBox("Enter your name","Enter Value",123,700)
         msgbox a
        
         ' Input Box with a Prompt,Title and Default and YPos
         a = InputBox("Enter your name","Enter Value",123,,500)
         msgbox a
         
      </script>
   </body>
</html>

执行上述脚本时，将显示输入框，并显示用户输入的值。

打印页面