ハッシュテーブルのサンプルプログラム

For Each … In … Next ステートメントを使って、ハッシュテーブルのすべてのキーと値を取得します。

ソースリストの枠内をクリックすると全選択できます。

  ' ハッシュテーブルへ項目を追加
  Dim htblGengo As New Hashtable()

  htblGengo.Add("S", "昭和")
  htblGengo.Add("M", "明治")
  htblGengo.Add("T", "大正")
  htblGengo.Add("H", "平成")

  ' ForEach…Nextを使って、すべてのキーと値を取得する
  ' ハッシュテーブル内の各要素は、プロパティkeyとvalueでアクセス
  Dim gengo As System.Collections.DictionaryEntry
  Dim key As String
  Dim value As String

  ' すべての値を取得
  For Each gengo In htblGengo
      key = CStr(gengo.Key)
      value = CStr(gengo.Value)

      ' 結果の確認
      Trace.WriteLine("キー＝" & key)
      Trace.WriteLine("値　＝" & value)

  Next gengo