Class  SampleClass
    Public  c
    Private Sub  Class_Initialize()
        Set Me.c = get_SampleConst()
    End Sub
End Class


'***********************************************************************
'* Function: get_SampleConst
'***********************************************************************
Dim  g_SampleConst

Function  get_SampleConst()
    If IsEmpty( g_SampleConst ) Then _
        Set g_SampleConst = new SampleConstClass
    Set get_SampleConst = g_SampleConst
End Function

Class  SampleConstClass
    Public  CutTag, ExistOnly

    Private Sub  Class_Initialize()
        CutTag = 1
        ExistOnly = 2
    End Sub

    Public Function  ToStr( Number )
        Select Case  Number
            Case CutTag : ToStr = "CutTag"
            Case ExistOnly : ToStr = "ExistOnly"
        End Select
    End Function
End Class

定義例：

使用例１：

Dim  o : Set o = new MakeVS
o.SetMakeProjContext  MakeProjContext, get_MakeVSProjType( TypeName )
o.MakeProj

Class　MakeVSProjType
　Public　VSVer　　　　　　 '// as integer
　Public　TargetPlatform　　'// as string
　Public　ProjectExtension　'// as string
End Class

Function　get_MakeVSProjType( TypeName )
　Dim　ret, items
　Select Case　TypeName　　　　　　　　'// VSVer, TargetPlatform
　　Case　"VS2010Win32"　　: items = Array( 2010, "Win32" )
　　Case　"VS2008Win32"　　: items = Array( 2008, "Win32" )
　　Case　"VS2010Win32Lib" : items = Array( 2010, "Lib" )
　　Case　"VS2008Win32Lib" : items = Array( 2008, "Lib" )
　　Case Else　Error
　End Select

　Set ret = new MakeVSProjType
　ret.VSVer　　　　　= items( 0 )
　ret.TargetPlatform = items( 1 )
　If ret.VSVer = 2010 Then
　　ret.ProjectExtension = ".vcxproj"
　Else
　　ret.ProjectExtension = ".vcproj"
　End If
End Function

これを避けるには、プロジェクト・ファイルの拡張子を変数にすることです。
この状態で、バージョンと拡張子の関係が変わったら、変数の値を代入する
箇所だけを変えるだけで済みます。

このような違いを集めたオブジェクトは、Visual Studio のバージョンによって
異なるものであるため、バージョンごとに存在する静的オブジェクト（コンパ
イル時に値が決定する static な構造体）になります。

そして、静的オブジェクトを取得する関数を定義するとよいでしょう。 その
定義は、下記のようにテーブルで記述するとよいでしょう。 また、相関関係が
ある場合は、下記の ProjectExtension 変数のように条件分岐が使えます。
この条件分岐は、静的オブジェクトを取得する関数の中にまとめられるため、
メンテナンス性が高くなります。

    '// Derived property
    Private  m_DerivedAttribute

    Public  Property Get  DerivedAttribute()
        If IsEmpty( m_DerivedAttribute ) Then  m_DerivedAttribute = "Derived "+ Me.AnAttribute
        DerivedAttribute = m_DerivedAttribute
    End Property

read only attribute

derived attribute

DerivedAttribute

派生属性のキャッシュを持つときは、下記のようにコーディングします。

DerivedAttribute

DerivedAttribute

DerivedAttribute

DerivedAttribute

DerivedAttribute

[ 親: vbsool : オブジェクト記述法 ]

m_ から始まるプライベート プロパティは、他の派生属性と並べると一覧性が高くてよいでしょう。
複数の派生属性を同時にキャッシュに載せいた方が、処理速度は速いでしょう。

Property Get  Name() as string

→ vbslib を使う vbsool サンプル

インスタンスの名前です。 クラス名と同じになることもあります。

'// Class  Sample  has_interface_of ClassI

Function  get_Sample()
  Set  get_Sample = get_Object( Sample_getTrueName() )
  get_Sample.Name = "Sample"
