Диалоговые окна для обмена сообщениями
Встроенная функция 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.Окно-сообщение с кнопками
Дата добавления: 2015-11-28; просмотров: 751;