viernes, 22 de agosto de 2008

Colecciones

Una Colección es un conjunto ordenado de elementos que pueden ser referenciados como una unidad.

Un objeto Collection provee una forma conveniente para referir un grupo relacionado de elementos como un simple objeto. Los elementos o miembros en una colección sólo necesitan estar relacionados por el hecho de que existen en la colección, pero no necesitan compartir el mismo tipo de dato.

El objeto Collection tiene las siguiente propiedades y métodos:

* Add, agrega un elemento a la colección
* Count, regresa el número de elementos en la colección. Sólo lectura.
* Item, regresa un elemento por índice o por llave
* Remove, borra un elemento de la colección por íncide o por llave

Key es un valor de tipo string, se utiliza el método Add para asociar una llave con un elemento

Index es un valor long entre 1 y el número de elementos en la colección.

A diferencia de un arreglo las colecciones comienzan en el índice número 1 y cada vez que se emplea el método Remove() se actualiza el índice de las colecciones, así como su propiedad Count.

Dim colColores As New Collection

Private Sub crearColeccion_Click()
colColores.Add "rojo"
colColores.Add "Amarillo"
colColores.Add "blanco"
colColores.Add "azul"
colColores.Add "verde"
colColores.Add "negro"
End Sub

Private Sub mostrarElementosColeccion_Click()
Dim sTmp
Dim i
If colColores.Count Then
For i = 1 To (colColores.Count)
sTmp = sTmp & i & " : " & colColores.Item(i) & Chr(13)
Next
MsgBox sTmp
Else
MsgBox "Primero de clic en [Crear Colección]" 'crearColeccion_Click()
End If
End Sub

Private Sub eliminarPrimerElementoColeccion_Click()
If colColores.Count Then
MsgBox "Se elimino el elemento : " & colColores(1)
colColores.Remove (1)
Else
MsgBox "La colección no tiene elementos"
End If
End Sub

Vueling

0 comentarios: