「VBA.Collection」のようなクラスを自作するには？ (ID:102808)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 試しに、内部配列をそのまま返却する方向でも実験してみましたが、 それでもやはり無理なようです。 --------------- 'Class1 Option Explicit Private x() As Class2 Public Function GetInternalArray() As Class2() GetInternalArray = x End Function --------------- ' 正常に列挙できる Dim v As Variant For Each v In objClass1.GetInternalArray() Next ' コンパイルエラー Dim v As Class2 For Each v In objClass1.GetInternalArray() Next --------------- 以下、GetInternalArray の DispID を DISPID_NEWENUM にした場合 (プロシージャID を -4 にした場合) ' GetInternalArray が呼ばれた後で実行時エラー451 For Each v In objClass1 Next --------------- 以下、GetInternalArray の DispID を DISPID_DEFAULT にした場合 (プロシージャID を (既定値) にした場合) ' GetInternalArray が呼ばれる前に実行時エラー438 For Each v In objClass1 Next