VB.Net by API/System.Collections/Collection
Collection.Add
<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass
Shared Sub Main() Dim intCollection As New Collection( ) Dim empCollection As New Collection( ) Dim empCollection2 As New Collection( ) "populate the Collections Dim i As Integer For i = 0 To 4 empCollection.Add(New Employee(i + 100)) intCollection.Add((i * 5)) Next i "add key/value pairs empCollection2.Add(New Employee(1989), "G W") empCollection2.Add(New Employee(1997), "J A") empCollection2.Add(New Employee(1901), "T J") "print each member of the array For Each i In intCollection Console.Write("{0} ", i.ToString( )) Next i Console.WriteLine( ) Console.WriteLine("Employee collection...") Dim e As Employee For Each e In empCollection Console.Write("{0} ", e.ToString( )) Next e Console.WriteLine( ) Console.WriteLine("Employee collection 2...") For Each e In empCollection2 Console.Write("{0} ", e.ToString( )) Next e Console.WriteLine( ) "retrieve an Employee by key Dim emp As Employee emp = empCollection2.Item("J A") Console.WriteLine( emp.ToString( )) "note that indexing is 1-based (rather than zero based) emp = empCollection2.Item(1) Console.WriteLine(emp.ToString( )) 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>
Collection.GetEnumerator()
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim m_employees As New Collection m_employees.Add(New employee("A", "B", "Author")) m_employees.Add(New employee("C", "D", "Band")) m_employees.Add(New employee("E", "F", "Artist")) " Iterator. Dim emp As employee Dim employee_enumerator As IEnumerator employee_enumerator = m_employees.GetEnumerator() Do While (employee_enumerator.MoveNext) emp = CType(employee_enumerator.Current, Employee) Console.WriteLine(emp.Title & " " & emp.FirstName & " " & emp.LastName) Loop
" For Each. For Each emp1 As employee In m_employees Console.WriteLine(emp1.Title & " " & emp1.FirstName & " " & emp1.LastName) Next emp1 End Sub
End Class
Public Class Employee Public FirstName As String Public LastName As String Public Title As String Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal new_title As String) FirstName = first_name LastName = last_name Title = new_title End Sub End Class </source>
Collection.Item
<source lang="vbnet"> Imports System Imports System.Collections Public Class MainClass
Shared Sub Main() Dim intCollection As New Collection( ) Dim empCollection As New Collection( ) Dim empCollection2 As New Collection( ) "populate the Collections Dim i As Integer For i = 0 To 4 empCollection.Add(New Employee(i + 100)) intCollection.Add((i * 5)) Next i "add key/value pairs empCollection2.Add(New Employee(1989), "G W") empCollection2.Add(New Employee(1997), "J A") empCollection2.Add(New Employee(1901), "T J") "print each member of the array For Each i In intCollection Console.Write("{0} ", i.ToString( )) Next i Console.WriteLine( ) Console.WriteLine("Employee collection...") Dim e As Employee For Each e In empCollection Console.Write("{0} ", e.ToString( )) Next e Console.WriteLine( ) Console.WriteLine("Employee collection 2...") For Each e In empCollection2 Console.Write("{0} ", e.ToString( )) Next e Console.WriteLine( ) "retrieve an Employee by key Dim emp As Employee emp = empCollection2.Item("J A") Console.WriteLine( emp.ToString( )) "note that indexing is 1-based (rather than zero based) emp = empCollection2.Item(1) Console.WriteLine(emp.ToString( )) 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>
Collection.Remove
<source lang="vbnet">
Option Strict On
Public Module CollectionTest
Public Sub Main() Dim weights As New Collection weights.Add("ounces", "oz") weights.Add("pounds", "lbs") weights.Add("kilograms", "kg") weights.Add("milligrams", "mg") For ordinal As Integer = weights.Count To 1 Step -1 weights.Remove(ordinal) Next Console.WriteLine("The collection now has {0} items.", weights.Count) End Sub
End Module
</source>