Single Indexed Property : Property « Class Module « VB.Net Tutorial

Imports System
Imports System.Collections

Class Employee
  Public Name As String
  Public Wage As Double

  Public Sub New(ByVal N As String, ByVal W As Double)
    Name = N
    Wage = W
  End Sub

    Public Sub PayRaise(ByVal Amount As Double)
        Wage += Amount
    End Sub

    Public Overrides Function ToString() As String
        Return Name & " " & Wage
    End Function
End Class

Class Employer
  Private MEmployees As Hashtable

  Public Sub New()
    MEmployees = New Hashtable()
  End Sub

  Public Property Employee(ByVal ID As Integer) As Employee
      Dim TheObject As Object
      TheObject = MEmployees.Item(ID)
      Return CType(TheObject, Employee)
    End Get

    Set(ByVal Value As Employee)
      MEmployees.Item(ID) = Value
    End Set
  End Property
End Class

Module Test
  Sub Main()
    Dim Employer As New Employer()

    Employer.Employee(1) = New Employee("A", 25000)
    Employer.Employee(2) = New Employee("J", 35000)
    Employer.Employee(3) = New Employee("T", 17000)
    Employer.Employee(4) = New Employee("E", 16500)

    Dim ID As Integer = 3

    Dim Who As Employee
    Who = employer.Employee(ID)

    If Who Is Nothing Then
      Console.WriteLine("Unrecognized ID: {0}", ID)
      Console.WriteLine("Employee details: {0}", Who)
    End If
  End Sub
End Module
Employee details: T 17000

6.38.1.Define and use a Property
6.38.2.Default Property
6.38.3.Two properties
6.38.4.Do calculation in Property getter
6.38.5.Properties with Getter and Setter
6.38.6.Shared variable and Shared Property
6.38.7.Class with a property that performs validation
6.38.8.ReadOnly property
6.38.9.MultiKey Properties
6.38.10.Overloaded Properties
6.38.11.Shared Properties
6.38.12.Single Indexed Property
6.38.13.Loop through two dimensional array with GetUpperBound and GetLowerBound
6.38.14.Use Property to set private data
6.38.15.Do data check in property set
6.38.16.Convert data type in property set
6.38.17.Throw Exception in Property setting
6.38.18.Change value in Property getter
6.38.19.Friend Property
6.38.20.Readable and Writable
6.38.21.Person with FirstName and LastName Property
6.38.22.Define a class with one property and retrieves the name and type of the property