Shared Property Demo

 
Imports System

Public Class MainClass

  Shared Sub Main()
        Dim e As New Employee("Joe", 100000)
        Console.WriteLine(e.TheName & " is employee# " & e.EmployeeId & "  with salary " & e.Salary())
        Dim Sally As New Employee("Sally", 150000)
        Console.WriteLine(Sally.TheName & " is employee# " & _
        Sally.EmployeeId & " with salary " & Sally.Salary())
        Console.WriteLine("Please press the Enter key")
  End Sub


End Class



Public Class Employee
    Private m_Name As String
    Private m_Salary As Decimal
    Private Shared m_EmployeeID As Integer = 10000
    Private m_MyID As Integer
  Public Sub New(ByVal thesName As String, ByVal curSalary As Decimal)
        m_Name = thesName
        m_Salary = curSalary
        m_EmployeeID = m_EmployeeID + 1
        m_MyID = m_EmployeeID
  End Sub
  ReadOnly Property EmployeeId() As Integer
    Get
            Return m_MyID
    End Get
  End Property
  ReadOnly Property TheName() As String
    Get
      TheName = m_Name
    End Get
  End Property
  ReadOnly Property Salary() As Decimal
    Get
      Salary = m_Salary
    End Get
  End Property
End Class

Related examples in the same category

1.	Declare Protected Properties
2.	Get and set Properties
3.	Class Property Get and Set
4.	Property Shadow during Inheritance
5.	Define and use Class: Property
6.	Compare int property

Shared Property Demo : Property « Class « VB.Net

Related examples in the same category