Диалоговые окна для обмена сообщениями

 

Встроенная функция MsgBox() обеспечивает создание диалоговых окон различных типов.

1. Простое окно-сообщение

 

MsgBox (" строка_сообщения")

 

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

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

 

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

 

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

 

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

 

2. Окно-сообщение с командными кнопками

Общий формат оператора:

 

MsgВох(" строка_сообщение" [, < кнопки> ] [, " заголовок_окна" ] [, < файл-подсказки>, < контекст> ])

 

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

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

пиктограммы, или имена кнопок;

< заголовок_окна> - строка символов;

< файл-подсказки> - имя файла-подсказки для контекстно-зависимой помощи при работе в

окне, строка символов;

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

 

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

 

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

 

Код	Константа	Описание
Коды командных кнопок
	vbOKOnly	OK
	vbOKCancel	OK, Отмена
	vbAbortRetryIgnore	Прекратить, Повторить, Игнорировать
	vbYesNoCancel	Да, Нет, Отмена
	vbYesNo	Да, Нет
	vbRetryCancel	Повторить, Отмена

 

Пример 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 Title = " Пример окна-сообщения" Help = " DEMO.HLP" Ctxt = 0 Response = MsgBox(Msg; Style; Title; Help; Ctxt) End Sub	Обязательность объявления всех переменных в модуле перед их использованием Объявление процедуры Объявление переменной Строка сообщения Кнопки для окна (vbYesNoCancel + + vbDefaultButtonH vbQuestion) Заголовок окна Имя файла-подсказки Номер контекста внутри файла-подсказки Присвоение переменной кода ответа Конец процедуры

 

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

 

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