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

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net Tutorial » Class Module » Property 
6.38.12.Single Indexed Property
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 IntegerAs Employee
    Get
      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)
    Else
      Console.WriteLine("Employee details: {0}", Who)
    End If
  End Sub
End Module
Employee details: T 17000
6.38.Property
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
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.