Основы офисного программирования и язык VBA


Пример 5.1


'Класс Son - Наследник класса Father

Implements Father

Private Property Let Father_MyProperty(ByVal RHS As String)

'Реализация отложена

End Property

Private Property Get Father_MyProperty() As String

'Реализация отложена

End Property

Private Sub Father_MyPureMethod()

MsgBox ("It's the Son")

End Sub

Private Sub Father_MyRealMethod()

'Реализация отложена

End Sub

Public Sub SonNewMethod()

MsgBox ("It's the Son of his Father")

End Sub




Начало  Назад  Вперед



Книжный магазин