VB.Net by API/System.Collections/ArrayList
Содержание
ArrayList.Add
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Shared Sub Main() Dim empArray As New ArrayList( ) Dim intArray As New ArrayList( ) "populate the arraylists Dim i As Integer For i = 0 To 4 empArray.Add(New Employee(i + 100)) intArray.Add((i * 5)) Next i "print each member of the array For Each i In intArray Console.Write("{0} ", i.ToString( )) Next i Console.WriteLine(ControlChars.Lf) "print each employee Dim e As Employee For Each e In empArray Console.Write("{0} ", e.ToString( )) Next e Console.WriteLine(ControlChars.Lf) Console.WriteLine("empArray.Capacity: {0}", empArray.Capacity) End Sub
End Class
Public Class Employee Private myEmpID As Integer Public Sub New(ByVal empID As Integer) Me.myEmpID = empID End Sub "New Public Overrides Function ToString( ) As String Return myEmpID.ToString( ) End Function "ToString Public Property EmpID( ) As Integer Get Return myEmpID End Get Set(ByVal Value As Integer) myEmpID = Value End Set End Property End Class "Employee </source>
ArrayList.Capacity
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Shared Sub Main() Dim empArray As New ArrayList( ) Dim intArray As New ArrayList( ) "populate the arraylists Dim i As Integer For i = 0 To 4 empArray.Add(New Employee(i + 100)) intArray.Add((i * 5)) Next i "print each member of the array For Each i In intArray Console.Write("{0} ", i.ToString( )) Next i Console.WriteLine(ControlChars.Lf) "print each employee Dim e As Employee For Each e In empArray Console.Write("{0} ", e.ToString( )) Next e Console.WriteLine(ControlChars.Lf) Console.WriteLine("empArray.Capacity: {0}", empArray.Capacity) End Sub
End Class
Public Class Employee Private myEmpID As Integer Public Sub New(ByVal empID As Integer) Me.myEmpID = empID End Sub "New Public Overrides Function ToString( ) As String Return myEmpID.ToString( ) End Function "ToString Public Property EmpID( ) As Integer Get Return myEmpID End Get Set(ByVal Value As Integer) myEmpID = Value End Set End Property End Class "Employee </source>
ArrayList.Contains
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Public Shared Sub Main() Dim arrayList As arrayList = New arrayList(1) arrayList.Add("a") try Console.WriteLine(arrayList(0)) Catch outOfRange As ArgumentOutOfRangeException Console.WriteLine(outOfRange.ToString()) End Try Console.WriteLine(arrayList.Count) Console.WriteLine(arrayList.Contains("a")) Console.WriteLine(arrayList.IndexOf("a")) arrayList.Remove("a") arrayList.TrimToSize() Console.WriteLine(arrayList.Capacity) arrayList.Add("a") Dim enumerator As IEnumerator = arrayList.GetEnumerator() While enumerator.MoveNext() Console.WriteLine(enumerator.Current ) End While End Sub
End Class
</source>
ArrayList.Count
<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass
Public Shared Sub Main() Dim arrayList As arrayList = New arrayList(1) arrayList.Add("a") try Console.WriteLine(arrayList(0)) Catch outOfRange As ArgumentOutOfRangeException Console.WriteLine(outOfRange.ToString()) End Try Console.WriteLine(arrayList.Count) Console.WriteLine(arrayList.Contains("a")) Console.WriteLine(arrayList.IndexOf("a")) arrayList.Remove("a") arrayList.TrimToSize() Console.WriteLine(arrayList.Capacity) arrayList.Add("a") Dim enumerator As IEnumerator = arrayList.GetEnumerator() While enumerator.MoveNext() Console.WriteLine(enumerator.Current ) End While End Sub
End Class
</source>
ArrayList.GetEnumerator
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Public Shared Sub Main() Dim arrayList As arrayList = New arrayList(1) arrayList.Add("a") try Console.WriteLine(arrayList(0)) Catch outOfRange As ArgumentOutOfRangeException Console.WriteLine(outOfRange.ToString()) End Try Console.WriteLine(arrayList.Count) Console.WriteLine(arrayList.Contains("a")) Console.WriteLine(arrayList.IndexOf("a")) arrayList.Remove("a") arrayList.TrimToSize() Console.WriteLine(arrayList.Capacity) arrayList.Add("a") Dim enumerator As IEnumerator = arrayList.GetEnumerator() While enumerator.MoveNext() Console.WriteLine(enumerator.Current ) End While End Sub
End Class
</source>
ArrayList.IndexOf
<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass
Public Shared Sub Main() Dim arrayList As arrayList = New arrayList(1) arrayList.Add("a") try Console.WriteLine(arrayList(0)) Catch outOfRange As ArgumentOutOfRangeException Console.WriteLine(outOfRange.ToString()) End Try Console.WriteLine(arrayList.Count) Console.WriteLine(arrayList.Contains("a")) Console.WriteLine(arrayList.IndexOf("a")) arrayList.Remove("a") arrayList.TrimToSize() Console.WriteLine(arrayList.Capacity) arrayList.Add("a") Dim enumerator As IEnumerator = arrayList.GetEnumerator() While enumerator.MoveNext() Console.WriteLine(enumerator.Current ) End While End Sub
End Class
</source>
ArrayList.Remove
<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass
Public Shared Sub Main() Dim arrayList As arrayList = New arrayList(1) arrayList.Add("a") try Console.WriteLine(arrayList(0)) Catch outOfRange As ArgumentOutOfRangeException Console.WriteLine(outOfRange.ToString()) End Try Console.WriteLine(arrayList.Count) Console.WriteLine(arrayList.Contains("a")) Console.WriteLine(arrayList.IndexOf("a")) arrayList.Remove("a") arrayList.TrimToSize() Console.WriteLine(arrayList.Capacity) arrayList.Add("a") Dim enumerator As IEnumerator = arrayList.GetEnumerator() While enumerator.MoveNext() Console.WriteLine(enumerator.Current ) End While End Sub
End Class
</source>
ArrayList.ToArray()
<source lang="vbnet"> Imports System Imports System.Collections
Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim array_list As New ArrayList array_list.Add("A") array_list.Add("B") array_list.Add("C") " Array of objects. Dim obj_array() As Object obj_array = array_list.ToArray() " Array of strings. Dim string_array() As String string_array = DirectCast(array_list.ToArray(GetType(String)), String()) " Array object of objects. Dim astring_array As Array astring_array = array_list.ToArray()
End Sub
End Class
</source>
ArrayList.TrimToSize
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Public Shared Sub Main() Dim arrayList As arrayList = New arrayList(1) arrayList.Add("a") try Console.WriteLine(arrayList(0)) Catch outOfRange As ArgumentOutOfRangeException Console.WriteLine(outOfRange.ToString()) End Try Console.WriteLine(arrayList.Count) Console.WriteLine(arrayList.Contains("a")) Console.WriteLine(arrayList.IndexOf("a")) arrayList.Remove("a") arrayList.TrimToSize() Console.WriteLine(arrayList.Capacity) arrayList.Add("a") Dim enumerator As IEnumerator = arrayList.GetEnumerator() While enumerator.MoveNext() Console.WriteLine(enumerator.Current ) End While End Sub
End Class
</source>