Class  EventResponders
  Public  Responders

  Private Sub  Class_Initialize()
    ReDim  Responders(-1)
  End Sub

  Public Sub  Add( Func, Object )
    Dim  res : Set res = new EventResponder

    ReDim Preserve  Responders( UBound( Responders ) + 1 )
    Set Responders( UBound( Responders ) ) = res
    res.Func = Func
    res.Object = Object
  End Sub

  Public Sub  Calls( Caller, Args )
    Dim  res

    For Each res  In Responders
      res.Func  res.Object, Caller, Args
    Next
  End Sub
End Class

Class  EventResponder
  Public  Func
  Public  Object
End Class

イベントに応答する方法の１つとして、
すべてのイベントに応答することは、まれなので、メソッドが存在しないというエラーが発生
しないようにすべてのメソッドを記述する必要があるインターフェイスは、扱いづらいもの
です。

継承を使うと（多重継承が使える言語でも）、複数のインスタンスから発生するイベントに
応答することができません。

応答する処理では、アプリケーションのデータが必要になることが多いので、関数では
なくメソッド（オブジェクトをパラメーターに持った関数）をコールバックした方がよいでしょう。

応答するオブジェクトが複数であることは、めずらしくありません。

以上から、イベントに応答するときは、複数の登録されたメソッドを呼び出す機能を持った
EventResponders クラスを使うとよいでしょう。

インターフェイス

がありますが、あるクラスの、

考察 （イベント応答の実装方法）

Add

Calls

参考

→ EventRespondersClass クラス (vbslib)

Dim  ClassA::Delegate as _
 Function ( Caller as ClassA, ... )

定義： 関数を登録できるメンバー変数を宣言する

Dim g_g : Sub GetMainSetting( g ) : If not IsEmpty(g_g) Then Set g=g_g : Exit Sub
    Set g=CreateObject("Scripting.Dictionary") : Set g_g=g
    '// または、Set g = new LazyDictionaryClass : Set g_g=g

    '[Setting]
    '==============================================================================
    g("ExeName") = "Sample"
    '// または、g("${ExeName}") = "Sample"
    '==============================================================================
End Sub
Sub GetResetMainSetting( g ) : g_g = Empty : GetMainSetting g : End Sub

Sub  Main( Opt, AppKey )
    GetResetMainSetting  g
    echo  g("ExeName")
    '// または、echo  g("${ExeName}")
End Sub

メイン *.vbs ファイルに記述するユーザー定義データは、GetMainSetting 関数で取得できるように
統一するとよいでしょう。

静的オブジェクト・ファイル

メインではない *.vbs ファイルは、

に記述してください。

ExeName

Sample

ExeName

UnitTest::Delegate

vbslib の Test.vbs の中では、

に

get_ModuleConsts

その中で、特に定数は、

で取得できるようにしてください。

定義例、使用例：

new_TestCaseData

などを記述してください。

GetMainSetting が定義されているスクリプトを ExecuteGlobal （vbslib の include、call_vbs など）
すると、GetMainSetting の定義が変わってしまいますが、初めて GetMainSetting を呼んだとき
の定義内容で g が初期化された後は、GetMainSetting を呼んでも g は変わりません。
なので、main 関数の最初で必ず呼び出してください。

Property Get  ClassA::xml() as string

使用例：

オブジェクトのデータを XML 形式にしたもの。
最後に改行は付きませんが、複数行になることはあります。

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

Class  ClassA
    Public  Name ' as string
    Public  DefinePath ' as string

    Public Property Get  xml() : xml=xml_sub(0) : CutLastOf xml,vbCRLF,Empty : End Property
    Public Function  xml_sub( Level )
        xml_sub = GetTab(Level)+ "<"+TypeName(Me)+" Name='"+ XmlAttrA( Name ) + _
            "' DefinePath='"+ XmlAttrA( DefineInfo.FullPath ) +"'/>"+ vbCRLF
    End Function
End Class

Function  GetTab( Level )
    GetTab = String( Level*2, " " )
End Function

Sub  CutLastOf( Str, LastStr )
    Dim  length = Len( LastStr )
    If Right( Str, length ) = LastStr Then _
        Str = Left( Str, Len( Str ) - length )
End Sub

定義例：

Property Get  xml

ClassA

出力例：

  Public Sub  loadXML( XmlObject )
    m_Name  = XmlObject.getAttribute( "name" )
    m_Value = CInt2( XmlObject.getAttribute( "value" ) )
  End Sub

Option Explicit

Dim  g_SrcPath
Class  Sample_vbs  '// has_interface_of DefineInfoClass
  Public  FullPath
  Public  DataPath
  Private Sub  Class_Initialize()
    FullPath = g_SrcPath
    DataPath = GetAbsPath( "..\Data", g_SrcPath )
  End Sub
End Class
Dim  g_Sample_vbs
Set  g_Sample_vbs =_
   new Sample_vbs

Class  SampleObj
  Public Property Get  DefineInfo() : Set DefineInfo = g_Sample_vbs : End Property
End Class

オブジェクトを定義している
静的オブジェクトを定義している場所や、関連するファイルパスなどを参照します。
DefineInfo というプロパティ名は変えないでください。 DefineInfoClass は、FullPath プロパティ
のみを定義しているインターフェイスです。

関連

→ 静的オブジェクト

Class  ClassA
  Public  m_DebugMode
  Public  F_BreakAtSetting  '// Const

  Private Sub  Class_Initialize()
    Me.F_BreakAtSetting = 1
  End Sub
End Class

Me.m_DebugMode = Me.F_BreakAtSetting

Func  param

関数名とパラメータの間は 2つの空白にする。
括弧のために Call を使うと、Call が意味的主役になって混乱するため、使わない。

VBScript のコードを、見やすいコード、必要な情報が表現されているコードにする方法です。

括弧の内側

Dim excel
Set excel = WScript.CreateObject("Excel.Application")
excel.Visible = True
excel.SheetsInNewWorkbook = 1
excel.WorkBooks.Add()

新規ワークシートを作成する

<job>
<reference object="VisualStudio.DTE.8.0"/>
<script language="VBScript">
Option Explicit

WScript.Echo  vsBuildStateDone
</script>
</job>

sample.wsf

wsf ファイルの reference タグを使うと、COM オブジェクトで定義されている定数を使うことが
できるようになります。

CreateObject("VisualStudio.DTE.8.0") で Visual Studio の COM オブジェクトを取得できるとき、
次のように記述すると、vsBuildStateDone 定数（vsBuildState 列挙体の要素）などが使えるよう
になります。

→ クラスの定数

関連

→ WSFファイル

ただし、wsf は、vbs_inc ほど柔軟に再利用できないので注意してください。

reference の値