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

Закрыть окно






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