VB.Net by API/System.Collections/Collection

Collection.Add

  
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

Collection.GetEnumerator()

  

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

Collection.Item

  
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

Collection.Remove

  
 

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