Case3
WScript.echo  "End of Main"
WScript.echo  "もし、ここ以降でデストラクターが動くときは、"+_
    "プログラム終了時にすべてのオブジェクトを削除する"+_
    "ことによるデストラクター呼び出しです。"

Sub  Case3()
    WScript.echo  "Case3:"
    Set a_object = new A_Class : a_object.CaseName = "Case3"
    Set b_object = new B_Class : b_object.CaseName = "Case3"
    Set destroyer = new_Destroyer( a_object )
    Set a_object.Reference = b_object
    Set b_object.Reference = a_object
End Sub


Function  new_Destroyer( Target )
    Set new_Destroyer = new DestroyerClass
    Set new_Destroyer.Target = Target
End Function

Class  DestroyerClass
    Public  Target

    Private Sub  Class_Terminate()
        Me.Target.Destroy
    End Sub
End Class

Class  A_Class
    Public  CaseName
    Public  Reference

    Public  IsDestory                          '// Add

    Private Sub  Class_Terminate()
        If not Me.IsDestory Then  Me.Destroy   '// Add
    End Sub

    Public Sub  Destroy()                      '// Add
        WScript.echo  Me.CaseName +": A_Class::Class_Terminate"

        Me.Reference = Empty                   '// Add
        Me.IsDestory = True                    '// Add
    End Sub
End Class

Class  B_Class
    Public  CaseName
    Public  Reference

    Private Sub  Class_Terminate()
        WScript.echo  Me.CaseName +": B_Class::Class_Terminate"
    End Sub
End Class

相互参照しているオブジェクトに、Class_Terminate を呼び出すきっかけを出す
オブジェクト。

ただし、ユーザーが DestroyerClass を作ることを忘れると削除されなくなるため、
推奨しません。

Class  ClassA
  Private Sub Class_Terminate()
    WScript.Echo Err  ' 0 と表示します
    NO_OBJ.ERROR      ' エラー
    WScript.Echo Err  ' 実行しない
  End Sub
End Class


Dim  m : Set m = new ClassA
m = Empty
'// ここで、エラーメッセージが表示されます。
'// On Error Resume Next のとき、または、デバッガに接続しているときは、
'// エラーメッセージが表示されません。
WScript.Echo  Err  ' 500 と表示します。 Resume Next したかのような動き
On Error GoTo 0
WScript.Echo  Err  ' 0 と表示します

Class_Treminate の中でエラーが発生したら、Class_Terminate の中は、一般の関数と同じ
動きをします（エラー時のようなリターンが発生します）が、すぐにエラーメッセージを表示して、
Class_Terminate を呼び出した場所の続きから実行します。（エラー時のようなリターンは、
発生しません）
このため、エラーが発生して Class_Treminate で必要な処理が実行されなかったことを
見逃す可能性が高く、問題です。 特に cscript.exe で実行したときは、On Error Resume
Next していないときは、エラーメッセージが表示されるのですが、続きの実行によって
スクロールアウトして、エラーが発生したことがユーザに知らされません。 そのまま、
たとえば誤った計算結果を使ってしまい、後で問題になるかも知れません。

この問題が発生しないよう、MsgBox や ErrorCheckInTerminate でエラーを確実にユーザ
に知らせてください。

Class  ItemClass
    Public Default Property Get  Value()
        Value = "Value_Get"
    End Property
End Class

Class  DicClass
    Public Default Property Get  Item( Key )
        Item = "Item( "+ Key +" )"
    End Property

    Public Property Let  Item( Key, NewItem )
        WScript.Echo  Key +", "+ NewItem
    End Property

    Public Property Set  Item( Key, NewItem )
        WScript.Echo  Key +", "+ TypeName( NewItem )
    End Property
End Class


Set obj = new ItemClass
WScript.echo  obj  '// Property Get Value

Set obj = new DicClass
WScript.echo  obj( "Key_Get" )       '// Property Get Item
obj( "Key_Let" ) = "NewItem_Let"     '// Property Let Item
Set obj( "Key_Set" ) = new DicClass  '// Property Set Item

