3. Функция MsgBox()
Если в приложении необходимо не только что-либо сообщить пользователю, но и получить информацию о том, какое решение принял пользователь, используется функция MsgBox. Эта функция не только отображает окно сообщения, но еще и возвращает некоторое значение (ответ пользователя о том, какое он принял решение).
Формат функции MsgBox():
Возвращаемое значение = MsgBox Текст сообщения [,Константа] [,Заголовок]
Возвращаемое значение позволяет определить, какую кнопку нажал пользователь.
В таблице 12.2 содержатся значения, возвращаемые функцией MsgBox.
Таблица 12.2 – Значения функции MsgBox
Константа |
Значение |
Нажата кнопка |
vbOk |
1 |
<OK> |
vbCancel |
2 |
<Отмена> |
vbAbort |
3 |
<Стоп (Прервать)> |
vbRetry |
4 |
<Повторить> |
vbIgnore |
5 |
<Пропустить> |
vbYes |
6 |
<Да> |
vbNo |
7 |
<Нет> |
Практическая часть
Задание 1. Создание проекта, запрашивающего данные пользователя.
Постановка задачи.
Разработать проект, в котором будет запрашиваться имя пользователя, а потом печататься маленькое приветствие на форме с использованием возвращаемого значения функции InputBox.
Внешний вид окна диалога и итоговая форма представлены на Рис.12.2 и 12.3.
Ход работы.
Создайте в своей папке папку Лабораторная_работа_№12, а в ней папку 12.1
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Заголовку формы Caption задайте значение «Приветствие», а свойству Name - frmПриветствие.
Разместите на форме 1 компонент CommandButton.
Задайте его свойству Name значение «CmdЩелкни», а свойству Caption – «Щелкни сюда».
Щелкните два раза по кнопке и напишите обработчик события Click (необходимые комментарии приведены после апострофов):
Private Sub CmdЩелкни_Click()
Dim name1 As String
name1 = InputBox("Введите свое имя", "Имя") 'присвоили переменной
'name1 значение, введенное пользователем в окно InputBox
With frmПриветствие 'задаем настройки шрифта
Font.Bold = True
Font.Size = 15
Font.Name = "Comic Sans MS"
End With
frmПриветствие1.Print Tab(5); "Здравствуйте, " + name1
frmПриветствие 1.Print Tab(5);
frmПриветствие.Print Tab(5); "Рады приветствовать Вас в нашем проекте!"
End Sub
Сохраните проект (выбрав File – Save frmПриветствие.frm и Save Приветствие.vbp) в папке 12.1.
Проверьте работоспособность проекта, запустив его на выполнение.
Создайте exe-файл программы с помощью команды File → Make Приветствие.exe.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Приветствие.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Задание 2. Создание проекта, запрашивающего данные пользователя.
Постановка задачи.
Разработать проект, в котором будет запрашиваться имя пользователя, а текст приветствия выводился в окне MessageBox. Реакцию программы на нажатие той или иной кнопки не предусматривать.
Ход работы.
Создайте в папке Лабораторная_работа_№12 папку 12.2
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Заголовку формы Caption задайте значение «Приветствие - 2».
Разместите на форме 1 компонент CommandButton.
Задайте его свойству Name значение «CmdПриветствие», а свойству Caption – «Щелкни сюда».
Щелкните два раза по кнопке и напишите обработчик события Click (необходимые комментарии приведены после апострофов):
Private Sub CmdПриветствие_Click()
Dim name1 As String
name1 = InputBox("Введите свое имя", "Имя") 'присвоили переменной
'name1 значение, введенное пользователем в окно InputBox
MsgBox "Здравствуйте, " + name1 + "! Рады приветствовать Вас в нашем проекте!", vbOKOnly + vbInformation, "Привет!!!"
End Sub
Сохраните проект в папке 12.2.
П
роверьте
работоспособность проекта, запустив
его на выполнение. Результат работы –
на Рис.12.4.
Создайте exe-файл программы с помощью команды File → Make Приветствие.exe.
Измените последнюю строку программы MsgBox:
MsgBox name1 + "! Произошла ошибка!", vbAbortRetryIgnore + vbCritical, "Привет!!!"
Проверьте работоспособность проекта, запустив его на выполнение. Результат работы – на Рис.12.5.
Измените последнюю строку программы MsgBox:
MsgBox name1 + "! Вы хотите пройти тестирование?", vbYesNoCancel + vbQuestion, "Привет!!!"
П
роверьте
работоспособность проекта, запустив
его на выполнение. Результат работы –
на Рис.12.6.
Измените последнюю строку программы MsgBox:
MsgBox name1 + "! Сейчас Вы будете проходить тестирование!", vbRetryCancel + vbExclamation, "Привет!!!"
П
роверьте
работоспособность проекта, запустив
его на выполнение. Результат работы –
на Рис.12.7.
Сохраните изменения в проекте (выберите любой вариант окна MsgBox для сохранения)
Выйдите из среды Visual Basic.
Запустите на выполнение файл Приветствие-2.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Задание 3. Создание проекта, использующего функцию MsgBox().
Постановка задачи.
Разработать проект, в котором будет запрашиваться имя пользователя, а в результате нажатия кнопки «Да» или «Нет» в окне MessageBox происходило определенное событие (т.е. предусмотреть реакцию программы на то или иное действие).
Ход работы.
Создайте в папке Лабораторная_работа_№12 папку 12.3
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Заголовку формы Caption задайте значение «Приветствие - 3».
Разместите на форме 1 компонент CommandButton.
Задайте его свойству Name значение «CmdПриветствие», а свойству Caption – «Щелкни сюда».
Щелкните два раза по кнопке и напишите обработчик события Click (необходимые комментарии приведены после апострофов):
Private Sub CmdПриветствие_Click()
Dim name1 As String
Dim x As Integer
name1 = InputBox("Введите свое имя", "Имя") 'присвоили переменной
'name1 значение, введенное пользователем в окно InputBox
x = MsgBox("Здравствуйте, " + name1 + "! Вы готовы пройти тестирование?", vbYesNo + vbQuestion, "Тестирование!")
If x = 6 Then
CmdПриветствие.Visible = False
Form1.Print "Нажата кнопка <Да>"
Else
CmdПриветствие.Visible = False
Form1.Print "Нажата кнопка <Нет>"
End If
End Sub
Сохраните проект в папке 12.3. и создайте exe-файл проекта.
Проверьте работоспособность проекта, запустив его на выполнение.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Приветствие-3.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Подведем итоги
В работе были использованы новые
функции:
InputBox (ввод данных через окно)
MessageBox (выдача сообщений через окно)
встроенные константы:
vbYesNo (кнопки <Да>, <Нет>)
vbOkOnly(кнопка <ОК>)
vbOkCancel (кнопки <Да>, <Отмена>)
vbAbortRetryIgnore (кнопки <Прервать>, <Повторить>, <Пропустить>)
vbYesNoCancel (кнопки <Да>, <Нет>, <Отмена>)
vbRetryCancel (кнопки <Повторить>, <Отмена>)
vbQuestion (отображает пиктограмму «Вопрос»)
vbCritical (отображает пиктограмму «Стоп (ошибка)»)
vbExclamation (отображает пиктограмму «Осторожно»)
vbInformation (отображает пиктограмму «Восклицательный знак (информация)»)
Вопросы для контроля
1. Для чего в приложениях используется окно InputBox? MessageBox?
2. Перечислите константы кнопок, использующихся в диалоговых окнах
3. Перечислите и укажите назначение констант, используемых для отображения пиктограмм в диалоговых окнах