[VB.NET]クラスを複数のオブジェクトをリストに格納するサンプル

2021年10月6日

書式
Dim オブジェクト名 As New List(Of クラス名)
オブジェクト名.Add(New クラス名 With {.プロパティ1 = 値1, xxxx})

使い方
リスト名(インデックス).プロパティ

使用例

Module Module1
    'クラスの定義
    Public Class UserInfo
        'String型の宣言
        Public userId As String
        Public username As String
        'userIdのget setメソッド
        Public Property id() As String
            Get
                Return userId
            End Get
            Set(ByVal value As String)
                userId = value
            End Set
        End Property
        'usernameのget set メソッド
        Public Property name() As String
            Get
                Return username
            End Get
            Set(ByVal value As String)
                username = value
            End Set
        End Property

    End Class
    Sub Main()

        Dim usrLst As New List(Of UserInfo)
        'オブジェクト初期化子を使用してクラスのインスタンスを生成 インスタンスをリストにセット
        usrLst.Add(New UserInfo With {.userId = "1001", .username = "山田"})
        '要素2のデータを追加
        usrLst.Add(New UserInfo With {.userId = "2001", .username = "大崎"})
        '要素3のデータをリストに追加
        usrLst.Add(New UserInfo With {.userId = "3001", .username = "杉山"})
        '要素4のデータを追加
        usrLst.Add(New UserInfo With {.userId = "4001", .username = "室蘭"})

        Console.WriteLine("リストの2番目要素クラスのプロパティを出力")
        Console.WriteLine("ユーザー名: " + usrLst(1).username + " ユーザーID:" + usrLst(1).userId)
        Console.WriteLine("リストの3番目要素クラスのプロパティを出力")
        Console.WriteLine("ユーザー名: " + usrLst(2).username + " ユーザーID:" + usrLst(2).userId)

        Console.ReadKey()
    End Sub


End Module

実行結果
リストの2番目要素クラスのプロパティを出力
ユーザー名: 大崎 ユーザーID:2001
リストの3番目要素クラスのプロパティを出力
ユーザー名: 杉山 ユーザーID:3001

VB.net

Posted by arkgame