VBScriptでオーバライド的な感じ

VBScriptのクラスって継承ない（多分）ので、オーバライドではないのですが、ポリモーフィズムといった方が正しいかも。

Class hoge
	Public Sub sub1
		msgbox "hoge"
	End Sub
End Class

Class moge
	Public Sub sub1
		msgbox "moge"
	End Sub
End Class


Set hoge1 = new hoge
Set moge1 = new moge

' togeにhoge1を代入すれば、hogeクラスのサブルーチンが呼ばれる
Set toge = hoge1
toge.sub1

' togeにmoge1を代入すれば、mogeクラスのサブルーチンが呼ばれる
Set toge = moge1
toge.sub1

実行結果は、hoge、mogeの順番にメッセージボックスが表示されます。
ポイントは、同じtoge変数に、型の違うhoge1とmoge1を代入し、同名のサブルーチンを呼ぶと、それぞれのクラスのサブルーチンが呼ばれるということ。
この仕組みを使えば、If文が減ってコードがすっきりすること請け合いですね。