コレクション内にキーが既に存在しているかの判定について


うしわか  2004-06-22 23:20:00  No: 114133

コレクションにキーを指定して追加を行うときに
すでにあるキーを追加しようとするとエラーが発生するため
「2.」の判定を入れたいのですがコレクション内にキーが既に存在しているか
どうかの判定の方法がわかりません。

Private Sub Command1_Click()

Dim colMine As Collection

Set colMine = New Collection

'1.コレクションに「鎌倉幕府」をキーに追加
colMine.Add "源頼朝", "鎌倉幕府"

'2.キーに「鎌倉幕府」があれば削除。(ここの判定をどのようにすればよいか分かりません)
colMine.Remove "鎌倉幕府"

'3.キーを指定してコレクションに追加
colMine.Add "源頼朝", "鎌倉幕府"

MsgBox colMine(1)

End Sub

よろしくお願いします。(VB6.0)


ゆう  2004-06-23 01:01:22  No: 114134

On Error Gotoでエラートラップをしてから
とりあえずAddしてみてエラーであれば重複
したと考えればいいのでは?


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加