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

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

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

Private Sub Command1_Click()

Dim colMine As Collection

Set colMine = New Collection

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

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

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

MsgBox colMine(1)

End Sub

よろしくお願いします。（VB6.0）

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

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