VBAでインターフェースを使って引数付きのコンストラクタを実現する。 - t-hom’s diary

タイトルにコンストラクタとあるが、正確にはコンストラクタもどきである。 先日VBAのAriawaseライブラリのCore.basに書かれたInitのコードに感銘を受けた話を書いた。 ただ、私の個人的な好みとしては、外部DLLの参照よりはVBAの基本機能だけで解決してしまいたい。 そこで、Initializableインターフェースを作って対処してみた。 こちらはクラスモジュール：Initializableのコード Public Function Init(p() As Variant) As Object End Function 次に、Initメソッドを実装するクラスモジュール例：SheetExのコード SheetExは、Worksheetのラッパーとして作った。 現時点ではMaxRow,MaxColumnしか無いが、いろいろ拡張できるはず。 (アイデアが無いだけ) Implements

[kabacsharp]

“Init関数の引数をInitializable型にしているのが、汎用化の肝である。 これで、Initializableインターフェースを実装しているクラスであればこのInit関数で初期化ができる。”