End Function

Function  Sample_getTrueName()
  Dim  ret : ret = GetVar( "Sample" )
  If IsEmpty( ret ) Then
    '// default is ClassA fixed
    ret = "TrueSample" : SetVar "Sample", ret
  End If
  Sample_getTrueName = ret
End Function

'// 言語上の Class Sample の定義は不要です。

GetVar

一般名(Sample)のクラス定義 (一般名と正式名が１対多だけの場合）

一般名 "Sample" から正式名 "TrueSample" を選択

( "TrueSample" )

get_Object

上記は ret = "TrueSample" 固定ですが、場面に応じて TrueSample 以外の正式名を
返すように自動判定した方がよいです。

Name プロパティは、インスタンスの一般名とします。
TrueName プロパティは、インスタンスの正式名とします。

Dim  g_NameDic : Set g_NameDic = CreateObject( "Scripting.Dictionary" )

Function  get_NameDelegator( Name, TrueName, InterfaceName )
  If g_NameDic.Exists( Name +"__"+ TrueName ) Then
    Set get_NameDelegator = g_NameDic.Item( Name +"__"+ TrueName +"_"+ InterfaceName )
    Exit Function
  End If

  Set  get_NameDelegator = new_X( InterfaceName + "_Delegator" ) : With get_NameDelegator
    .Name = Name
    .m_Delegate = TrueName  '// if validated was need.
    If not g_bNeedValidateDelegate Then _
      Set .m_Delegate = get_Object( TrueName )  '// if validated was not need.
  End With

  Set  g_NameDic.Item( Name +"__"+ TrueName +"_"+ InterfaceName ) = get_NameDelegator
End Function


Class NameDelegator  '// defined_as_interface
  Public  Name
  Public Property Get  TrueName() : TrueName = NameDelegator_getTrueName( Me ) : End Property
  Public  m_Delegate ' as ClassA or ClassB or string(before validated)
  Public Property Get  DefineInfo() : Set DefineInfo = m_Delegate.DefineInfo : End Property
End Class

NameDelegator のクラス定義

複数から同じインスタンスを参照し、オブジェクトから一般名（Nameプロパティ）を取得する必要が
ある場合は、一般名と正式名が多対１の関係になり、次のような委譲をしないと、Name プロパティ
がそれぞれの場面に応じた一般名になりません。

Sub   ClassI::Validate( Opt as variant )

ただし、すべてのオブジェクトを生成すると時間がかかる場合、生成時に実行する初期化処理
(Class_Initialize) を Validate メソッドに移すとよいでしょう。

get_ObjectsFormFile

で一覧するすべてのオブジェクトを

Default Property  Item( Name as string ) as variant

VBScript は、ECMA Script (JavaScript) のように、動的にメンバーを定義することはできませんが、
デフォルト・プロパティと、辞書（Dictionary クラス）を使うことで、同様のことができます。

→ JavaScript のクラス

参考

→ Dictionary クラス

→ Items プロパティ

Item プロパティは、Dictionary や FolderItem などに準拠しています。
ArrayClass(vbslib) も、Item プロパティが使えます。

→ T_Item フォルダ

サンプル：

Property Get  Items() as array of variant

Property Get  Keys() as array of string

Dim  ClassE::OnEventX as EventResponders

イベントとは、あるオブジェクトの状態変化のことです。
イベントが発生したときに行う処理は、アプリケーションによって異なります。
そこで、あるイベントが発生したときに行う処理を関数に記述して、その関数をオブジェクトに
登録しておくことで、必要なときに必要な処理ができるようになります。
他の言語では、関数ポインタ、コールバック関数、メソッドポインタなどと呼ばれています。

定義： イベントごとに、メソッドを登録できるメンバー変数を宣言する

→ 定義： イベントごとに、メソッドを登録できるメンバー変数を宣言する