vb6 - VB 6 カスタム コレクション クラスを作成して For Each をサポートする方法

Question

クライアント フロント エンドが VB 6 で記述されているプロジェクトに配置されました。For...Each 構文をサポートするカスタム コレクション クラスを開発しようとしています。これはVB 6で可能ですか？または、For..Next カウンターを使用してインデックスを識別することに固執していますか。

助けてくれてありがとう！

Answer 1

重要な部分は、これをカスタム コレクション クラスに追加することです...

Public Function NewEnum() As IUnknown
    Set NewEnum = m_Employees.[_NewEnum]
End Function

プロシージャ属性で、次のようにプロシージャ ID を -4 に設定します。

参照: http://www.vb-helper.com/howto_custom_collection_with_for_each.html