「VB.NET」コレクションDictionaryを使うサンプル

2022年3月23日

書式
Add(key,val)
要素(キー、値)を追加します。
Dictionaryはコレクションのひとつで、要素をキーと値で保持するオブジェクトです。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Sub Main()
'Dictionaryを生成
Dim dta As New Dictionary(Of String, String)
'要素をセットする
dta.Add("01", "東京")
dta.Add("02", "大阪")
dta.Add("03", "福岡")
'キー"03"の要素を取得
Dim res As String = dta("03")
Console.WriteLine("要素: " & res)
'Dictionaryの全要素を取得
For Each s In dta
Console.WriteLine("キー: " & s.Key & " 値: " & s.Value)
Next
Console.ReadKey()
End Sub
End Module
Module Module1 Sub Main() 'Dictionaryを生成 Dim dta As New Dictionary(Of String, String) '要素をセットする dta.Add("01", "東京") dta.Add("02", "大阪") dta.Add("03", "福岡") 'キー"03"の要素を取得 Dim res As String = dta("03") Console.WriteLine("要素: " & res) 'Dictionaryの全要素を取得 For Each s In dta Console.WriteLine("キー: " & s.Key & " 値: " & s.Value) Next Console.ReadKey() End Sub End Module
Module Module1

    Sub Main()

        'Dictionaryを生成
        Dim dta As New Dictionary(Of String, String)

        '要素をセットする
        dta.Add("01", "東京")
        dta.Add("02", "大阪")
        dta.Add("03", "福岡")

        'キー"03"の要素を取得
        Dim res As String = dta("03")
        Console.WriteLine("要素: " & res)

        'Dictionaryの全要素を取得
        For Each s In dta
            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
要素: 福岡
キー: 01 値: 東京
キー: 02 値: 大阪
キー: 03 値: 福岡
要素: 福岡 キー: 01 値: 東京 キー: 02 値: 大阪 キー: 03 値: 福岡
要素: 福岡
キー: 01 値: 東京
キー: 02 値: 大阪
キー: 03 値: 福岡

 

VB.net

Posted by arkgame