19.2. Создание приложений на языке visual basic for applications

717

Диалоговые окна для ввода данных

Функция InputBoxO обеспечивает формирование окна для вывода строки сообщения и ожидания ввода строки символов или нажатия кнопки. Возвращает содержание текстового блока:

1прихВох(<строка_сообщение> [,<заголовок_окна>][,<текст_по_умолчанию>] [,Хпоз][,Упоз][, <файл-подсказки>, <контекст>])

где <текст_по_умолчанию> — строка символов, выводимая в текстовом блоке (может быть

пустой); Хпоз, Упоз — позиция левого верхнего угла окна.

Пример 19.39. Формирование окна ввода

Текст программы	Комментарий
Option Explicit	Обязательность объявления всех
	переменных в модуле перед их
	использованием
Sub MsgJnpO	Объявление процедуры
Dim Response As String	Объявление переменной
Dim Message As String
Dim Default As String
Dim Title As String
Dim Help As String
Dim Style As Integer
Dim Ctxt As Integer
Message = "Введите Фамилию, Имя и	Строка-сообщение
Отчество студента"
Title = "Пример окна для ввода"	Заголовок окна
Default = "Смирнов Игорь Александрович"	Текст по умолчанию
Response = InputBox(Message; Title;
Default; 100; 100)	Присвоение переменной символьного
	типа результата ввода
End Sub	Конец процедуры

В результате выполнения программы будет выведено диалоговое окно (рис. 19.25).

Рис. 19.25. Диалоговое окно для ввода данных

Диалоговые окна пользователей

Диалоговые окна пользователей обеспечивают ввод и редактирование данных файлов и таблиц. Для создания диалогового окна выполняется команда ВСТАВКА, Макрос с указанием типа вставляемого листа — Диалог. Экран содержит основу для построения диа­логового окна пользователя, а также панель инструментов Формы (рис. 19.26) для разме­щения и настройки (форматирования) элементов окна.

718 Глава 19. Инструментальные средства пользователя в среде microsoft office

Рис. 19.26. Панель инструментов Формы Таблица 19.8. Состав панели инструментов Формы

В диалоговом окне могут размещаться элементы произвольного вида, которые соз­дают наборы объектов. Доступ к конкретному элементу — по имени набора и имени или порядковому номеру элемента внутри набора.

Метки не могут редактироваться пользователем в процессе работы с диалоговым окном, но могут изменяться программным путем с помощью свойства Caption объекта Labels Q.

Пример 19.40.

Sheets("<HMfl_flHCTa_jiHanora>"). Labels ("<имя_объекта_метки>") .Сарйоп=строка текста"

Поле ввода является многострочным, содержит текст, который можно редактиро­вать. Поле ввода входит в набор EditBoxesQ, его можно редактировать и программным способом.

Пример 19.41.

Sheets("<HMH_flHCTa_flHanora>").EditBoxes("<HMa_OKHa>").Text="cTpoi<a текста"

Кроме того, этот тип элемента диалогового окна обладает следующими свойствами: MultyLine =Trae — в случае многострочности поля ввода;

InputType — ограничение типа данных, вводимых в окно (xlFormula, xllnteger, xllNumber, xlReference, xlText). Рамка группы обеспечивает объединение нескольких элементов диалогового ок­на. Этот тип окна изображается в первую очередь, а затем внутри него размещаются другие