Dictionaryの使い方

カテゴリ: VB6.0
投稿日時:2008/12/04 18:50:21
VB6.0でDictionary(ハッシュテーブル)は、以下のように使います。



まず、参照設定で「Microsoft Scripting Runtime」を追加します。

Dim dict As New Dictionary

'要素を追加する。
dict.Add "1", "aaa"
dict.Add "2", "bbb"

'キーから値を取得する
MsgBox dict("2")

'特定のキーが存在するか確認する
If dict.Exists("2") Then
    MsgBox "存在します。"
Else
    MsgBox "存在しません。"
End If

'値からキーを取得する
Dim i As Integer

For i = 0 To dict.Count - 1
    If dict.Items(i) = "bbb" Then
        MsgBox "キーは" & dict.Keys(i) & "です。"
        Exit For 
    End If
Next

'特定のキーの要素を削除する
dict.Remove "2"
このエントリーをはてなブックマークに追加

スポンサード リンク