Как определить есть или нет контрол на форме?

[lomaster]

Перерисовывается форма с динамическими кнопками.
Нужные гружу:

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

If Not fExistControl(i) Then Load cmdBtn(i)


Ненужные выгружаю:

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

If fExistControl(j) Then Unload cmdBtn(j)


Для проверки наличия/отсутствия написал такую функцию:

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

Function fExistControl(iNum As Integer) As Boolean
    fExistControl = False
    For Each objControl In Me.Controls
        If objControl.Index = iNum Then
            fExistControl = True
            Exit Function
        End If
    Next
End Function


Все работает... НО никак не пойму - неужели нельзя проще ??? Приходится ведь каждый раз перебирать все контролы
Почему не срабатывает конструкция вида???:

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

If cmdBtn(i) Is Nothing Then Load cmdBtn(i)


Или мои сомнения напрасны и это решение - оптимально?

[tyomitch]

Наверное, было бы проще что-то вроде

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

Function fExistControl(iNum As Integer) As Boolean
On Error Goto Miss
    cmdBtn(iNum).Tag = "anything"
    fExistControl = True
    Exit Function
Miss:
    fExistControl = False
End Function


[lomaster]

Я где то читал что On Error сильно тормозит программу ???
И все таки (мож кто сможет объяснить) почему не работает Is Nothing ?

[tyomitch]

Потому что это не массив объектных переменных, а чёрти-что. С ним Is Nothing не работает.
Что и где ты читал - не знаю, но рекомендую померять скорость, если есть сомнения. Тут вон один человек недавно прочитал где-то, что в VB5 InStr нету

[lomaster]

СПАСИБО. Все понял. Тема закрыта