End Sub. 8. Сохраните проект в папке 12.2

8. Сохраните проект в папке 12.2.

9. Проверьте работоспособность проекта, запустив его на выполнение. Результат работы – на Рис.12.4.

10. Создайте exe-файл программы с помощью команды File → Make Приветствие.exe.

11. Измените последнюю строку программы MsgBox:

MsgBox name1 + "! Произошла ошибка!", vbAbortRetryIgnore + vbCritical, "Привет!!!"

12. Проверьте работоспособность проекта, запустив его на выполнение. Результат работы – на Рис.12.5.

13. Измените последнюю строку программы MsgBox:

MsgBox name1 + "! Вы хотите пройти тестирование?", vbYesNoCancel + vbQuestion, "Привет!!!"

14. Проверьте работоспособность проекта, запустив его на выполнение. Результат работы – на Рис.12.6.

15. Измените последнюю строку программы MsgBox:

MsgBox name1 + "! Сейчас Вы будете проходить тестирование!", vbRetryCancel + vbExclamation, "Привет!!!"

16. Проверьте работоспособность проекта, запустив его на выполнение. Результат работы – на Рис.12.7.

17. Сохраните изменения в проекте (выберите любой вариант окна MsgBox для сохранения)

18. Выйдите из среды Visual Basic.

19. Запустите на выполнение файл Приветствие-2.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Задание 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 "Нажата кнопка <Да>"

Дата добавления: 2014-12-23