Property Get Value に Default をつけた Default Property Get Value に変えると、
プロパティ名を省略してリードしたとき（Set を使わずに代入したとき）に、
Property Get Value 関数が呼ばれます。
ライトするときは、Property Get Value 関数や Property Set Value 関数は呼ばれません。

Property Get Item に Default をつけた Default Property Get Item に変えると、
Property Let Item と Property Set Item もデフォルトになり、それぞれの関数が呼ばれます。

Dictionary クラス

と同等の（Key引数が追加された）プロパティでは、

Set obj = Wscript.CreateObject("Excel.Application")
With obj
  .Visible = True
End With

  Dim  configs = new TheConfigs
  configs.m_Param1 = 10
  configs.m_Param2 = "abc"
  obj.SetConfigs  configs

Dim  objs : new_ClassA_Array  objs, 3  '// [out] objs

定義例：

Class  ClassI  '// defined_as_interface
  Public Sub  MethodA( Param1 ) : End Sub
  Public Sub  MethodB() : End Sub
End Class

１つのオブジェクトに複数のインターフェイスを取得でき、多態する記述法です。
多態（ポリモアフィズム）とは、同じ名前の関数やプロパティを呼び出しても、インスタンスに
よって、呼んだ先の処理内容が異なることです。
VBScript の変数は variant 型で、インターフェイスを定義しなくても多態することができますが、
プロパティやメソッドのセットを明示していた方が、アトム・クラスを作成しやすくなります。

→ ポリモアフィズム（多態性）

データ構造

Function  get_ObjectA() as ObjectA

関連

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

を取得します。 もし、存在しなければ、

関数にすることで、オブジェクト（インスタンス）をカプセル化します。
何回呼び出しても、同じオブジェクトを返します。 ユーザーは、生成、削除を意識しません。
オブジェクトの定義は、get_ClassA 関数にステップインすると分かります。

get_Sample_FromFile( "Sample1.xml" ).Method1

Sample            Sample1.xml    Method1

Dim  sample : Set sample = get_ObjectFromFile( "ObjectX_obj.vbs", "ObjectX" )

オブジェクト・ファイル(*_obj.vbs)

一般スクリプトファイル(*.vbs)

Dim  samples
get_ObjectsFromFile  "Lib\*_obj.vbs", "ClassI", samples '// [out] samples

samples

samples

定義サンプル

→ get_Object : 静的オブジェクト、演算器要求 の定義サンプル

→ get_StaticObjects : 静的オブジェクトの一覧 の定義サンプル

get_ObjectsFromFile 関数は、内部で "Lib\*_obj.vbs" にマッチしたファイルをインク
ルードして、それぞれの .vbs ファイルで定義されている get_StaticObjects 関数を
呼び出します。 get_StaticObjects 関数は、ClassI インターフェイスを持ったオブジェクト
を取得する get_Object 関数を呼び出します。

オブジェクト・ファイル(*_obj.vbs)

一般スクリプトファイル(*.vbs)

Sub  get_StaticObjects( InterfaceName as string, out_Objs as variant )

要求する静的オブジェクトのインターフェイスの名前

InterfaceName

【引数】

オブジェクト・ファイル（.vbsファイル） に入っている静的オブジェクトの一覧を取得します。

out_Obj

（出力） 静的オブジェクト、またはその配列

get_ObjectsFromFile

get_StaticObjects 関数は、

関数から呼ばれます。

処理フロー：

get_ObjectsFromFile

include （オブジェクト・ファイルの１つ）

For （オブジェクト・ファイルのループ）

get_StaticObjects

get_StaticObjects関数は、それぞれのオブジェクト・ファイルで定義します。
複数のオブジェクト・ファイルで定義しても、get_ObjectsFromFile は、それぞれの
get_StaticObjects 関数を区別して呼び出します。

get_StaticObjects 関数は、

静的オブジェクト

をユーザーが使えるようにするために、

ライブラリが実装する関数の１つです。 ライブラリから見れば、get_StaticObjects
関数は、オブジェクト・ファイルの中で定義している静的オブジェクトの一覧を、
コール元へ渡す処理をします。