Prompt
– строковое сообщение в ДО.
Buttons
– числовое выражение, представляющее сумму значений, которые указывают
число и тип отображаемых в ДО кнопок: 0 – ОК + отмена; 2 – стоп
+ повтор + пропустить; 3 – да + нет + отмена; 4 – да + нет; 5 –
повтор + отмена.
Остальные
пункты команды, как в InputBox.
Кроме
кнопок можно отображать коды значков:
16
– белый на сером;
48
– чёрный на светло-сером.
Пример.
Использование окна с кнопками Да, Нет, Отмена.
Sub
Три_кнопки ()
Dim
Сообщение As String: Dim Кнопкa As Integer
В
Переменной сообщение задаётся структура ДО
Сообщение
= vbYesNoCancel + vbQuestion + vbDefaultButton1
‘Кнопка
возвращает число при нажатии кнопки
Кнопка
= MsgBox (“Выберите Да, Нет, или Отмена?”, Сообщение, “Ещё пример”)
В
зависимости от полученного значения будет одно из сообщений из Select
Case:
Select
Case Кнопка
Case
vbYes: MsgBox “Выбрали Да”,vbInformation, “Ещё пример”
Case
vbNo: MsgBox “Выбрали Нет” vbInformation, “Ещё пример”
Case
vbCancel: MsgBox “Выбрали Отмена”, vbInformation, “Еще пример”
End
Select
End
Sub
Пример.
Использование в программе.
Sub
Msg_Priim()
Dim
a As Single
Randomize
a=rnd()
MsgBox
“Значение случ. числа” &cstr(a)
End
Sub
Пример.
Ввод значения.
x=
InputBox(“Введите х”, “Пример”) : y=x^2
Для
вывода в окне командной кнопки используются коды, приведенные в
табл.
3.3.
Рассмотрим
пример использования этих кодов.
Пример.
Использование
кодов кнопок.
Option
Explicit
Sub
Msg_Priim()
Dim
Response As Integer, Msg As String
Dim
Title As String
Dim
Help As String, Style As Integer, Ctxt As Integer
Msg=
«Вы хотите продолжить?»
Style
= 35’vbYesNoCancel+ vbDefaultButton1+ vbQuestion
Title=”Пример
окна сообщения” ‘ (Заголовок окна)
Help
= “DEMO.HLP” ‘Имя файла-подсказки
Ctxt
= 0 ‘Номер контекста внутри файла-подсказки
Response
= MsgBox ( Msg; Style; Title; Help; Ctxt )
присвоение переменной
кода ответа:End Sub
Программное
модальное описание (требуется обязательный ответ, работа приложения
приостанавливается).
Системное
модальное описание (требуется обязательный ответ – работа всех приложений
приостанавливается).
