Функция InputBox (Visual Basic)
Обновлен: Ноябрь 2007
Отображает поле для ввода текста в диалоговом окне, ожидает ввода текста пользователем или нажатия кнопки и возвращает строку, являющуюся содержимым текстового поля.
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 требуется разрешение UIPermission на уровне SafeTopLevelWindows, что может повлиять на ее выполнение в случаях частичного доверия. Дополнительные сведения см. в разделе Запрос разрешений и Класс UIPermission. |
Пример
В этом примере показаны различные способы использования функции InputBox для отображения окна ввода значения. Если значения позиции по горизонтали и вертикали опущены, диалоговое окно автоматически центрируется по соответствующим осям. Переменная MyValue содержит введенное пользователем значение, если была нажата кнопка OK или клавиша ВВОД.
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
Требования
Пространство имен:Microsoft.VisualBasic
**Модуль:**Interaction
**Сборка:**Visual Basic (библиотека времени выполнения, в Microsoft.VisualBasic.dll)