назад | содержание | вперед

Добавление методов в класс

Добавление метода в класс осуществляется гораздо проще. Фактически необходимо просто объявить функцию или процедуру типа public в классе. Практически метод добавляется с помощью диалогового окна Add Procedure (Добавить процедуру), которое показано на рис. 15.3. При этом переключатель Type (Тип) необходимо установить в положение Sub (Процедура) или Function (Функция), а переключатель Score (Область видимости) в положение Public.

Замечание

Напомним, что диалоговое окно Add Procedure вызывается командой Add Procedure меню Tools (Сервис) при открытом редакторе кода. При помощи Add Procedure в текст модуля добавляется только шаблон метода, который затем необходимо программировать вручную.

В качестве примера добавим в класс с is Department метод SayAboutDep, возвращающий информацию о подразделении. Для этого, используя диалоговое окно Add Procedure, введем в модуль класса следующий код:

Public Function SayAboutDep() As String

' Вывод общей информации об объекте

SayAboutDep = sDepName + ". Руководитель: " + sDepManager

End Function

Для проверки работы метода в событие click кнопки Commandl приложения Myciass вместо строки:

MsgBox sSayAboutObj,, "Сведения об объекте"

введите следующую строку;

MsgBox objDep.SayAboutDep(),, "Сведения об объекте"

Теперь при нажатии на кнопку Сведения об объекте метод SayAboutDep возвращает общую информацию об объекте.

назад | содержание | вперед