tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: 構造体のソートについて
投稿日: 2005/05/26(Thu) 15:39
投稿者じゃんぬねっと
参照先http://jeanne.wankuma.com/
こんにちは、じゃんぬ です。

まず、構造体に IComparable インターフェイスを実装してください。

    Public Structure Kaisha
        Implements IComparable

        Public Code As String
        Public Name As String

        Public Overloads Function CompareTo(ByVal obj As Object) As Integer Implements
System.IComparable.CompareTo
            If TypeOf obj Is Kaisha Then
                Return Me.CompareTo(DirectCast(obj, Kaisha))
            End If
        End Function

        Public Overloads Function CompareTo(ByVal value As Kaisha) As Integer
            Select Case Me.Code
                Case Is = value.Code
                    Return 0
                Case Is > value.Code
                    Return 1
                Case Else
                    Return -1
            End Select
        End Function

    End Structure

ところで、kaisha(0) の要素は Nothing ですが、理解されてるでしょうか?

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。