Add object to Dictionary : Dictionary « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Dictionary

Option Strict On

Imports System.Collections.Generic

Public Module modMain
   Private employees As Dictionary(Of String, Employee)

   Public Sub Main()
      employees = New Dictionary(Of String, Employee)

      employees.Add("name",New Employee("name", "1"))
      employees.Add("name1",New Employee("name1", "1"))

      Console.WriteLine("There are {0} employees now on file. They are:",employees.Count)
      For Each pair As KeyValuePair(Of String, Employee) In Employees
         Console.WriteLine(" {0}: {1}", pair.Key, pair.Value.Name)
      Next
   End Sub

      
End Module

Public Class Employee
   Private empName As String
   Private empID As String

   Public Sub New(name As String, ID As String)
      Me.empName = name
      Me.empID = ID
   End Sub

   Public Property Name() As String
      Get
         Return Me.empName
      End Get
      Set
         Me.empName = Value
      End Set
   End Property

   Public Property ID As String
      Get
         return Me.empID
      End Get
      Set
         Me.empID = Value
      End Set
   End Property
End Class

There are 2 employees now on file. They are:
 name: name
 name1: name1