InputBox函数 描述 在对话框中显示提示,等待用户输入文本或单击按钮,并返回文本框内容。 语法 InputBox (promptl, title]l, default]L xpos]L, ypos]L, helpfile, context]) InputBox函数的语法有以下参数 参数描述 prompt字符串表达式,作为消息显示在对话框中。 prompt的最大长度大约是 1024个字符,这取决于所使用的字符的宽度。如果 prompt中包含多个 行,则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换 行符的组合(Chr(13)&Chr(10))以分隔各行。 title显示在对话框标题栏中的字符串表达式。如果省略 title,则应用程序 的名称将显示在标题栏中 default显示在文本框中的字符串表达式,在没有其它输入时作为默认的响应值。 如果省略 default,则文本框为空。 Xpos 数值表达式,用于指定对话框的左边缘与屏幕左边缘的水平距离(单位 为缇)。如果省略xpos,则对话框会在水平方向居中 ypos数值表达式,用于指定对话框的上边缘与屏幕上边缘的垂直距离(单位 为缇)。如果省略ypos,则对话框显示在屏幕垂直方向距下边缘大约三 分之一处。 helpfile字符串表达式,用于标识为对话框提供上下文相关帮助的帮助文件。如 果已提供 helpfile,则必须提供 context context数值表达式,用于标识由帮助文件的作者指定给某个帮助主题的上下文 编号。如果已提供 context,则必须提供 helpfile。 说明 如果同时提供了 helpfile和 context,就会在对话框中自动添加“帮助”按钮 如果用户单击确定或按下 ENTER,则 InputBox函数返回文本框中的内容。如果用户单击取消 则函数返回一个零长度字符串("")。 下面例子利用 InputBox函数显示一输入框并且把字符串赋值给输入变量
InputBox 函数 描述 在对话框中显示提示,等待用户输入文本或单击按钮,并返回文本框内容。 语法 I n putBox(prompt[, t itle][, d efault][, x pos][, y pos][, h elpfile, c ontext]) I n putBox 函数的语法有以下参数: 参数 描述 p r ompt 字符串表达式,作为消息显示在对话框中。prompt 的最大长度大约是 1024 个字符,这取决于所使用的字符的宽度。如果 prompt 中包含多个 行,则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换 行符的组合 (C h r(13) & C hr(10)) 以分隔各行。 t i tle 显示在对话框标题栏中的字符串表达式。如果省略 t i tle,则应用程序 的名称将显示在标题栏中。 d e fault 显示在文本框中的字符串表达式,在没有其它输入时作为默认的响应值。 如果省略 d e fault,则文本框为空。 x p os 数值表达式,用于指定对话框的左边缘与屏幕左边缘的水平距离(单位 为缇)。如果省略 x p os,则对话框会在水平方向居中。 y p os 数值表达式,用于指定对话框的上边缘与屏幕上边缘的垂直距离(单位 为缇)。如果省略 ypos,则对话框显示在屏幕垂直方向距下边缘大约三 分之一处。 helpfile 字符串表达式,用于标识为对话框提供上下文相关帮助的帮助文件。如 果已提供 h e lpfile,则必须提供 c o ntext。 c o ntext 数值表达式,用于标识由帮助文件的作者指定给某个帮助主题的上下文 编号。如果已提供 c o ntext,则必须提供 h e lpfile。 说明 如果同时提供了 h e lpfile 和 c o ntext,就会在对话框中自动添加“帮助”按钮。 如果用户单击确定或按下 ENTER,则 InputBox 函数返回文本框中的内容。如果用户单击取消, 则函数返回一个零长度字符串 ("")。 下面例子利用 I n putBox 函数显示一输入框并且把字符串赋值给输入变量:
Dim Input Input= InputBox("输入名字") MsgBox("输入:"& Input) inpuTbox函数示例 本示例说明使用 InputBox函数来显示用户输入数据的不同用法。如果省略 及y坐标值,则会自动将对话框放置在两个坐标的正中。如果用户单击"确 定"按钮或按下 ENTER"按键,则变量 Myvalue保存用户输入的数据。如果用 户单击取消”按钮,则返回一零长度字符串。 Dim Message, Title, Default, Myvalue Message=" Enter a value between 1 and3"’设置提示信息。 Title=" InputBox Demo"’设置标题 Default="1″’设置缺省值 显示信息、标题及缺省值。 MyValue InputBox(Message, Title, Default) 使用帮助文件及上下文。“帮助”按钮便会自动出现。 MyValue InputBox(Message, Title,,,, DEMO. HLP", 10) 在100,100的位置显示对话框。 Myvalue InputBox(Message, Title, Default, 100, 100)
Dim Input Input = InputBox("输入名字") MsgBox ("输入: " & Input) InputBox 函数示例 本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值,则会自动将对话框放置在两个坐标的正中。如果用户单击“确 定”按钮或按下“ENTER”按键,则变量 MyValue 保存用户输入的数据。如果用 户单击“取消”按钮,则返回一零长度字符串。 Dim Message, Title, Default, MyValue Message = "Enter a value between 1 and 3" ' 设置提示信息。 Title = "InputBox Demo" ' 设置标题。 Default = "1" ' 设置缺省值。 ' 显示信息、标题及缺省值。 MyValue = InputBox(Message, Title, Default) ' 使用帮助文件及上下文。“帮助”按钮便会自动出现。 MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10) ' 在 100, 100 的位置显示对话框。 MyValue = InputBox(Message, Title, Default, 100, 100)