在对话框中显示提示,等待用户输入文本或单击按钮,然后返回包含文本框内容的字符串。
语法
InputBox (提示 [, title ] [, default ] [, xpos ] [, ypos ] [, helpfile ] [, context ] )
InputBox 函数语法具有以下参数:
| 参数 | 说明 |
|---|---|
| 提示 | 必需。 在对话框中显示为消息的字符串表达式。 提示的最大长度约为 1024 个字符,具体取决于所用字符的宽度。 如果 提示 包含多行,则可以使用回车符 Chr (13) ) (换行符、换行符 (Chr (10) ) ,或使用回车符-换行符组合 (Chr (13) & Chr (每行之间) 10) 来分隔行。 |
| 标题 | 可选。 显示在对话框标题栏中的字符串表达式。 如果省略 标题,应用程序名称将放在标题栏中。 |
| 默认 | 可选。 如果未提供其他输入,则在文本框中显示为默认响应的字符串表达式。 如果省略 默认值,则文本框显示为空。 |
| xpos | 可选。 用于指定对话框左边缘与屏幕左边缘之间的水平距离的数值表达式。 如果省略 xpos ,对话框将水平居中。 |
| ypos | 可选。 指定对话框上边缘与屏幕顶部的垂直距离的数值表达式(以 twips 为单位)。 如果省略 ypos ,则对话框垂直放置在屏幕下方大约三分之一的位置。 |
| 帮助文件 | 可选。 用于标识用于为对话框提供上下文相关帮助的帮助文件的字符串表达式。 如果提供了 helpfile ,还必须提供 上下文 。 |
| 上下文 | 可选。 数值表达式,即帮助作者分配给相应帮助主题的帮助上下文编号。 如果提供 上下文 ,还必须提供 helpfile 。 |
备注
当同时提供了 帮助文件 和 上下文 时,用户可以按 Windows) (F1 键或 Macintosh) (帮助键查看与 上下文对应的帮助主题。 某些主机应用程序还会自动在对话框中添加 “帮助 ”按钮。 如果用户单击“ 确定” 或按 Enter,则 InputBox 函数将返回文本框中的任何内容。 如果用户单击 “取消”,则该函数将返回零长度字符串 (“”) 。
注意
若要指定第一个命名参数以上,则必须在表达式中使用 InputBox 。 要省略某些位置参数,必须包含相应的逗号分隔符。
示例
注意
下面的示例演示了在Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息,请在“搜索”旁边的下拉列表中选择“开发人员参考”,然后在搜索框中输入一个或多个术语。
此示例演示使用 InputBox 函数提示用户输入值的各种方法。 如果省略 x 和 y 位置,对话框将自动居中以对应的轴。 如果用户单击“确定”或按 Enter 键,则该变量MyValue包含用户输入的值。 如果用户单击“ 取消”,则返回零长度字符串。
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3" ' Set prompt.
Title = "InputBox Demo" ' Set title.
Default = "1" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
' Use Helpfile and context.
' The Help button is added automatically.
MyValue = InputBox(Message, Title,,,,"DEMO.HLP", 10)
' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)