Does a control exist?

[samshiell]

Hi

How can I find out programmatically if a control exists on a form?

I'm writing a generic procedure to which a form is passed as a "FORM" object,and I need to know whether a tabstrip exists on the form

Cheers

 

[Norris68]

Dim C As Control
For Each C In Me.Controls
    If TypeOf C Is TabStrip Then
        Debug.Print C.Name & " is a tabstrip"
    End If
Next C

 

[samshiell]

Cheers,

Now you've pointed this out it's obvious

Thanks

Sam

 

[CajunCenturion]

You can loop thru the Controls collection that exists for every form. Something like the following


Public Function CheckForTab (OnForm as Form) as Boolean

Dim Cntl as Control
Dim TabExists as Boolean

TabExists = false
For Each Cntl in OnForm.Controls
If (TypeName(Cntl) = "TabStrip&quot Then
TabExists = True
End If
End If

CheckForTab = TabExists

End Function
Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein