Mega Code Archive

 

Categories / VB.Net / Class

 

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