Reimplement interface : Interface « Class Module « VB.Net Tutorial






Class BaseClass
    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

Class DerivedClass
    Inherits BaseClass

    Public Overrides Function ToString(ByVal _
      Format As String, ByVal Provider As IFormatProvider) _
      As String

        ToString = UCase(Value)

    End Function

    Public Sub New(ByVal Value As String)
        MyBase.New(Value)
    End Sub

End Class

Module Module1
    Sub Main()
        Dim A As New BaseClass("Hello")
        Dim B As New DerivedClass("Hi")

        Console.WriteLine(A)
        Console.WriteLine(B)
        Console.WriteLine(A.CompareTo(B))
    End Sub
End Module
Hello
HI
-1








6.44.Interface
6.44.1.Implement Interface
6.44.2.Interface with two methods
6.44.3.One Class implements two interfaces
6.44.4.Interface Inherits Interface
6.44.5.Interface with Property
6.44.6.Inheritance And Interfaces
6.44.7.Reimplement interface
6.44.8.Public Sub aMethod() Implements Interface1.Method, Interface2.Method
6.44.9.Two classes implement one interface
6.44.10.Implements two interfaces and WriteOnly Property