Private Sub CommandButton1_DblClick (ByVal Cancel

As MSForms.ReturnBoolean)

End Sub

В пустую строку, находящуюся между заголовком и концом процедуры, записать программный код, который выполняет действие, обратное действию, описанному в предыдущей процедуре, – скрывает надпись со сведениями об авторе. Этот код выглядит следующим образом:

Label2.Visible=False

В итоге для описания реакции экранной кнопки CommandButton1 на двойной щелчок левой кнопкой мыши должна быть сформирована процедура следующего вида:

Private Sub CommandButton1_DblClick (ByVal Cancel

As MSForms.ReturnBoolean)

Label2.Visible=False

End Sub

На этом программирование кнопки CommandButton1 завершается.

Возвращаемся к основной экранной форме, для чего можно использовать команду меню View → Object.

15. Написать программный код для экранной кнопки CommandButton2. Для чего, дважды щелкнуть мышью по этой кнопке, и на экране появится окно кода с шаблоном уже для третьей процедуры, имеющим следующий вид:

Private Sub CommandButton2_Click()

End Sub

Этот шаблон аналогичен шаблону первой процедуры, за исключением названия объекта. В пустую строку между заголовком и концом процедуры нужно вставить команду, которая будет закрывать приложение при одиночном щелчке мышью по экранной кнопке CommandButton2. Эта команда состоит из одного служебного слова и выглядит так:

End

А вся процедура для описания реакции второй экранной кнопки на щелчок левой кнопки мыши должна выглядеть так:

Private Sub CommandButton2_Click()

End

End Sub

На этом завершается этап разработки программного кода. Ниже приводим весь текст программы целиком:

Private Sub CommandButton1_Click()

Label2.Visible = True

End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As

MSForms.ReturnBoolean)

Label2.Visible = False

End Sub

Private Sub CommandButton2_Click()

End

End Sub

16. После завершения разработки программы, необходимо ее запустить на выполнение и проверить ее работы. Для этого нужно использовать команду меню Run → Run или просто щёлкнуть треугольную стрелку в панели инструментов.

На экране должно появиться рабочее окно приложения, внешний вид которого приведён на рис. 2.

Рис. 2

ПРИМЕЧАНИЕ. Обратите внимание на то, что при переходе программы в режим выполнения исчезла покрывавшая основное окно координатная сетка, а также стала невидимой надпись со сведениями об авторе.

17. Протестировать созданную программу. Для этого:

a. один раз щелкаем мышью на экранной кнопке «Сведения об авторе», – надпись со сведениями об авторе должна появиться ниже этой кнопки.

b. Затем дважды щелкаем ту же экранную кнопку, – надпись должна исчезнуть.

c. завершаем работу приложения одиночным щелчком на экранной кнопке «Выход».

ПРИМЕЧАНИЕ. Если где-то в программном коде разработчик допустил ошибку, то при запуске программы на выполнение появится сообщение об ошибке. Такое сообщение выводится в виде диалогового окна, содержащего текст: «Compile error» (Ошибка компиляции). Ниже, как правило, выводится дополнительная информация о конкретном типе ошибки. Кроме того, как правило, та строка, в которой содержится ошибка, выделяется в окне кода синим цветом, что существенно облегчает поиск этой ошибки. После нахождения и исправления ошибки можно повторно запустить эту программу на выполнение.

18. Когда устранены все ошибки, и программа при тестировании показала свою работоспособность, она должна быть сохранена. Поскольку программа на Visual Basic сохраняется вместе с исходным файлом, то нужно закрыть систему программирования одним из указанных выше способов (через меню File или через закрывающую кнопку в строке заголовка), а затем закрыть файл Первая программа.doc с сохранением сделанных в нем изменений.

О завершении работы сообщите преподавателю и продемонстрируйте работу Вашей программы.

Контрольные вопросы

1. Как войти в среду VBA?

3. Как изменить тон фона?

4. Как создать надпись?

5. Как запустить проект на исполнение?

6. Как сохранить проект?

7. Как сохранить проект, чтобы он был доступен из любого файла?

8. Как сделать надпись невидимой?

9. Можно ли поменять фон экранной формы после сохранения проекта?

10. Что такое CommandButton?

Литература/источники