Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

23 de novembro de 2012

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


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

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine