VB.Net by API/System.Collections.Specialized/ListDictionary

Inherits ListDictionary

<source lang="vbnet">

Imports System.Collections Imports System.Collections.Generic Imports System.Collections.Specialized public class Test

  public Shared Sub Main
       Dim dict As New EmployeeListDictionary
       dict.Add("123-45-6789", New Employee("A", "A"))
       dict.Add("111-22-3333", New Employee("B", "B"))
       dict.Add("365-76-5476", New Employee("C", "C"))
       dict.Add("832-77-6847", New Employee("D", "D"))
       Dim emp As Employee = dict.Item("365-76-5476")
       Console.WriteLine(emp.ToString)
  End Sub
  

End class

Public Class Employee

   Private m_FirstName As String
   Private m_LastName As String
   Public Sub New(ByVal first_name As String, ByVal last_name As String)
       m_FirstName = first_name
       m_LastName = last_name
   End Sub
   Public Overrides Function ToString() As String
       Return m_FirstName & " " & m_LastName
   End Function

End Class Public Class EmployeeListDictionary

   Inherits ListDictionary
   Public Shadows Sub Add(ByVal new_key As String, ByVal new_employee As Employee)
       MyBase.Add(new_key, new_employee)
   End Sub
   Default Public Shadows Property Item(ByVal key As String) As Employee
       Get
           Return DirectCast(MyBase.Item(key), Employee)
       End Get
       Set(ByVal Value As Employee)
           MyBase.Item(key) = Value
       End Set
   End Property
   Public Shadows Function Contains(ByVal key As String) As Boolean
       Return MyBase.Contains(key)
   End Function
   Public Shadows Sub Remove(ByVal key As String)
       MyBase.Remove(key)
   End Sub

End Class

 </source>