「VB.NET」コレクションSortedListを生成する

2022年3月23日

書式
Dim 変数名 As New SortedList(Of Integer, String)
Add(key,val)
要素(キー、値)を追加します。
SortedListはコレクションのひとつで、要素をキーと値で保持するオブジェクトです。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Sub Main()
'SortedListを生成
Dim cityList As New SortedList(Of Integer, String)
'要素をセットする
cityList.Add(3, "東京")
cityList.Add(1, "大阪")
cityList.Add(4, "福岡")
cityList.Add(2, "横浜")
cityList.Add(5, "川崎")
'全要素を順番に取得
For Each s In cityList
Console.WriteLine("キー:" & s.Key & " 値:" & s.Value)
Next
Console.ReadKey()
End Sub
End Module
Module Module1 Sub Main() 'SortedListを生成 Dim cityList As New SortedList(Of Integer, String) '要素をセットする cityList.Add(3, "東京") cityList.Add(1, "大阪") cityList.Add(4, "福岡") cityList.Add(2, "横浜") cityList.Add(5, "川崎") '全要素を順番に取得 For Each s In cityList Console.WriteLine("キー:" & s.Key & " 値:" & s.Value) Next Console.ReadKey() End Sub End Module
Module Module1

    Sub Main()

       'SortedListを生成
        Dim cityList As New SortedList(Of Integer, String)

        '要素をセットする
        cityList.Add(3, "東京")
        cityList.Add(1, "大阪")
        cityList.Add(4, "福岡")
        cityList.Add(2, "横浜")
        cityList.Add(5, "川崎")


        '全要素を順番に取得
        For Each s In cityList
            Console.WriteLine("キー:" & s.Key & " 値:" & s.Value)
        Next

        Console.ReadKey()
    End Sub

End Module

実行結果

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
キー:1 値:大阪
キー:2 値:横浜
キー:3 値:東京
キー:4 値:福岡
キー:5 値:川崎
キー:1 値:大阪 キー:2 値:横浜 キー:3 値:東京 キー:4 値:福岡 キー:5 値:川崎
キー:1 値:大阪
キー:2 値:横浜
キー:3 値:東京
キー:4 値:福岡
キー:5 値:川崎

 

VB.net

Posted by arkgame