十分简单

[Linux_9]

'[code=VB]

Public Class ProductInfo
Implements IComparable'这里这句话是做什么用的
Public _productName As String
Public _productPrice As Decimal

Public Sub New(ByVal name As String, ByVal price As Decimal)
_productName = name
_productPrice = price
End Sub
Public Function CompareTo(ByVal obj As Object) As Integer _
Implements IComparable.CompareTo'还有这里，能否解释哈哈

Dim p As ProductInfo = CType(obj, ProductInfo)

'产品价格的比较
If (p._productPrice > _productPrice) Then Return -1
If (p._productPrice < _productPrice) Then Return 1
Return 0
End Function
End Class
[/code]

[Linux_9]

Public Class ProductInfo
    Implements IComparable'这里这句话是做什么用的
    Public _productName As String
    Public _productPrice As Decimal

    Public Sub New(ByVal name As String, ByVal price As Decimal)
        _productName = name
        _productPrice = price
    End Sub
    Public Function CompareTo(ByVal obj As Object) As Integer _
        Implements IComparable.CompareTo'还有这里，能否解释哈哈

        Dim p As ProductInfo = CType(obj, ProductInfo)

        '产品价格的比较
        If (p._productPrice > _productPrice) Then Return -1
        If (p._productPrice < _productPrice) Then Return 1
        Return 0
    End Function
End Class 

[ericzhangbo1982111]

Public Class ProductInfo
Implements IComparable'这里这句话是做什么用的 实现IComparable这个接口
Public _productName As String
Public _productPrice As Decimal

Public Sub New(ByVal name As String, ByVal price As Decimal)
_productName = name
_productPrice = price
End Sub
Public Function CompareTo(ByVal obj As Object) As Integer _
Implements IComparable.CompareTo'还有这里，能否解释哈哈实现IComparable'这个接口里面的CompareTo'方法

Dim p As ProductInfo = CType(obj, ProductInfo)

'产品价格的比较
If (p._productPrice > _productPrice) Then Return -1
If (p._productPrice < _productPrice) Then Return 1
Return 0
End Function
End Class

[Linux_9]

[code=vb.net]
Public Function CompareTo(ByVal obj As Object) As Integer _
Implements IComparable.CompareTo
'还有这里，能否解释哈哈实现IComparable
'这个接口里面的CompareTo'方法
'我没有明白放在这里为什么，没有找到用处···
Dim p As ProductInfo = CType(obj, ProductInfo)

'产品价格的比较
If (p._productPrice > _productPrice) Then Return -1
If (p._productPrice < _productPrice) Then Return 1
Return 0
End Function
[/code]

[Linux_9]

    Public Function CompareTo(ByVal obj As Object) As Integer _
        Implements IComparable.CompareTo
'还有这里，能否解释哈哈实现IComparable
'这个接口里面的CompareTo'方法
'我没有明白放在这里为什么，没有找到用处···
        Dim p As ProductInfo = CType(obj, ProductInfo)

        '产品价格的比较
        If (p._productPrice > _productPrice) Then Return -1
        If (p._productPrice < _productPrice) Then Return 1
        Return 0
    End Function