Control Array

[Zach Ahmed]

Hi All:
Can someone show me how to find out if certain object is loaded in the control array. I have a form and that form will have varried number of comboboxes and textboxes depending on what selection the user has made. I need to loop through the control array and if the combobox is loaded remove that combobox or textbox from the control array. I am not sure how to go about do this. I need help.

Thanks

[RhinoBull]

Something like this will do the job but you'll have to modify it if you need to re-arrange controls:

Option Explicit
 
Private Sub Command1_Click()
    UnloadControl "Text1", 2, False
End Sub
 
Public Sub UnloadControl(sName As String, iIndex As Integer, bCombo As Boolean)
Dim ctl As Control
 
    For Each ctl In Me.Controls
        If bCombo Then
            If TypeOf ctl Is ComboBox Then
                If LCase(ctl.Name) = LCase(sName) And ctl.Index = iIndex Then
                    Unload ctl
                    Exit For
                End If
            End If
        Else
            If TypeOf ctl Is TextBox Then
                If LCase(ctl.Name) = LCase(sName) And ctl.Index = iIndex Then
                    Unload ctl
                    Exit For
                End If
            End If
        End If
    Next ctl
 
End Sub

NOTE: you cannot unload any control that was created during design time.

[Zach Ahmed]

Thanks RhinoBull!!