Tutoriales de Visual Basic

Antonio Salas G. 

Colecciones de tipo ArrayList

Son utilizadas para agrupar objetos (elementos) que de alguna forma están relacionados son similar a los Arrays pero una de las diferencias entre Array y Colecciones de tipo ArrayList, es la manera de agregar y eliminar elementos, que estos elementos son tipos de datos por referencia y admite cualquier tipo de dato. Debemos usar New seguido del tipo de colección ya que los datos son almacenados como objetos.

.Add: Es utilizado para agregar elementos después del último registrado.

Dim clectionarraylist As New ArrayList

        clectionarraylist.Add("Paco")

        clectionarraylist.Add("Marco")

        clectionarraylist.Add("Fermin")

        clectionarraylist.Add("Chuy")

 

        For Each aux As String In clectionarraylist

            txt1.Text &= aux & vbCrLf

        Next

.Clear: Elimina todos los elementos de la ArrayLis.

clectionarraylist.Clear()

.Containers: Indica si el elamento indicado esta en la colección.

txt1.Text &= clectionarraylist.Contains("Paco")

.Counts: Nos indica el numero de elementos.

txt1.Text &= clectionarraylist.Count         

.IndexOf: Es para buscar un elemento y saber el índice en el que esta almacenado.

txt1.Text &= clectionarraylist.IndexOf("Fermin")

.Insert: Inserta un nuevo elemento en la posición indicada.

clectionarraylist.Insert(4, "Ivan")

.Remove: Elimina un elemento.

clectionarraylist.Remove("Marco")

.Sort: Ordena el contenido de la colección.

clectionarraylist.Sort()

 

HashTable: Nos permite almacenar cualquier tipo de datos.

 

Dim colectionHast As New Hashtable

 

        colectionHast.Add(0, "Paco")

        colectionHast.Add(1, "Marco")

        colectionHast.Add(2, "Fermin")

        colectionHast.Add(3, "Chuy")

 

       For Each aux As String In colectionHast.Values

            txt1.Text &= aux & vbCrLf

        Next
 

.Add: Añadir nuevos elementos.

Dim colectionHast As New Hashtable

 

        colectionHast.Add(0, "Paco")

        colectionHast.Add(1, "Marco")

        colectionHast.Add(2, "Fermin")

        colectionHast.Add(3, "Chuy")

 

.Clear: Eliminar todos los elementos.

colectionHast.Clear() 

.Contains: Indica si la clave indicada está en la colección.

txt1.Text = colectionHast.Contains(3)

.ContainsKey: Indica si la clave indicada está en la colección.

txt1.Text &= colectionHast.ContainsKey(2)

.ContainsValue: Indica si el valor indicado está en la colección.

 txt1.Text &= colectionHast.ContainsValue("Fermin")

 

.Ramove: Elimina el elemento con la clave indicada.

colectionHast.Remove(2)

 

Queue. Es una colección del tipo FIFO (First In First Out) utilizada para crear colas de datos.

 

Dim colectionHast As New Queue

 

        colectionHast.Enqueue("Paco")

        colectionHast.Enqueue("Marco")

        colectionHast.Enqueue("Fermin")

        colectionHast.Enqueue("Chuy")

 

        For Each aux As String In colectionHast

            txt1.Text &= aux & vbCrLf

        Next

 

.Peek: Para acceder al último elemento añadido, pero sin eliminarlo.

txt1.Text &= colectionque.peek & vbCrLf

.Enqueue: Añadir un nuevo elemento a la colección.

 

        colectionHast.Enqueue("Paco")

        colectionHast.Enqueue("Marco")

        colectionHast.Enqueue("Fermin")

        colectionHast.Enqueue("Chuy")

 
.Dequeue: Para sacar el primer elemento de la colección.

txt1.Text &= colectionque.Dequeue & vbCrLf

.Count: Nos indica el número de elementos.

txt1.Text &= colectionque.Count & vbCrLf

.Clear: Eliminar todos los elementos.

colectionque.Clear()

 
Stack. Es una colección del tipo LIFO (Last In First Out) utilizada para crear pilas de datos.

 

        Dim colectionstak As New Stack

 

        colectionstak.Push("Paco")

        colectionstak.Push("Marco")

        colectionstak.Push("Fermin")

        colectionstak.Push("Chuy")

 

        For Each aux As String In colectionstak

            txt1.Text &= aux & vbCrLf

        Next

 

.Peek: Para acceder al último elemento añadido, pero sin eliminarlo.

txt1.Text &= colectionstak.Peek & vbCrLf

.Push: Para agregar un nuevo elemento al principio de la colección.

 

        colectionstak.Push("Paco")

        colectionstak.Push("Marco")

        colectionstak.Push("Fermin")

        colectionstak.Push("Chuy")

 
.Pop: Para recuperar el último elemento y eliminarlo de la colección.

txt1.Text &= colectionstak.Pop & vbCrLf

.Count: Nos indica el número de elementos.

txt1.Text &= colectionstak.Count & vbCrLf

.Clear: Eliminar todos los elementos.

colectionstak.Clear()

 

Antonio Salas G. 

Autor: Antonio Salas G.

Comentarios en "Colecciones de VisualBasic.NET"

Table 'programa_programas.t_comentarios' doesn't exist