VB.NET質問スレ (Part17)

VB.NET質問スレ (Part17) at TECH

373:デフォルトの名無しさん
06/09/11 18:43:03
>>371
Public Class MyCompare : Implements IComparer(Of Char)
　　Public Function Compare(ByVal x As Char, ByVal y As Char) As Integer Implements IComparer(Of Char).Compare
　　　　Dim xLow As Char = Char.ToLower(x)
　　　　Dim yLow As Char = Char.ToLower(y)
　　　　If xLow = yLow Then
　　　　　　Return -x.CompareTo(y)
　　　　End If
　　　　Return xLow.CompareTo(yLow)
　　End Function
End Class

Array.Sort(c) の代わりに Array.Sort(c, New MyCompare())

次ページ

続きを表示

1を表示