珍しくVBScript

今日は珍しくVBScriptネタ
大嫌いだけど会社で使うのでしょうがない

主にクラスの使い方と擬似的な継承について

class SampleModel
private xxx

private sub Class_Initialize
set xxx = new Parent
end sub

function SampleMethod1(a, b)
SampleMethod1 = xxx.SampleMethod1(a, b)
end function
end class

基本的にこんな感じ
Class_Initializeというメソッドがコンストラクタ
VBScriptはコンストラクタに引数付けれないっていう腐った言語

まぁそれは置いといて、コンストラクタで
親扱いしたいクラスをインスタンス変数にset
VBScriptはオブジェクトの代入にsetを付けないといけない腐った言語

あとは同名のメソッドを定義して、
その中で継承したいメソッドに引数渡して実行結果をreturn
メソッドに代入する謎な方法でreturn
値を返しても処理は続く
VBScriptはreturnに相当する命令がない腐った言語

これで擬似継承ができた
てかこれ継承？
継承ってのは明示しなくても親のメソッド使えるのが普通だよ

で、これを

dim Sample
set Sample = new SampleModel

として別名でset
何故ならVBScriptはクラスメソッドが使えない腐った言語

こうして別名を付けないとSample.SampleMethod1みたいに使えない
せめてStatic宣言くらい実装しとけよ･･･
もしくはRubyみたいにself.methodとか
Me.MethodもThis.MethodもSelf.Methodも試したけど駄目だった

クラスメソッドは全部この方法でインタフェースみたいに実装して、
別に分けておくのがコツかな
インスタンスメソッドは普通に使えるから、
インスタンスを生成するやつに擬似継承でクラスメソッドも埋め込む感じ

Rubyに比べたら何十、何百倍も大変だけど