user2934164 user2934164 - 1 year ago 39 Question

Frm.Controls returns nothing if control is in an TabControl

I converted a project from vb6 to where I found a given control that was inside a TabControl via the collection Controls as such


I checked and the control does exist in the form.

I iterated on all that is inside the Controls Collection and the control is not there, only the TabControl which contains it. Does it mean that in I have to design a function to do something that vb6 could do?

Answer Source

Here's an example of how to recursively loop through all controls by parent:

Private Function GetAllControlsRecursive(ByVal list As List(Of Control), ByVal parent As Control) As List(Of Control)
    If parent Is Nothing Then Return list
    For Each child As Control In parent.Controls
        GetAllControlsRecursive(list, child)
    Return list
End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim allControls As New List(Of Control)

    For Each ctrl In GetAllControlsRecursive(allControls, Me) '<= Me is the Form or you can use your TabControl

        'do something here...

        If Not IsNothing(ctrl.Parent) Then
            Debug.Print(ctrl.Parent.Name & " - " & ctrl.Name)
        End If
End Sub