Задание 3. Создание проекта, использующего функцию MsgBox().
Постановка задачи.
Разработать проект, в котором будет запрашиваться имя пользователя, а в результате нажатия кнопки «Да» или «Нет» в окне MessageBox происходило определенное событие (т.е. предусмотреть реакцию программы на то или иное действие).
Ход работы.
1. Создайте в папке Лабораторная_работа_№12 папку 12.3
2. Запустите программу Microsoft Visual Basic 6.0.
3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
4. Заголовку формы Caption задайте значение «Приветствие - 3».
5. Разместите на форме 1 компонент CommandButton.
6. Задайте его свойству Name значение «CmdПриветствие», а свойству Caption – «Щелкни сюда».
7. Щелкните два раза по кнопке и напишите обработчик события Click (необходимые комментарии приведены после апострофов):
Private SubCmdПриветствие_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
Дата добавления: 2015-06-12; просмотров: 483;