HTML CSS JAVASCRIPT PYTHON PYTHON2 JAVA C C++ C# SQL Excel Linux AI BOOTSTRAP PHP 教程库 参考手册 技术文章 测验 练习 HOWTO FAQ
❮ 上一节 下一节 ❯

VBScript - 对话框

什么是对话框?

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

VBScript MsgBox 函数

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

语法

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

参数说明

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

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

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

  • helpfile − 可选参数。 一个字符串表达式，用于标识用于为对话框提供上下文相关帮助的帮助文件。

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

Buttons 参数可以采用以下任意值 −

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

执行上述脚本时，会显示消息框，如果按"No Button"，则a的值为7。

The Value of a is 7

VBScript 输入框函数

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

语法

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

参数说明

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

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

  • default − 可选参数。 用户希望显示的文本框中的默认文本。

  • XPos − 可选参数。 X 轴位置，代表提示距离屏幕左侧的水平距离。 如果留空，则输入框水平居中。

  • YPos − 可选参数。 Y 轴的位置，代表提示距离屏幕左侧的垂直距离。 如果留空，则输入框垂直居中。

  • helpfile − 可选参数。 一个字符串表达式，用于标识用于为对话框提供上下文相关帮助的帮助文件。

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

示例

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

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

❮ 上一节 下一节 ❯