Функция MsgBox для вывода диалогового окна.
Первым делом, нужно, чтобы программа вела диалог с тем идиотом, которому ты всучишь свой шедевр. Для этого существую диалоговые окна различного содержания. Выводятся они на экран функцией MsgBox. Входят в нее такие аргументы:
MsgBox ("сообщение", число и тип кнопок, "заголовок окна", "имя файла справки если есть", номер раздела справки если есть имя файла)
Два последних аргумента необязательны. Они используются, если у тебя создан файл помощи (Help).
"сообщение" - это сообственно сообщение пользователю, например, "Ну ты дурак, нет такого файла" (максимальная длина приблизительно 1024 символа)
"заголовок окна" - это то, что выводится в верхней полосочке (заголовке) окна, например, "Это твоя ошибка"
А вот число и тип кнопок разберем подробнее. Это число получается из складывания трех чисел или констант (кому как удобнее):
количество и тип кнопок
вид сообщения (какой значок будет в окне)
какая кнопка является основной (по умолчанию - первая)
Тип кнопок Вид сообщения Основная кнопка константа или число выводимые кнопки константа или число значок сообщения константа или число номер основной кнопки
vbOKOnly 0
VbCritical 16
VbDefaultButton1 0 первая
VbOKCancel 1
VbQuestion 32
VbDefaultButton2 256 вторая
VbAbortRetryIgnore 2
VbExclamation 48
VbDefaultButton3 516 третья
VbYesNoCancel 3
VbInformation 64
VbDefaultButton4 768 четвертая
VbYesNo 4
VbApplicationModal (на уровне приложения) 0 модальное окно ( не свернется, пока на кнопку не нажмешь)
VbRetryCancel 5 VbSystemModal (на уровне системы) 4096
Теперь, например, если нам нужно вывести на экран предупреждающий запрос с тремя кнопками Да, Нет, Отмена и чтоб главной была кнопка Нет, мы пишем цифру 3+48+256 число 307:
PushButton = MsgBox ("Да ты баран! Нажми Нет!", 307, "Нельзя так делать!!!")
или если использовать константы
PushButton = MsgBox("Да ты баран! Нажми Нет!", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Нельзя так делать!!!")
Видишь, Выделена кнопка "Нет". Значит она главная. Это если пользователь давнет клавишу "Enter", то сработает "Нет", а не "Да"
PushButton - это должна быть объявленная переменная. Это я придумал для нее такое имя.В нее записывается число, обозначающее, какую же кнопку нажал пользователь, чтобы мы могли заставить нашу программу среагировать как-нибудь. А числа (вместо них тоже можно писать константы) эти соответствуют следующим кнопкам:Константа Число Какая кнопка нажата
vbOK 1 OK
vbCancel 2 Отмена (Cancel)
vbAbort 3 Прервать (Abort)
vbRetry 4 Повторить (Retry)
vbIgnore 5 Пропустить (Ignore)
vbYes 6 Да (Yes)
vbNo 7 Нет (No)
Дто для того, чтобы в диалоговом окне писать сообщение в несколько строк, используется CHR(13). А как раз 13 - это ASCII-код перевода строки.
|
