Written by U1traDIMM 17.11.2001
thanks to В.Карпов.
И ничего смешного.Программировать нужно уметь качественно, в том числе и такие вещи.
Часто возникает необходимость при работе программы проинформировать пользователя о чем-либо или предоставить возможностьвыбора дальнейших действий. Для этого используется информационное окно - MsgBox(message box)
Синтаксис :
MsgBox(promt[, buttons] [, title] [, helpfile, context])
Аргументы :
promt - информация, которую вы хотите вывести.Максимально может содержать до 1024 символов. Возможно использование символов chr(10) и chr(13).
buttons - сумма значений определяющая тип и число кнопок.
title - аргумент типа String, заголовок окна.Если он опущен, то заголовком является имя приложения.
help,context - отвечают за справочный файл. Я не использую.
Константы Описание
vbOkOnly Отображается только кнопка ОК.
vbOkCancel Отображаются кнопки ОК и Cancel.
vbAbortRetryIgnore Отображаются кнопки Abort, Retry и Ignore.
vbYesNoCancel Отображаются кнопки Yes, No и Cancel.
vbYesNo Отображаются кнопки Yes и No.
vbCritical Окно имеет значок "Запрет".
vbQuestion Окно имеет значок "Вопрос".
vbExclamation Окно имеет значок "Предупреждение".
vbInformation Окно имеет значок "Информация".
vbDefaultButton1 Установка кнопки по умолчанию.
vbSystemModal Остановка выполнения проги до получения результата.
|
Пример
Private Sub Form_Load()
Dim promt,button,title,helpfile,context,result
promt = "Что ты смотришь на меня?"
button = vbYesNo + vbCritical
title = "Gibbon demo"
Helpfile = "Demo.hlp"
context = 20
result = MsgBox(promt,button,title,helpfile,context)
If result= vbYes then
.......... ′ Выполнить если нажата Yes
End if
If result= vbNo then
.......... ′ Выполнить если нажата No
End if
Ens Sub
|
