Override ToString Method to provide meaningful information : ToString « Class « VB.Net

1. VB.Net
2. Class
3. ToString

Override ToString Method to provide meaningful information

Imports System
Imports System.IO


Public Class MainClass

  Shared Sub Main()
        Dim e As New Employee("Joe", 10000)
        Console.WriteLine(e.TheName & " salary is " & e.Salary)
       
        Console.WriteLine(e)
  End Sub

  Public Class Employee
    Private m_Name As String
    Private m_Salary As Decimal
    Public Sub New(ByVal sName As String, ByVal curSalary As Decimal)
            If sName = String.Empty Then
                Console.WriteLine("no names")
            Else
                m_Name = sName
            End If
    End Sub
        Public Property TheName() As String
            Get
                Return m_Name
            End Get
            Set(ByVal Value As String)
                m_Name = Value
            End Set
        End Property
        Public ReadOnly Property Salary() As Decimal
            Get
                Return m_Salary
            End Get
        End Property
       
        Public Overrides Function ToString() As String
            Return (m_Name & " " & Me.GetType.ToString)
        End Function

    End Class

End Class


           
       

Related examples in the same category

1.	Override Object.ToString
2.	Override ToString function