назад | содержание | вперед
Добавление методов в класс
Добавление метода в класс осуществляется гораздо проще. Фактически необходимо просто объявить функцию или процедуру типа 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 возвращает общую информацию об объекте.
назад | содержание | вперед