VBA Tips - Usando Collection para gerenciar Grupos de Objetos e Coleções - Use the Collection Collection to Manage Groups of Objects and Collections

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

O Collection oferece uma maneira conveniente para se referir a um grupo de objetos e coleções como um único objeto. 

Importante: Os objetos e coleções no Collection não tem que ser do mesmo tipo de dados.

Para adicionar itens a um Collection, use o método Add, que tem o seguinte formato:

Add (Item, Key, Before, After)

Onde:

Item é o objeto ou collection que deseja adicionar à coleção.

Key é um argumento opcional que especifica um nome de chave única para este item.

Before e After são argumentos opcionais que especificam onde deseja adicionar o item na coleção.

O código de exemplo a seguir demonstra como usar a coleção coleções. Para mais informações, consulte o "coleção de objetos" na Ajuda VBA.

' Módulo da Classe (clsTest.cls).

Public FirstName As String

Public LastName As String

' Código do módulo (modTest.bas).

Public Sub TestCollections()

    ' Objetivo: Demonstrar o uso de coleções com o Collection.

    Dim colNames As New Collection

    Dim iItem As Integer

    Dim vItem As Variant

    On Error GoTo TestCollections_Err

    Do

        ' Create an object to add to the collection.

        Dim clsTest_Item As New clsTest

        ' Configura as propriedades da collection.

        Let clsTest_Item.FirstName = InputBox(Prompt:="Primeiro nome?")

        Let clsTest_Item.LastName = InputBox(Prompt:="Último nome?")

        ' Adicionando um objeto ao Collection.

        If clsTest_Item.FirstName <> "" And clsTest_Item.LastName <> "" Then

            colNames.Add _

                Item:= clsTest_Item, _

                Key:= clsTest_Item.FirstName & clsTest_Item.LastName

        Else

            ' Lista o conteúdo do collection.

            For Each vItem In colNames

                MsgBox vItem.FirstName & " " & vItem.LastName

            Next vItem

            Exit Do

        End If

        Set clsTest_Item = Nothing

    Loop

TestCollections_End:

    Exit Sub

TestCollections_Err:

    Select Case Err.Number

        Case 457    ' Duplicate key name.

            MsgBox "Você não pode duplicar o primeiro e o último par de nomes. " & _

                "Tente novamente."

        End Select

    Resume TestCollections_End

End Sub

Tags: VBA, Tips, Collection, Manage, Groups, Object, grupos, objetos, coleção, gerenciar