Ввод и вывод информации

Для организации ввода и вывода информации в специальные окна сообщений, в VBA есть несколько специфических функций: InputBox и MsgBox.

Функция InputBox

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

Синтаксис:

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

Синтаксис функции InputBox содержит следующие именованные аргументы:

prompt - обязательный элемент. Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина строки prompt составляет приблизительно 1024 символов и зависит от ширины используемых символов. Строковое значение prompt может содержать нескольких физических строк. Для разделения строк допускается использование символа возврата каретки (Chr(13)), символа перевода строки (Chr(10)) или комбинацию этих символов (Chr(13) & Chr(10));

title - необязательный элемент. Строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения;

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

xpos - необязательный элемент. Числовое выражение, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана (в твипах). Если этот аргумент опущен, диалоговое окно выравнивается по центру экрана по горизонтали;

ypos - необязательный элемент. Числовое выражение, задающее расстояние по вертикали между верхней границей диалогового окна и верхним краем экрана (в твипах). Если этот аргумент опущен, диалоговое окно помещается по вертикали примерно на одну треть высоты экрана;

helpfile - необязательный элемент. Строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне. Если этот аргумент указан, необходимо указать также аргумент context;

context - необязательный элемент. Числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот аргумент указан, необходимо указать также аргумент helpfile.

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

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

В процедуре InB приведены различные способы получения сведений от пользователя с помощью функции InputBox. Если аргументы x и y опущены, окно диалога автоматически выравнивается по центру по соответствующим осям. Переменные I, Val содержит значения, введенное пользователем, если была нажата кнопка OK или клавиша ENTER. Если пользователь нажмет кнопку Отмена, функция возвратит пустую строку.

Sub InB()

Dim Message, Title, Default, Val

Dim I as Integer

‘

I = InputBox("Введите число от 1 до 3”,”Пример”, 1)

' Сообщение-подсказка.

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

' Заголовок.

Title = "Пример"

' Значение по умолчанию.

Default = "1"

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

Val = InputBox(Message, Title, Default)

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

Val = InputBox(Message, Title, , , , "DEMO.HLP", 10)

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

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

‘

End sub