есть ли элемент в коллекции

[devel]

Господа, есть коллекция, например коллекция свойств контрола. Вопрос: можно ли программно без генерации ошибки определить есть ли элемент в коллекции? Можно, конечно, тупым перебором всех свойств, но может быть есть более лаконичный способ?

Заранее спасибо!

[RayShade]

Нет нельзя.

[Colonel]

Попробуй вот такой вариант - несколько коряво но в случае коллекции вроде должен работать

Function IsInCollection(checkCollection As Collection, checkKey As String) As Boolean
Dim returnVal
IsInCollection = True
On Error GoTo errlab:
returnVal = checkCollection(checkKey)
Exit Function
errlab:
IsInCollection = False
End Function

[Sebas]

Вообщето проще использовать Dictionary

[Colonel]

Вообщето проще использовать Dictionary

Спасибо за совет - раньше не знал про Dictionary!

[devel]

Dictionary - это конечно хорошо, но как это можно использовать когда у меня коллекция, скажем, control.properties?

Проверка чего-либо методом генерации ошибки - метод достаточно универсальный. Только у него есть минус. Скажем, отлавливается реальная ошибка, а в процедурах стоит инструкция On Error. Как тогда понять, на какой строке кода сбоит? Можно закомментить On Error, но проще поставить Break On All Errors в опциях редактора VB. Но тогда он будет прерываться на всех ошибках. Поэтому я предпочитаю писать код так, чтобы ошибки не генерились.

[sanches]

насамом деле, отлавливание ошибок - это целое искусство Чтобы определить, где ошибка в данном случае ловите ошибку 5. А вообще для определнеия места ошибки я юзаю "индекс" - в ключевых местах процедуры присваеваешь иму определенной значение, а в обработке ошибки проверяешь его

[Sebas]

Тогда так

Function IsInCollection(checkCollection As Collection, checkKey As String) As Boolean
Dim X as Object

For Each x In checkCollection

if x.Name=checkKey then
sInCollection=True
Exit Function
end if

End Function

[sanches]

http://bbs.vbstreets.ru/viewtopic.php?t=264
я там сделал так - есть класс, у кот. два св-ва Name и Value - при добавлении в набор указываются оба, а Name плюс к тому еще используется как ключ. Тогда то, что предлагает Sebas как раз тут и подойдет

[Colonel]

Да, в VB-6 работа с ошибками конечно оставляет желать лучшего!
Жаль что нет такой нужной конструкции как
try
catch
многие бы вопросы снялись
а так шаманить приходиться

[devel]

То, что предлагает Sebas - разумный и естественный способ. Только, блин, работает не всегда. Я сейчас бьюсь над тем, что в Access у поля есть коллекция свойств. Так вот, вся подлянка в том, что некоторые свойства доступны только в режике конструктора, а некоторые только в режиме просмотра. Таким образом, пробежаться по ВСЕЙ КОЛЛЕКЦИИ пока не получается.