Default 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
VB.Net by API
VB.Net Tutorial » Class Module » Property 
6.38.2.Default Property
Imports System
Imports System.Collections

Class EmployeeList
  Private mEmployees As Hashtable

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

  Public Default Property Employee(ByVal ID As IntegerAs Employee
    Get
      Dim theObject As Object
      theObject = mEmployees(ID)
      Return CType(theObject, Employee)
    End Get

    Set(ByVal Value As Employee)
      mEmployees(ID= Value
    End Set
  End Property
End Class

Class Employee
  Private mName As String
  Private mWage As Double
  Private mID As Integer

  Public Sub New(ByVal name As String, _
                 ByVal wage As Double, _
                 ByVal id As Integer)
    mName = name
    mWage = wage
    mID = id
  End Sub

  Public Property Name() As String
    Get
      Return mName
    End Get

    Set(ByVal Value As String)
      mName = Value
    End Set
  End Property

  Public ReadOnly Property Wage() As Double
    Get
      Return mWage
    End Get
  End Property

  Public ReadOnly Property ID() As Integer
    Get
      Return mID
    End Get
  End Property

  Public Sub PayRise(ByVal amount As Double)
    mWage += amount
  End Sub

  Public Overrides Function ToString() As String
    Return "[" & mID & "] " & mName & " " & mWage
  End Function
End Class


Module Test
  Sub Main()
    Dim employer As New EmployeeList()

    employer.Employee(1= New Employee("A"250001)
    employer.Employee(2= New Employee("J"350002)
    employer.Employee(3= New Employee("T"170003)
    employer.Employee(4= New Employee("E"165004)

    Dim ID As Integer
    ID = 2

    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: [2] J 35000
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
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.