
24/06/2004, 09:58
|
| | Fecha de Ingreso: abril-2003
Mensajes: 606
Antigüedad: 21 años, 11 meses Puntos: 2 | |
Obtenido de la ayuda:
Código:
Imports System
Imports System.Collections
Imports Microsoft.VisualBasic
Public Class SamplesArrayList
Public Shared Sub Main()
' Creates and initializes a new ArrayList.
Dim myAL As New ArrayList()
myAL.Add("Hello")
myAL.Add("World")
myAL.Add("!")
' Displays the properties and values of the ArrayList.
Console.WriteLine("myAL")
Console.WriteLine(ControlChars.Tab + "Count: {0}", myAL.Count)
Console.WriteLine(ControlChars.Tab + "Capacity: {0}", myAL.Capacity)
Console.Write(ControlChars.Tab + "Values:")
PrintValues(myAL)
End Sub
Public Shared Sub PrintValues(myList As IEnumerable)
Dim myEnumerator As System.Collections.IEnumerator = _
myList.GetEnumerator()
While myEnumerator.MoveNext()
Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
End While
Console.WriteLine()
End Sub
End Class
http://msdn.microsoft.com/library/de...ClassTopic.asp |