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


Пример 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




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



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