 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
Задание 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 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
Дата публикования: 2014-12-28; Прочитано: 152 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
