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

715

Пример 19.37. Вывод сообщения о значении переменной

Текст программы	Комментарий
Option Explicit	Обязательность объявления всех перемен-
	ных в модуле перед их использованием
Sub Msg_Priim()	Объявление процедуры
Dim a As Single	Объявление переменной
Randomize	Запуск генератора случайных чисел
a=rnd	Присвоение переменной значения
	случайного числа
MsgBox "Значение случайного	Вывод сообщения
числа " & Str(a)
End Sub	Конец процедуры

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

Рис. 19.23. Окно-сообщение

2. Окно-сообщение с командными кнопками Общий формат оператора:

MsgBox("cTpoKa_coo6irjeHHe"[, <кнопки>] [, "заголовок_окна"] [, <файл-подсказки>, <контекст>])

где <строка_сообщение> — максимальная длина строки—1024 символа;

<кнопки> — число, являющееся суммой кодов выбранных типов кнопок и

пиктограммы, или имена кнопок; <заголовок_окна> — строка символов; <файл-подсказки> — имя файла-подсказки для контекстно-зависимой помощи при работе в

окне, строка символов; <контекст> — число, которое назначено подсказке для данного окна.

Коды задания командных кнопок и пиктограмм в функции MsgBox() приведены в табл. 19.7. Функция MsgBox() возвращает код (число), соответствующий нажатой кнопке.

Таблица 19.7. Список видов командных кнопок и их кодов

Код	Константа	Описание
		Коды командных кнопок
0	vbOKOnly	OK
1	vbOKCancel	OK, Отмена
2	vbAbortRetrylgnore	Прекратить, Повторить, Игнорировать
3	vbYesNoCancel	Да, Нет, Отмена
4	vbYesNo	Да, Нет
5	vbRetryCancel	Повторить, Отмена

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

Код	Константа	Описание
		Коды активности по умолчанию
0	vbDefaultButtonl	Активная первая
256	vbDefaultButton2	Активная вторая
512	vbDefaultButton3	Активная третья
		Коды пиктограмм
16	vbCritical	Важное сообщение
32	vbQuestion	Предупредительный запрос
48	vbExclamation	Предупредительное сообщение
64	vblnformation	Информационное сообщение
		Коды модальности
0	vbApplicationModal	Программное модальное описание (требуется обязательный ответ,
		работа приложения приостанавливается)
4096	vbSystemModal	Системное модальное описание (требуется обязательный ответ, работа
		всех приложений приостанавливается)

Пример 19.38. Формирование диалогового окна с кнопками

Текст программы	Комментарий
Option Explicit	Обязательность объявления всех
	переменных в модуле перед их
	использованием
Sub Msg_Priim()	Объявление процедуры
Dim Response As Integer	Объявление переменной
Dim Msg As String
Dim Title As String
Dim Help As String
Dim Style As Integer
Dim Ctxt As Integer
Msg = "Вы хотите продолжить ?"	Строка сообщения
Style = 35	Кнопки для окна (vbYesNoCancel +
	+ vbDefaultButtonl + vbQuestion)
Title = "Пример окна-сообщения"	Заголовок окна
Help = "DEMO.HLP"	Имя файла-подсказки
Ctxt = 0	Номер контекста внутри файла-под-
	сказки
Response = MsgBox(Msg; Style; Title;	Присвоение переменной кода ответа
Help; Ctxt)
End Sub	Конец процедуры

Рис. 19.24. Окно-сообщение с кнопками

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