Лекция: Демонстрационные примеры

Приведем пример использования встроенных диалоговых окон.

Sub Тест()

Dim msg As String, style As Integer, title As String, x

Dim default

msg = “Мои первые шаги в VB!”

title = “Cообщение с одной кнопкой”

MsgBox msg,, title

title = “Cообщение с двумя кнопками”

style = vbYesNo

MsgBox msg, style, title

title = “Cообщение с двумя кнопками и значком”

style = vbYesNo + vbCritical

MsgBox msg, style, title

msg = “Введите число, кратное 16, не больше 64!”

title = ”Формируем окно для ввода информации ”

default = 16

x = InputBox (msg, title, default)

msg = “ Мои первые шаги в VB!”

title = “ Мое сообщение”

style = vbYesNo + x

MsgBox msg, style, title

End Sub

В результате выполнения приведенной ниже программы на экране последовательно будут появляться окна. В таблице отражены окна, соответствующие определенным участкам кода. Отметим, что значок, который будет изображен в последнем окне, определяется значением переменной x, вводимым с клавиатуры при появлении окна “Формируем окно для ввода информации”. В нашем случае было введено значение, равное 48.

Приведенная программа может быть переписана следующим образом:

Sub Тест1()

Dim x as Byte

MsgBox “Мои первые шаги в VB!”,, “Cообщение с одной кнопкой”

MsgBox “Мои первые шаги в VB!”, vbYesNo, “Cообщение с двумя кнопками”

MsgBox “Мои первые шаги в VB!”, vbYesNo + vbCritical, “Cообщение с двумя кнопками и значком”

x = InputBox (“Введите число, кратное 16, не больше 64!”, ”Формируем окно для ввода информации ”, 16)

MsgBox “ Мои первые шаги в VB!”, vbYesNo + x, “ Мое сообщение”

End Sub