【烟花原创】VBA零基础之第155篇 各种对话框之录入对话框（一）

hwc2ycy

二、输入对话框

1.Inputbox函数

在对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

语法：

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

Prompt 必需的，作为对话框消息出现的字符串表达式。prompt的最大长度大约是 1023 个

字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。

Title 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。

Default 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。

Xpos 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。

Ypos 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

这两个参数一般不推荐指定，需要转换。

注意：

在VB中 , 缺省情况下就是使用缇作为它的单位的，如上面提到的Xpos,Ypos均是以缇为单位。

Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。

Context 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。

如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。

示例：

补充资料：

关于磅、像素和缇，大家可以看看阿木老师的这篇文章：

http://hi.baidu.com/lbpyyyuizwkorte/item/fa9747751ca7b945ee1e5348

yewei113

支持{:35:}

tingfeng461002

录入对话框（一）   Inputbox函数