VBScript教程

VBScript - 对话框

← 上一节 下一节 →

什么是对话框？

VBScript允许开发人员有效地与用户交互.它可以是一个消息框，用于向用户或输入框显示消息，用户可以使用该输入框输入值.

VBScript MsgBox函数

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

语法

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

参数说明

  • 提示 : 必需参数.在对话框中显示为消息的字符串.提示的最大长度约为1024个字符.如果消息扩展到多行，那么我们可以在每一行之间使用回车字符(Chr(13))或换行符(Chr(10))来分隔行.

  • 按钮 : 一个可选参数.一个数字表达式，指定要显示的按钮类型，要使用的图标样式，默认按钮的标识以及消息框的模态.如果留空，则按钮的默认值为0.

  • 标题 : 一个可选参数.字符串表达式显示在对话框的标题栏中.如果标题留空，则应用程序名称将放在标题栏中.

  • helpfile : 一个可选参数.一个String表达式，用于标识用于为对话框提供上下文相关帮助的帮助文件.

  • context : 一个可选参数.一个数字表达式，用于标识"帮助"作者分配给相应"帮助"主题的"帮助"上下文编号.如果提供了上下文，则还必须提供帮助文件.

按钮参数可以采用以下任何一种方式值 :

  • 0 vbOKOnly仅显示OK按钮.

  • 1 vbOKCancel显示OK和Cancel按钮.

  • 2 vbAbortRetryIgnore显示Abort，Retry和Ignore按钮.

  • 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轴的位置，表示从屏幕左侧垂直的提示距离.如果留空，则输入框将垂直居中.

  • helpfile : 一个可选参数.一个String表达式，用于标识用于为对话框提供上下文相关帮助的帮助文件.

  • context : 一个可选参数.一个数字表达式，用于标识"帮助"作者分配给相应"帮助"主题的"帮助"上下文编号.如果提供了上下文，还必须提供helpfile.

示例

<!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>

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

← 上一节 下一节 →

相关菜鸟教程