Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 68 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

1.4. Программирование на VBA 69
3
контекст — это число, определяющее номер раздела в файле контекстно-
зависимой Справки.
Эта функция возвращает в качестве результата либо введенную пользователем
в поле ввода строку, если диалог был завершен нажатием кнопки OK, либо
пустую строку, если пользователь нажал кнопку Отмена.
Например, следующий оператор присваивает переменной myString
введенное пользователем значение:
myString = InputBox("Введите число от 1 до 100:", _
"Ввод данных")
Рис. 1.3-4.
Диалоговое окно, выведенное с
помощью функции
InputBox
Но если, например, процедура будет производить печать документа (используя
метод PrintOut) может понадобиться узнать, сколько копий или сколько
страниц документа пользователь желает распечатать. Для получения этой
информации можно использовать функцию InputBox, но, как правило, проще
вывести диалоговое окно Print.
Многие функции VBA известны как эквиваленты диалоговых окон, так как они
позволяют осуществить выбор тех же опций, что и встроенные диалоговые
окна приложений Microsoft Office. Но при их вызове значения опций должны
быть известны заранее, активный диалог с пользователем для определения
опций этими функциями не предусматривается. Возможность вызова
встроенных диалоговых окон компенсирует этот недостаток.
Встроенные диалоговые окна являются Dialog-объектами, которые
представляют собой группу более чем 200 встроенных в приложения Microsoft
Office диалоговых окон. Для отсылки к определенному диалоговому окну
используются заранее заданные константы. Все имена констант можно найти с
помощью инспектора объектов VBA (
¾
Вид
¾
Просмотр объектов
). Для вывода
на экран какого-либо из диалоговых окон используют метод Schow Dialog-
объектов. Например, для вывода в Excel диалогового окна Print:
Application.Dialogs(xlDialogPrint).Schow
Если пользователь нажимает кнопку Cancel для выхода из диалога, метод
Schow возвращает значение False. Это значит, что можно использовать
Schow внутри if-оператора для определения действия пользователя.
If Not Application.Dialogs(xlDialogPrint).Schow Then
MsgBox "Файл не распечатан"
End if

Страницы