Пример 5.4
Option Explicit 'Класс Машина 'Свойства класса Private Марка As String Private ДатаВыпуска As Date Private Цвет As String 'Конструкторы класса Private Sub Class_Initialize() Марка = "Форд" ДатаВыпуска = "20.07.1925" Цвет = "Вишневый" End Sub Public Sub НоваяМашина(M As String, D As Date, C As String) Марка = M ДатаВыпуска = D Цвет = C End Sub 'Методы класса Public Sub PrintDataCar() Debug.Print "Марка = ", Марка Debug.Print "ДатаВыпуска = ", ДатаВыпуска Debug.Print "Цвет = ", Цвет End Sub Public Property Get МаркаМашины() As String МаркаМашины = Марка End Property Public Property Get ЦветМашины() As String ЦветМашины = Цвет End Property Public Property Get ДатаВыпускаМашины() As Date ДатаВыпускаМашины = ДатаВыпуска End Property |
Пример 5.4. |
Закрыть окно |