Основы офисного программирования и язык 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

Пример 5.1.

Закрыть окно






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



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