Как проверить существует контрол или нет?

[#set]

Есть динамически размноженные фреймы и другая "живность".
Блин замучился с строкой проверки существует ли фрейм или он выгружен.
Вот пример как пробовал делать я:

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

Dim Adr As Integer
On Error GoTo nextF
Adr = 0
For n = 1 To 200
If Form1.PersonID(500 + n).Caption <>"" Then
    Data.TableArray(Adr, 0) = Form1.PersonID(500 + n).Caption
    Data.TableArray(Adr, 1) = Form1.LbName(500 + n).Caption
    Adr = Adr + 1
End If
nextF:
    Next n
End Sub


Но нихрена не работает. Кстати странно как реагирует переход при ошибке. При первой ошибке делает переход на метку а второй раз возвращаясь по циклу забывает что при ошибке делать. Блин запутался совсем [/code]

[Serge Gavrilov]

Кстати странно как реагирует переход при ошибке. При первой ошибке делает переход на метку а второй раз возвращаясь по циклу забывает что при ошибке делать. Блин запутался совсем

Ничего странного при таком коде...
Почитайте об обработке ошибок.

[#set]

Я пробовал разные варианты. И если бы нашел выход то не спрашивал. И потом меня не столько интересует обработка ошибок (хотя я эту сроку писал и в теле цикла но без результа) сколько проверка именно есть объект или нет.

[#set]

Нашел решение. Добавил отдельно функцию проверки существует ли объект или нет. Все простенько. Но есть ли способ проверить без генерации ошибки типо if frame(1) <> null then работаем.

[AjaxVS]

Тебе ж написали уже:

Почитайте об обработке ошибок.

От себя добавлю (все таки я добрый фей):

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

...
for i = 0 to 100
on error resume next
s = Form1.Some_Control(i).name
if err then
  'контрол отсутствует
else
  'контрол присутствует
endif
next
...


Оно?

[XPAHuTEJIb]

а я б ещё ошибочку сбросил, ато в следующий раз не среагирует.

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

err.clear