Implements IFormattable : IFormattable « System « VB.Net by API

1. VB.Net by API
2. System
3. IFormattable

Implements IFormattable

  
 

Class YourClass
    Implements IFormattable
    Implements IComparable

    Public Value As String

    Public Overridable Overloads Function ToString(ByVal Format As String, ByVal Provider As IFormatProvider) As String Implements IFormattable.ToString
        ToString = Value
    End Function

    Public Overridable Overloads Function CompareTo(ByVal A As Object) As Integer Implements IComparable.CompareTo
        If (Value = A.Value) Then
            CompareTo = 0
        ElseIf (Value < A.Value) Then
            CompareTo = -1
        Else
            CompareTo = 1
        End If
    End Function

    Public Sub New(ByVal Value As String)
        Me.Value = Value
    End Sub
End Class

Module Module1
    Sub Main()

        Dim A As New YourClass("Hello")
        Dim B As New YourClass("Hi")

        Console.WriteLine(A)
        Console.WriteLine(B)
        Console.WriteLine(A.CompareTo(B))
    End Sub
End Module

   
    
  

Related examples in the same category