\u5efa\u7acb\u7c7b\u6a21\u5757<\/a>\uff09<\/p>\n\n\n\n\u4e8c\u3001\u521b\u5efa\u4e3b\u7c7b\uff08MainClass\uff09\u5305\u542b\u4e09\u4e2a\u96c6\u5408<\/p>\n\n\n\n
‘ MainClass.cls
Option Explicit<\/p>\n\n\n\n
Private m_colItemsA As Collection
Private m_colItemsB As Collection
Private m_colItemsC As Collection<\/p>\n\n\n\n
‘ \u7c7b\u521d\u59cb\u5316\u65f6\u521b\u5efa\u96c6\u5408
Private Sub Class_Initialize()
Set m_colItemsA = New Collection
Set m_colItemsB = New Collection
Set m_colItemsC = New Collection
End Sub<\/p>\n\n\n\n
‘ \u6dfb\u52a0ClassA\u5b9e\u4f8b\u5230\u96c6\u5408A
Public Sub AddItemA(objA As ClassA)
m_colItemsA.Add objA
End Sub<\/p>\n\n\n\n
‘ \u6dfb\u52a0ClassB\u5b9e\u4f8b\u5230\u96c6\u5408B
Public Sub AddItemB(objB As ClassB)
m_colItemsB.Add objB
End Sub<\/p>\n\n\n\n
‘ \u6dfb\u52a0ClassC\u5b9e\u4f8b\u5230\u96c6\u5408C
Public Sub AddItemC(objC As ClassC)
m_colItemsC.Add objC
End Sub<\/p>\n\n\n\n
‘ \u83b7\u53d6\u96c6\u5408A\uff08\u53ea\u8bfb\uff09
Public Property Get ItemsA() As Collection
Set ItemsA = m_colItemsA
End Property<\/p>\n\n\n\n
‘ \u83b7\u53d6\u96c6\u5408B\uff08\u53ea\u8bfb\uff09
Public Property Get ItemsB() As Collection
Set ItemsB = m_colItemsB
End Property<\/p>\n\n\n\n
‘ \u83b7\u53d6\u96c6\u5408C\uff08\u53ea\u8bfb\uff09
Public Property Get ItemsC() As Collection
Set ItemsC = m_colItemsC
End Property<\/p>\n\n\n\n
‘ \u6e05\u7406\u8d44\u6e90
Private Sub Class_Terminate()
Set m_colItemsA = Nothing
Set m_colItemsB = Nothing
Set m_colItemsC = Nothing
End Sub<\/p>\n\n\n\n
\u4e09\u3001\u4f7f\u7528\u793a\u8303<\/p>\n\n\n\n
Dim mainObj As New MainClass
Dim objA As New ClassA
Dim objB As New ClassB
Dim objC As New ClassC<\/p>\n\n\n\n
‘ \u6dfb\u52a0\u5bf9\u8c61\u5230\u5404\u4e2a\u96c6\u5408
mainObj.AddItemA objA
mainObj.AddItemB objB
mainObj.AddItemC objC<\/p>\n\n\n\n
‘ \u904d\u5386\u96c6\u5408\u793a\u4f8b
Dim item As Object
For Each item In mainObj.ItemsA
‘ \u5904\u7406ClassA\u5b9e\u4f8b
Next<\/p>\n\n\n\n
For Each item In mainObj.ItemsB
‘ \u5904\u7406ClassB\u5b9e\u4f8b
Next<\/p>\n\n\n\n
For Each item In mainObj.ItemsC
‘ \u5904\u7406ClassC\u5b9e\u4f8b
Next<\/p>\n\n\n\n
\u56db\u3001\u4ee3\u7801\u8bf4\u660e<\/p>\n\n\n\n
\n- \u4e09\u4e2a\u57fa\u7840\u7c7b\uff08ClassA\/B\/C\uff09\u53ef\u6839\u636e\u5b9e\u9645\u9700\u6c42\u6dfb\u52a0\u6210\u5458<\/li>\n\n\n\n
- MainClass\u4f7f\u7528Collection\u5bf9\u8c61\u7ba1\u7406\u4e09\u4e2a\u4e0d\u540c\u7c7b\u578b\u7684\u96c6\u5408<\/li>\n\n\n\n
- \u901a\u8fc7AddItemX\u65b9\u6cd5\u786e\u4fdd\u7c7b\u578b\u5b89\u5168\uff0c\u53ea\u80fd\u6dfb\u52a0\u6307\u5b9a\u7c7b\u578b\u7684\u5b9e\u4f8b<\/li>\n\n\n\n
- \u901a\u8fc7\u53ea\u8bfb\u5c5e\u6027ItemsX\u66b4\u9732\u96c6\u5408\u7684\u8bbf\u95ee<\/li>\n\n\n\n
- \u5728Class_Terminate\u4e2d\u91ca\u653e\u96c6\u5408\u8d44\u6e90<\/li>\n\n\n\n
- \u4f7f\u7528For Each\u5faa\u73af\u53ef\u4ee5\u65b9\u4fbf\u5730\u904d\u5386\u96c6\u5408\u6210\u5458<\/li>\n<\/ol>\n\n\n\n
\u4e94\u3001\u6ce8\u610f\u4e8b\u9879<\/p>\n\n\n\n
VB6\u7684\u96c6\u5408\u662f1-based\u7d22\u5f15\uff08\u4ece1\u5f00\u59cb\uff09\uff0c\u5982\u679c\u9700\u8981\u66f4\u5f3a\u5927\u7684\u96c6\u5408\u64cd\u4f5c\uff0c\u53ef\u4ee5\u8003\u8651\u4f7f\u7528Dictionary\u5bf9\u8c61\u6216\u81ea\u5b9a\u4e49\u96c6\u5408\u7c7b\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u4e00\u3001\u9996\u5148\u521b\u5efa\u4e09\u4e2a\u57fa\u7840\u7c7b\uff08ClassA\u3001ClassB\u3001ClassC\uff09 ‘ ClassA.cls … \u7ee7\u7eed\u9605\u8bfb\u201c\u4e3a\u7c7b\u6dfb\u52a0\u96c6\u5408\u201d<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[24,27,17],"class_list":["post-2503","post","type-post","status-publish","format-standard","hentry","category-bianchengyuandi","tag-vb","tag-peixun","tag-biancheng"],"_links":{"self":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/2503","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2503"}],"version-history":[{"count":5,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/2503\/revisions"}],"predecessor-version":[{"id":2529,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/2503\/revisions\/2529"}],"wp:attachment":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2503"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2503"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2503"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}