Inherits ListDictionary : ListDictionary « System.Collections.Specialized « VB.Net by API

1. VB.Net by API
2. System.Collections.Specialized
3. ListDictionary

Inherits ListDictionary

  


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

   
    
  

Related examples in the same category