назад | содержание | вперед Добавление методов в класс Добавление метода в класс осуществляется гораздо проще. Фактически необходимо просто объявить функцию или процедуру типа public в классе. Практически метод добавляется с помощью диалогового окна Add Procedure (Добавить процедуру), которое показано на рис. 15.3. При этом переключатель Type (Тип) необходимо установить в положение Sub (Процедура) или Function (Функция), а переключатель Score (Область видимости) в положение Public.
В качестве примера добавим в класс с is Department метод SayAboutDep, возвращающий информацию о подразделении. Для этого, используя диалоговое окно Add Procedure, введем в модуль класса следующий код: Public Function SayAboutDep() As String ' Вывод общей информации об объекте SayAboutDep = sDepName + ". Руководитель: " + sDepManager End Function Для проверки работы метода в событие click кнопки Commandl приложения Myciass вместо строки: MsgBox sSayAboutObj,, "Сведения об объекте" введите следующую строку; MsgBox objDep.SayAboutDep(),, "Сведения об объекте" Теперь при нажатии на кнопку Сведения об объекте метод SayAboutDep возвращает общую информацию об объекте.
назад | содержание
| вперед
Поделитесь этой записью или добавьте в закладки |
Полезные публикации |