递归循环遍历组件在 VB 中不起作用

Question

我试图递归地循环遍历窗口中的组件，但它永远不会越过窗口到达其子组件。我做错了什么？

Public Sub fixUIIn(ByRef comp As System.ComponentModel.Component, ByVal style As SByte)
    Debug.WriteLine(comp)
    If TypeOf comp Is System.Windows.Forms.ContainerControl Then
        Dim c As System.Windows.Forms.ContainerControl
        c = comp
        c.BackColor = getColor(style, PART_BACK)
        c.ForeColor = getColor(style, PART_TEXT)
        If ((comp.Container IsNot Nothing) AndAlso (comp.Container.Components IsNot Nothing)) Then
            For i As Integer = 0 To comp.Container.Components.Count() Step 1
                fixUIIn(comp.Container.Components.Item(i), style)
            Next
        End If
        comp = c
    End If
End Sub

Answer 1

不确定为什么从组件而不是控件开始，但如果可以从控件（例如表单）开始，您可以

尝试

Public Sub fixUIIn(ByRef comp As System.Windows.Forms.Control ByVal style As SByte)
    Debug.WriteLine(comp)
     comp.BackColor = getColor(style, PART_BACK)
     comp.ForeColor = getColor(style, PART_TEXT)

        If (comp.Controls IsNot Nothing) Then
            For i As Integer = 0 To comp.Controls.Count() 
                fixUIIn(comp.Controls.Item(i), style)
            Next
        End If

End Sub