VB.NET Tuple<T1,T2,T3>.IStructuralComparable.CompareTo方法代码示例

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› VB.NET›VB.NET教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

本文整理汇总了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

开发者ID:VB.NET开发者，项目名称:System，代码行数:43，代码来源:Tuple.IStructuralComparable.CompareTo

输出：

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)

注：本文中的System.Tuple<T1,T2,T3>.IStructuralComparable.CompareTo方法示例由纯净天空整理自Github/MSDocs等源码及文档管理平台，相关代码片段筛选自各路编程大神贡献的开源项目，源码版权归原作者所有，传播和使用请参考对应项目的License；未经允许，请勿转载。