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