Функция выводит на экран диалоговое (модальное) окно с кнопкой закрытия, содержащее заданное сообщение, поле ввода, кнопки OK, Cancel и опционально заголовок и/или кнопку Help, ожидая от пользователя ввода текста или щелчка кнопки. При задании не только одного первого параметра, необходимо использовать функцию InputBox в выражении. Для пропуска некоторых параметров нужно включить соответствующие разделители в виде запятых/

InputBox (Prompt[,Title] [,Default] [,XPos] [,YPos] [,HelpFile,Context])

Возвращаемое значение: Возвращает значение типа String, включающее содержимое окна текста

Параметры:

Функция содержит именованные аргументы

Примечание

Если указаны оба параметра, HelpFile и Context, то пользователь имеет возможность нажатием клавиши F1 вызвать соответствующую контекстную справку. Некоторые главные приложения, например, Microsoft Excel, также автоматически добавляют в диалоговое окно кнопку «Справка“. Если пользователь щелкает кнопку OK или нажимает ENTER, функция InputBox возвращает содержимое поля ввода. Если пользователь щелкает кнопку Cancel, то функция возвращает пустую строку (““)

Замечание: Однако, если пользователь не введет в поле ввода строку, то функция тоже вернет пустую строку. В этом случае будет затруднительно определить — какую кнопку (OK или Cancel) нажал пользователь. Но самом деле Cancel возвращает vbNullString, который и воспринимается Visual Basic как пустая строка. Но можно воспользоваться недокументированной функцией StrPtr и получить указатель на строку. Например, так

Dim strInput As String

strInput = InputBox (“»)

If StrPtr (strInput) = 0 Then

 MsgBox  «Вы нажали Cancel!»

End If

Пример

Пример демонстрирует различные способы получения сведений от пользователя с помощью функции InputBox. Если аргументы x и y опущены, 

то окно диалога автоматически выравнивается по центру  по соответствующим осям. Переменная MyValue содержит значение, введенное пользователем, если была нажата

кнопка OK или клавиша ENTER. Если пользователь нажмет  кнопку Cancel, функция возвратит пустую строку

Dim Message, Title, Default, MyValue

Message =  «Введите число от 1 до 3»

Title =  «Пример»   ' заголовок

Default =  «1»   ' значение по умолчанию

' Выводим на экран сообщение, заголовок и значение по умолчанию

MyValue = InputBox (Message, Title, Default)

' Получение справки. Кнопка  «Справка» добавляется автоматически

MyValue = InputBox (Message, Title, , , ,  «DEMO.HLP», 10)

' Размещаем верхний левый угол окна диалога в точке 100, 100

MyValue = InputBox (Message, Title, Default, 100, 100)