Вызов процедур на исполнение

Создание процедуры

Для создания процедуры выполните следующее:

• 1 способ - дважды щелкните по нужному элементу управления или форме. Откроется окно кода, а в нем появится заголовок и окончание процедуры.
  Если необходимо другое событие, то его выбирают с помощью списка в верхнем правом углу окна кода.
• 2 способ - откройте окно кода, выполните Инструменты → Добавить процедуру → укажите имя и параметры процедуры → Ok.
• 3 способ - откройте окно кода и введите нужные строки с клавиатуры.

В результате должно получиться:

Private Sub Command1_Click()

End Sub

1. Чтобы выполнилась процедура обработки события, это событие должно произойти.
2. Для выполнения произвольной процедуры в теле другой процедуры указывают имя этой процедуры.
   
   Private Sub Command1_Click()

Kvadrat

End Sub

Здесь при нажатии на кнопку Command1 возникает событие Click (щелчок мышью) и вызывается и выполняется процедура Kvadrat.

Код процедуры выполняется построчно и сверху вниз.

Практическое задание №1

1. Создайте новый проект, добавьте на форму кнопку, дважды щелкните по ней. Рассмотрите заголовок и окончание процедуры, между ними впишите строку:
   
   MsgBox "Процедура выполнена"

Запустите программу, щелкните по кнопке Command1, проверьте работу программы.

1. Создайте произвольную процедуру, для этого в Окне кода ниже кода имеющейся процедуры допишите код:
   
   Sub Proc ()

MsgBox "Вторая процедура выполнена"

End Sub

Запустите программу, щелкните по кнопке Command1.

Ничего нового не происходит, т.к. вторая процедура не вызвана.

Добавьте в первую процедуру перед ее окончанием пустую строку и впишите в нее наименование второй процедуры (без скобок).

Запустите программу, щелкните по кнопке Command1.

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