09/02/08 15:42:15
>>821
Collectionでやりたいなら
' Module1
Dim col As New Collection
Dim itm As Class1
Set itm = New Class1: itm.Key = "A": itm.Text = "123": col.Add itm, itm.Key
Set itm = New Class1: itm.Key = "B": itm.Text = "456": col.Add itm, itm.Key
Set itm = New Class1: itm.Key = "C": itm.Text = "789": col.Add itm, itm.Key
For Each itm In col
If itm.Key = "B" Then
MsgBox itm.Text
End If
Next itm
' EOF
' Class1
Public Text As String
Public Key As String
' EOF