VB.netで複数キーによるソートを行いたい

Question

Listに格納されたClassのメンバ変数でのソートを行いたいのですが
メンバ変数１は第１キーで降順ソートとし、メンバ変数２は第２キーとして
昇順ソートを行いたいのですが、
実装方法が分かりません

【例】
'クラス例
Class Info
'日付
dim date as string
'名称
dim name as string
'種別コード
dim kind as string
End Class

'Class　Info　格納用List
Dim InfoList As New List(Of Info)

’繰り返しListに詰める
For each
Dim obj as Info = new Info()
'システム日付
obj.date = "20220301"
’名称
obj.name = "種類A"
’種別コード
obj.Kind = "001"

InfoList .Add(obj)

Next

Listのなかには、下記のような状態でClass Info が格納されているとした場合、

List(0)
date:20220206
name：種類A
kind：001

List(1)
date:20220125
name：種類C
kind：003

List(2)
date:20220125
name：種類B
kind：002

dateは第1キーとして、降順ソート、第2キーとして、kindは昇順ソートで並び替えということは可能でしょうか？
※SQLのorder by句のdesc ascの組み合わせによるソートを行いたいです。

※望むソート結果

date:20220206
name：種類A
kind：001

date:20220125
name：種類B
kind：002

date:20220125
name：種類C
kind：003

VB.net はまだ、使い始めのため、至らない点はあるかと思いますが
ご助力お願いいたします。

Comments

[退会済みユーザー]

ASP.NET のタグがついてますがどういう関係があるのですか？

[退会済みユーザー]

質問者さん無言ですが、前のスレッドの ASP.NET Web Forms アプリの話で、例えば GridView に表示される一覧をソートしたいとかいう ASP.NET と関係する話と、単に VB.NET のコーディングに限った話とでは答えが違ってくるので、ちゃんと質問に答えましょう。

Answer 1

Linq を学ぶと楽に書けますよ。

コード

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim infoList As New List(Of Info)
        infoList.Add(New Info("20220125", "C", "025"))
        infoList.Add(New Info("20220206", "X", "150"))
        infoList.Add(New Info("20220125", "B", "001"))

        Debug.WriteLine("=== 初期状態 ===")
        infoList.ForEach(Sub(i) Debug.WriteLine(i.ToString()))
        Debug.WriteLine("=== ソート後 ===")
        infoList.OrderByDescending(Function(i) i.strDate).
            ThenBy(Function(i) i.name).ToList().
            ForEach(Sub(i) Debug.WriteLine(i.ToString()))
    End Sub
End Class

Class Info
    Public strDate As String
    Public name As String
    Public kind As String

    Sub New(strDate As String, name As String, kind As String)
        Me.strDate = strDate
        Me.name = name
        Me.kind = kind
    End Sub

    Public Overrides Function ToString() As String
        ToString = strDate & ", " & name & ", " & kind
    End Function
End Class

結果

=== 初期状態 ===
20220125, C, 025
20220206, X, 150
20220125, B, 001
=== ソート後 ===
20220206, X, 150
20220125, B, 001
20220125, C, 025

Comments

[swordfish3345]

返信が遅くなり申し訳ありません。
実装例も提示いただき、ありがとうございました。
頂いた内容で試してみたいと思います。
非常に助かりました。