ホーム > ライブラリ > 2021/2/10

ライブラリ

2021/2/10

Dictionaryクラス

Dictionary は使い勝手がよくて好きなんですが、
直してもらいたいことも...

①Itemsがローカルウィンドウで見れない(^_^;)

②Keysがローカルウィンドウで256までしか見れない(・・;)

③[変数]  = Dic.Item([Key]) の時に
  Dicに無いKeyだったら自動的にDicに追加され
  [変数]に自動的にEmptyが入る(T_T).。◯(無いって言ってよー)

そこで、Dictionary をとっつきやすくするクラスを大公開~!!!ノ゚∀゚)ノヤットサー!

*******************************************************************************************************************
使用例①・・・Dicの代わりとして

 Dim C_Dic As [Dicクラス]
 Set C_Dic = New [Dicクラス]
    ・・・後は通常のDicと同様に使用
*******************************************************************************************************************

*******************************************************************************************************************
使用例②・・・Dicのデバッグ
 Dim Dic As Scripting.Dictionary
 Dic.Add() などなど

 Dim C_Dic As [Dicクラス]
 Set C_Dic = New [Dicクラス]
    Set C_Dic.Dic = Dic '★Dictionaryをクラスに格納して、Keys,Items等を確認★
*******************************************************************************************************************

もしクラス使うのも面倒だ!! って人は、
ウォッチウィンドウに Dic.Keys や Dic.Items を入れると、
①,②が見れるようになりますよ~^^
※詳細はここでは割愛...

*******************************************************************************************************************

Dictionary   2021/02/10   shono