Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Значения аргумента кнопки процедуры MsgBox

Читайте также:
  1. Gt; Запишите на ленту выходные процедуры
  2. II.2. Задача о назначениях.
  3. А. Количество избирателей для назначения проведения общероссийского референдума не менее ...
  4. Аргумента из художественных произведений к проблемам, затронутым в текстах на ЕГЭ
  5. В Госдуме не боятся роспуска: нет такой процедуры.
  6. В отсутствие контрацепции большинство цивилизаций Античности изобрели процедуры, призванные регулировать демографическую проблему.
  7. В самой женщине такой кнопки нет.
Константа Значение / код Отображаемые кнопки
VbOkOnly MsgBox("Привет!", vbOKOnly)=vbOk
VbOkCancel MsgBox ("Привет!", vbOKCancel)=vbOk
VbAbortRetryIgnore MsgBox ("Привет!", VbAbortRetryIgnore)=vbAbort
VbYesNoCancel MsgBox("Привет!", VbYesNoCancel)=vbYes
VbYesNo MsgBox ("Привет!", vbYesNo)=vbYes
VbRetryCancel MsgBox ("Привет!", VbRetryCancel)=vbretry

Примечание. Первые кнопки активны по умолчанию.

 

С помощью одного числа, являющегося суммой кодов нескольких параметров, можно одновременно установить определенную пиктограмму и определенную комбинацию кнопок, размещенных на панели сообщений. Например, число 36 можно рассматривать как сумму чисел 32 (код пиктограммы «Вопрос») и 4 (код комбинации кнопок Да, Нет).

В процессе использования условно-бесплатных программ пользователю часто предлагается зарегистрироваться. Процесс регистрации достаточно просто можно запрограммировать.

Dim bytA As Byte

Sub Command1_Click()

bytA = MsgBox("Вы хотите зарегистрироваться?", _

36, "Вопрос")

Form1.Print bytA

End Sub

Функция MsgBox выводит панель сообщений с текстом, пиктограмой вопроса и кнопками Да, Нет. Нажатие на кнопку приводит к определению значения функции, зависящего от выбранной кнопки.

Таблица 6. Значения функции MsgBox

Значения функции Нажатая кнопка
  ОК
  Отмена
  Стоп
  Повтор
  Пропустить
  Да
  Нет

Далее значение функции MsgBox присваивается целочисленной переменной bytA (нажатие на кнопку Да соответствует числу 6) и печатается на форме.

Рис. 11. Использование функции MsgBox

Пример

Создать форму, имитирующую простейшую игру в орла и решку. Игрок выставляет флажок вместо подбрасывания монеты, а компьютер после нажатия кнопки Бросание монеты запускает случайное число, соответствующее орлу или решке. При совпадении выигрывает компьютер, при несовпадении – игрок. Все действия сопровождаются всплывающими диалоговыми окнами.


Дата добавления: 2015-10-29; просмотров: 78 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Окна рабочей среды Access| Создание базы данных

mybiblioteka.su - 2015-2024 год. (0.006 сек.)