Check på om key eksisterer i en collection

Prøv følgende:

Option Explicit

Function Exist(c As Collection, ByVal vKey As Variant) As Boolean
    On Error Resume Next
    c (vKey)
    Exist = Err.Number = 0
End Function

Sub test()
    Dim c As New Collection
   
    c.Add \"item1\", \"1\" \' 1 er Key
    c.Add \"item2\", \"2\" \' 2 er Key
   
    If Exist(c, \"2\") Then
        MsgBox c(\"2\")
    End If
End Sub

hvor funktionen Exist returnerer true hvis Key\'n vKey tilhører collection c.

:) Buhl

Ok... lige hvad jeg skulle bruge.