Interaction.InputBox(String, String, String, Int32, Int32) 方法

定义

在对话框中显示提示,等待用户输入文本或单击按钮,然后返回包含文本框内容的字符串。

public static string InputBox (string Prompt, string Title = "", string DefaultResponse = "", int XPos = -1, int YPos = -1);
static member InputBox : string * string * string * int * int -> string
Public Function InputBox (Prompt As String, Optional Title As String = "", Optional DefaultResponse As String = "", Optional XPos As Integer = -1, Optional YPos As Integer = -1) As String

参数

Prompt
String

必选的 String 表达式,作为消息显示在对话框中。 Prompt 的最大长度大约为 1024 个字符,具体取决于所用字符的宽度。 如果 Prompt 包含多行,则可以使用回车符 (Chr(13)) 、换行符 (Chr(10)) 或回车/换行符组合 (Chr(13) & Chr(每行之间 10)) 来分隔这些行。

Title
String

可选。 显示在对话框标题栏中的 String 表达式。 如果省略 Title,则标题栏中显示应用程序名称。

DefaultResponse
String

可选。 String 表达式。如果未提供其他输入,则作为默认响应显示在文本框中。 如果省略 DefaultResponse,则显示的文本框为空。

XPos
Int32

可选。 数值表达式,指定屏幕左边缘与对话框左边缘之间的距离(以缇为单位)。 如果省略 XPos,则对话框水平居中。

YPos
Int32

可选。 数值表达式,指定屏幕顶部与对话框上边缘之间的距离(以缇为单位)。 如果省略 YPos,则对话框垂直定位在屏幕向下大约三分之一处。

返回

在对话框中显示提示,等待用户输入文本或单击按钮,然后返回包含文本框内容的字符串。

示例

此示例演示使用 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

注解

如果用户单击“ 取消”,则返回零长度字符串。

若要指定超过第一个参数,必须在表达式中使用 InputBox 函数。 如果省略任何位置参数,则必须保留相应的逗号分隔符。

注意

函数InputBoxSafeTopLevelWindows 级别要求UIPermission,这可能会影响其在部分信任情况下的执行。 有关详细信息,请参阅 请求权限UIPermission

适用于

另请参阅