Программирование в 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

Листинг 1.1. clsChair With Support to Read and Write the Color to the Instance Option Explicit

Закрыть окно

Содержание  Назад  Вперед