End Sub. Private Sub cmdCalc_Click ( )

Dim X,Y As Single

Private Sub cmdCalc_Click ()

End Sub

End

Private Sub cmdExit _ Click()

Первую и последнюю строку процедуры Visual Basic формирует автоматически. Между ними пользователь должен поместить оператор VB, приводящий к завершению работы программы – End.

Имя процедуры состоит из двух частей: имени объекта и имени события, объединенных знаком (_). Например: cmdExit_Click.

Процедура может содержать:

1. Операторы Visual Basic, вызывающие самостоятельные события, например: End, Beep.

2. Операторы, изменяющие свойства объекта.

3. Вызовы других процедур или функций.

Для присвоения значения свойству в программном коде используется следующий формат:

[имя объекта].[имя свойства]=[значение]

Например, чтобы вывести в текстовом поле текст " Привет ", необходимо изменить значение свойства Text текстового поля txtDisplay.

txtDisplay.Text ="Привет"

На этапе визуального проектирования при создании формы для каждого ее управляющего элемента Visual Basic создает заготовку стандартной процедуры, которая будет выполняться при активизации данного элемента (например, при щелчке мышью). При этом процедура связана именно с данной формой и не может быть вызвана другой формой программы. Поэтому сфера действия такой процедуры – Private. Автоматически формируется имя процедуры, состоящее из имя объекта_событие (). Например: Private Sub cmdExit_Click ().

В ходе написания программного кода может быть создана своя пользовательская процедура Sub или Function с помощью команды add Procedure в меню Tools. Такая процедура будет вызываться внутри программы, независимо от управляющих элементов формы. При этом сфера действия процедуры может быть либо Private, либо Public. Процедуру, объявленную как Private можно вызывать только из процедуры, принадлежащей той же форме. Процедуру же Public может вызывать любая процедура программы, к какой бы форме она ни относилась, и в каком бы файле из принадлежащих проекту ни содержалась. Так как программа может состоять из многих форм, следовательно, и многих файлов, процедура Public будет доступна отовсюду.

Пример. Пусть имеется форма, с помощью которой программа будет производить умножение. Эта форма содержит командную кнопку " Вычислить " и командную кнопку " Выход ", 2 текстовых поля для ввода значений сомножителей, а также текстовое поле, в которое будет выводиться результат вычисления.

X =Txt1. Text

Y=Txt2. Text

Multiply Х, У ' Вызов процедуры пользователя

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