本文整理汇总了VB.NET中System.Tuple<T1,T2,T3>.IStructuralComparable.CompareTo方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Tuple<T1,T2,T3>.IStructuralComparable.CompareTo方法的具体用法？VB.NET Tuple<T1,T2,T3>.IStructuralComparable.CompareTo怎么用？VB.NET Tuple<T1,T2,T3>.IStructuralComparable.CompareTo使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Tuple<T1,T2,T3>的用法示例。
在下文中一共展示了Tuple<T1,T2,T3>.IStructuralComparable.CompareTo方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Main
' 导入命名空间
Imports System.Collections
Imports System.Collections.Generic
Public Class ScoreComparer(Of T1, T2, T3) : Implements IComparer
Public Function Compare(x As Object, y As Object) As Integer _
Implements IComparer.Compare
Dim tX As Tuple(Of T1, T2, T3) = TryCast(x, Tuple(Of T1, T2, T3))
If tX Is Nothing Then
Return 0
Else
Dim tY As Tuple(Of T1, T2, T3) = DirectCast(y, Tuple(Of T1, T2, T3))
Return Comparer(Of T2).Default.Compare(tx.Item2, tY.Item2)
End If
End Function
End Class
Module Example
Public Sub Main()
Dim scores() =
{ Tuple.Create("Jack", 78.8, 8),
Tuple.Create("Abbey", 92.1, 9),
Tuple.Create("Dave", 88.3, 9),
Tuple.Create("Sam", 91.7, 8),
Tuple.Create("Ed", 71.2, 5),
Tuple.Create("Penelope", 82.9, 8),
Tuple.Create("Linda", 99.0, 9),
Tuple.Create("Judith", 84.3, 9) }
Console.WriteLine("The values in unsorted order:")
For Each score In scores
Console.WriteLine(score.ToString())
Next
Console.WriteLine()
Array.Sort(scores, New ScoreComparer(Of String, Double, Integer)())
Console.WriteLine("The values in sorted order:")
For Each score In scores
Console.WriteLine(score.ToString())
Next
End Sub
End Module输出：
The values in unsorted order: (Jack, 78.8, 8) (Abbey, 92.1, 9) (Dave, 88.3, 9) (Sam, 91.7, 8) (Ed, 71.2, 5) (Penelope, 82.9, 8) (Linda, 99, 9) (Judith, 84.3, 9) The values in sorted order: (Ed, 71.2, 5) (Jack, 78.8, 8) (Penelope, 82.9, 8) (Judith, 84.3, 9) (Dave, 88.3, 9) (Sam, 91.7, 8) (Abbey, 92.1, 9) (Linda, 99, 9)