Тема.   Функция вывода сообщений Msgbox.  Использование значения функции при реализации выбора и повторения в проектах.

1. Функция вывода сообщений Msgbox() позволяет выводить сообщения с помощью окна сообщений, в котором можно разместить  определенны набор кнопок и информационный значок о типе сообщения:

 Msgbox("Сообщение", ЧисКод инф.значка + ЧисКод опред.кнопки, "Заголовок окна"),

где   ЧисКод инф.значка + ЧисКод опред.кнопки  определяется  с помощью таблицы значений кодов:

Пример: 

MsgBox("проверка", 64 + 4, "использование MsgBox при организации ветвления")

2. Но так как  Msgbox - функция, то правильнее будет использовать ее так:

•  завести для нее целую переменную, и присвоить ей значение функции Msgbox;
• значение функции Msgbox  - это код нажатой кнопки в окне сообщения, значение которого можно найти в таблице кодов кнопок.

Таблица  кодов кнопок:

Рассмотрим тему занятия на примере создания проекта.

  Алгоритм проекта.

  Программный код проекта.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim kod As Short

        kod = MsgBox("проверка", 64 + 4, "использование MsgBox при организации ветвления")

        If  kod = 6  Then MsgBox("Нажата кнопка 'Да'", , "результат выбора") : Label1.Text = "Нажата кнопка 'Да' "

        If  kod = 7  Then MsgBox("Нажата кнопка 'Нет'", , "результат выбора") : Label1.Text = "Нажата кнопка 'Нет' "

    End Sub