Функция InputBox

Функция InputBox выводит на экран диалоговое окно, содержащее сообщение и поле ввода, устанавливает режим ожидания ввода текста пользователем, а затем возвращает значение типа String, содержащее текст, введенный в поле.

Формат функции InputBox:

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

Единственным обязательным аргументом для InputBox является аргумент Prompt.

Рассмотрим назначение аргументов:

· Prompt – строковое выражение, отображаемое как сообщение в диалоговом окне;

· Title – строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения;

· Default – строковое выражение, отображаемое в поле ввода и используемое по умолчанию, если пользователь не введет другую строку. Если этот аргумент опущен, поле ввода изображается пустым;

· Xpos и Ypos – числовые выражения, которые указывают местоположение окна ввода и являются координатами верхнего левого угла диалогового окна; Xpos – горизонтальное расстояние от левого края окна; Ypos – вертикальное расстояние от верхнего края окна. Если эти аргументы опущены, диалоговое окно выравнивается по центру экрана;

· HelpFile – строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне; обычно это файл, который вы уже должны были создать с помощью Windows Help Compiler. Если этот аргумент указан, необходимо также указать аргумент Context;

· Context – числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот аргумент указан, необходимо указать также аргумент HelpFile.

Рассмотрим пример использования функции InputBox.

User_Input = InputBox("Введите имя файла: ", "Создать файл","NEWFILE")

В результате выполнения данной функции на экран выводится диалоговое окно, показанное на рис. 2.4.3.

При обращении к процедуре или функции аргументы необходимо перечислять в определенном порядке. Отсутствующие необязательные аргументы отмечаются запятыми. Эти правила часто приводят к ошибкам – легко пропустить или поменять местами аргументы. Чтобы избежать этих проблем, в VBA можно использовать именованные аргументы функций. Для этого после имени функции указываются имена аргументов (Prompt, Title, Default, Xpos, Ypos, HelpFile и Context), каждому из которых присваивается требуемое значение. При этом можно не обозначать отсутствующие аргументы и, кроме того, порядок перечисления аргументов может быть произвольным.

Следующий пример показывает два обращения к функции MsgBox, которые имеют один и тот же результат. Первый оператор использует обычный метод перечисления аргументов, а второй – метод именованных аргументов:

MsgBox "Здравствуй, мир!",, "Окно приветствия"MsgBox Prompt:= "Здравствуй, мир!", Title:= "Окно приветствия"

Второй оператор использует именованные аргументы для Prompt (сообщение или запрос) и Title (заголовок окна сообщения), присваивая значение каждому именованному аргументу. Присваивание значения именованному аргументу записывается с помощью знака ":=". Именованные аргументы можно записывать в произвольном порядке. Следующие строки имеют одинаковый результат:

MsgBox Prompt:= "Здравствуй, мир!", Title:= "Окно приветствия"MsgBox Title:= "Окно приветствия", Prompt:= "Здравствуй, мир!"

Следующий оператор выдает такое же диалоговое окно, как на рис. 2.4.3:

User_Input = InputBox(Prompt:="Введите имя файла: ", _ Title:="Создать файл", Default:="NEWFILE")

Дата добавления: 2014-01-05