Программирование в IIS


Пример 1.1


'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

' constants to class

Private Const DEFAULT_COLOR = "Brown"

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

' locals to class

'holds the color of the chair

Private m_scolor As String

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Property Get color() As Variant

color = m_scolor

End Property

Public Property Let color(ByVal vNewValue As Variant)

m_scolor = vNewValue

End Property

Private Sub Class_Initialize()

'set default color on instantiation

m_scolor = DEFAULT_COLOR

End Sub




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