domingo, 6 de septiembre de 2015

Clase Collection (colección-colecciónes)

Declaración

Public MiColeccion As New Collection ' si queremos tener acceso desde todas las clases y formularios
Private MiColeccion As New Collection 'si solo queremos tener acceso de la clase o formulario donde es declarada
Dim MiColeccion As New Collection 'si solo queremos usarla en una subrutina o funcion

Métodos:

Añade un elemento a la colección
MiColeccion.Add(Value As Variant, Key As String)

Value As Variant=dato de cualquier tipo (cadena, numérico, booleano etc)
Key As String=llave con dato de solo cadena, string o palabra.

Ejemplo:


Public Sub Form_Open()

  MiColeccion.Add(2, "bicicletas")
  MiColeccion.Add(True, "Luz")
  MiColeccion.Add("verde", "Color")
 
  For Each MiColeccion
    Print MiColeccion.Key & "= " & MiColeccion[MiColeccion.Key]
  Next
 
End

Salida:
bicicletas= 2
Luz= T
Color= verde


Elimina todos los elementos de la colección.
MiColeccion.Clear


Elimina un elemento de la colección.
MiColeccion.Remove(Key As String)

Ejemplo: MiColeccion.Remove("Color")


sdf

No hay comentarios.:

Publicar un comentario