VB.Net by API/System/IFormattable — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
Implements IFormattable
<source lang="vbnet">
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.rupareTo 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.rupareTo(B)) End Sub
End Module
</source>