получение ключа элемента коллекции

[else]

Доброго времени суток.

Подскажите, плс, можно ли каким либо образом получить значение ключа элемента коллекции. допустим имеем:

Код: Выделить всё


Dim clc As New Collection

Function addkeyitem

clc.Add key:="aaa", Item:="bbb"
clc.Add key:="bbb", Item:="aaa"

end function


а дальше нужно получить значение элемента (не проблема) и ключа (очень нуно).
[/syntax]

[tyomitch]

Невозможно. Юзай коллекцию от edanmo либо Dictionary.

[GSerg]

В таких случаях я иногда делаю так...

Код: Выделить всё

clc.Add array("bbb", "aaa"), "aaa"
clc.Add array("aaa" , "bbb"), "bbb"
...
msgbox clc(2)(1)

[else]

2GSerg

Спасибо. Идея понравилась и претворена в коде.