<< Clique para Mostrar o Sumário >>
Trabalhando com Coleções |
Uma Coleção, ou Collection, é um objeto que gerencia um conjunto de objetos similares. Os objetos contidos em uma coleção são referenciados por índices, semelhante à referência de arrays. Pode-se adicionar ou remover objetos individuais de uma coleção, conforme o exemplo a seguir.
Sub CommandButton1_Click()
' Adiciona uma Pena no objeto E3Chart1
Screen.Item("E3Chart1").Pens.AddPen "Pena"
End Sub
Sub CommandButton2_Click()
' Remove a primeira Pena
Screen.Item("E3Chart1").Pens.Remove 0
End Sub
NOTA |
O primeiro objeto em uma coleção possui o índice 1 (um). |
Todas as coleções possuem uma propriedade em comum chamada Count, que é o número de objetos ou filhos existentes, conforme o exemplo a seguir.
Sub CommandButton1_Click()
' Mostra uma caixa de diálogo com o número de Penas
MsgBox Screen.Item("E3Chart1").Pens.Count
End Sub