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
|