Trabalhando com Coleções

<< 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

Esta página foi útil?