InputBox 函数 (Visual Basic)
更新：2007 年 11 月
在一对话框中显示提示，等待用户输入文字或单击按钮，然后返回包含文本框内容的字符串。
Public Function InputBox( _
ByVal Prompt As String, _
Optional ByVal Title As String = "", _
Optional ByVal DefaultResponse As String = "", _
Optional ByVal Xpos As Integer = -1, _
Optional ByVal YPos As Integer = -1 _
) As String
参数
Prompt
必选。以消息形式显示在对话框中的 String 表达式。Prompt 的最大长度大约为 1024 个字符，具体取决于所用字符的宽度。如果 Prompt 包含多行，则可以在每行之间使用回车字符 (Chr(13))、换行符 (Chr(10)) 或者回车/换行符的组合 (Chr(13) & Chr(10)) 来分隔各行。Title
可选。显示在对话框标题栏中的 String 表达式。如果省略 Title，则将应用程序名放在标题栏中。DefaultResponse
可选。显示在文本框中的 String 表达式，在没有提供其他输入时作为默认响应。如果省略 DefaultResponse，则显示的文本框为空。XPos
可选。数值表达式，指定屏幕左边缘与对话框左边缘之间的距离（以像素为单位）。如果省略了 XPos 和 YPos，则对话框在屏幕上居中。YPos
可选。数值表达式，指定对话框的上边与屏幕上边的距离（以像素为单位）。如果省略了 XPos 和 YPos，则对话框在屏幕上居中。
备注
如果用户单击“取消”按钮，则返回一个零长度字符串。
若要除第一个参数外还指定其他参数，必须在表达式中使用 InputBox 函数。如果省略任何位置参数，则必须保留相应的逗号分隔符。
.gif "说明") 说明： |
|---|
InputBox 函数需要 SafeTopLevelWindows 级别的 UIPermission，这可能会对它在部分信任情况下的执行产生影响。有关更多信息，请参见请求权限和 UIPermission 类。 |
示例
本示例显示使用 InputBox 函数来提示用户输入值的各种方法。如果省略 x 及 y 位置，则会自动将对话框放置在相应的坐标轴的正中。如果用户单击“确定”按钮或按下 Enter 键，则变量 MyValue 包含用户输入的值。
Dim message, title, defaultValue As String
Dim myValue As Object
' Set prompt.
message = "Enter a value between 1 and 3"
' Set title.
title = "InputBox Demo"
defaultValue = "1" ' Set default value.
' Display message, title, and default value.
myValue = InputBox(message, title, defaultValue)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue
' Display dialog box at position 100, 100.
myValue = InputBox(message, title, defaultValue, 100, 100)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue
要求
**模块：**Interaction
**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）