VB.Net/Class/ToString

Override Object.ToString

Imports System
Public Class MainClass
    
    Shared Sub Main()
         Dim i As Integer = 5
         Console.WriteLine("The value of i is: {0}", i.ToString(  ))
         Dim milo As New Dog(62)
         Console.WriteLine("My dog Milo weighs {0} pounds", milo.ToString(  ))
    End Sub
End Class

 Public Class Dog
     Private weight As Integer
     Public Sub New(ByVal weight As Integer)
         Me.weight = weight
     End Sub "New
     Public Overrides Function ToString(  ) As String
         Return weight.ToString(  )
     End Function "ToString
 End Class "Dog

Override ToString function

Imports System
Public Class MainClass
    Shared Sub Main(ByVal args As String())
      Dim point As Point
      point = New Point(72, 115) " instantiate Point object
      " display point coordinates via X and Y properties
      Console.WriteLine( "X coordinate is " & point.X & _
         vbCrLf & "Y coordinate is " & point.Y )
      point.X = 10 " set x-coordinate via X property
      point.Y = 10 " set y-coordinate via Y property
      " display new point value
      Console.WriteLine("The new location of point is " & point.ToString() )
    End Sub
End Class
" Point class represents an x-y coordinate pair.
Public Class Point
   " implicitly Inherits Object
   Private mX, mY As Integer
   Public Sub New()
      " implicit call to Object constructor occurs here
      X = 0
      Y = 0
   End Sub " New
   " constructor
   Public Sub New(ByVal xValue As Integer,ByVal yValue As Integer)
      " implicit call to Object constructor occurs here
      X = xValue
      Y = yValue
   End Sub " New
   " property X
   Public Property X() As Integer
      Get
         Return mX
      End Get
      Set(ByVal xValue As Integer)
         mX = xValue " no need for validation
      End Set
   End Property " X
   " property Y 
   Public Property Y() As Integer
      Get
         Return mY
      End Get
      Set(ByVal yValue As Integer)
         mY = yValue " no need for validation
      End Set
   End Property " Y
   " return String representation of Point
   Public Overrides Function ToString() As String
      Return "[" & mX & ", " & mY & "]"
   End Function " ToString
End Class

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