Самостоятельная работа

• Выполнить отладку представленного модуля.

• Разработать самостоятельно и отладить иной диалог.

Нетрудно сообразить, что диалог с однозначными ответами можно продолжать сколь угодно долго. Как правило, этого недостаточно. Часто нам требуется получить от пользователя информацию в виде текста (хотим узнать его имя или возраст). Это реализуется с помощью функции InputBox().

2. Функция InputBox()

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

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

Параметры функции представлены в табл. 4.6.

Таблица 4.38

Параметр	Описание параметра
Prompt	Обязательный параметр. Аналогично функции MsgBox().
Title	Аналогично функции MsgBox().
Default	Строковое выражение, отображаемое в поле ввода как используемое по умолчанию, если пользователь не введет другую строку. Если этот аргумент опущен, поле ввода изображается пустым.
Xpos	Числовое выражение, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана. Если этот аргумент опущен, диалоговое окно выравнивается по центру экрана по горизонтали.
ypos	Расстояние по вертикали между верхней границей диалогового окна и верхним краем экрана. Если этот аргумент опущен, диалоговое окно помещается по вертикали примерно на одну треть высоты экрана.

Примечание

• Если пользователь нажимает клавишу "OK" или "ENTER", функция InputBox() возвращает содержимое поля ввода. Если пользователь нажимает кнопку "Отмена", функция возвратит пустую строку ("").

Пример. В результате выполнения приведенной ниже процедуры на экран выводятся сначала левая, а затем, после ответа, правая панели рис. 4.5.

Public Sub vv()

aa = InputBox(Prompt:="Назовите Ваше имя, пожалуйста", _

Title:="Приветствие", Default:="Семен")

MsgBox ("Доброе утро, " & aa)

End Sub

Рис. 4.75. Приветствие

Самостоятельная работа

• Выполните отладку и апробирование приведенного модуля.

• Модифицируйте модуль, спрашивая у пользователя год рождения и отвечая, сколько ему сегодня лет. Здесь следует заметить, что функция InputBox() возвращает строку, несмотря на то, что вводится число. Поэтому для последующей обработки текст необходимо преобразовать в число (см. строковые функции).

• Добейтесь от пользователя, чтобы возраст не превышал 150 лет.

3. Ввод названия файла

В приложениях мы часто обращаемся к внешним файлам, где хранятся наши данные. Найти нужный файл для его последующего открытия в режиме диалога может помочь метод GetOpenFilename() объекта Application. Этот метод вызывает знакомый нам по меню "Файл" поисковый диалог и возвращает полное название выбранного файла. В общем случае метод имеет 5 параметров (FileFilter, FilterIndex, Title, ButtonText, MultiSelect ), но все они являются необязательными и чаще всего не используются. В то же время в качестве самостоятельной работы вам следует вызвать "справку" и ознакомиться с функциональным назначением параметров.

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

Public Sub сс()

FileName = Application.GetOpenFilename()

MsgBox ("Ваш FileName это " & FileName)

End Sub