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
    If TypeOf comp Is System.Windows.Forms.ButtonBase Then
        Dim c As System.Windows.Forms.ButtonBase
        c = comp
        c.FlatStyle = Windows.Forms.FlatStyle.Flat
        c.BackColor = getColor(style, PART_BOX)
        c.ForeColor = getColor(style, PART_TEXT)

        comp = c
    End If
    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
End Sub

Answer 1

您只重命名按钮控件和容器控件，有什么原因吗？问题指出“全部”，这就是我问的原因。

我也绝对讨厌使用旧的 VB6 样式代码。为什么要将颜色作为 sByte 传递而不是仅传递 Color？ Foreach 也是一个比带有索引的 for 循环更简单的结构。

我会这样写：

Public Sub FixUIColors(control As Control, foreColor As Drawing.Color, backColor As Drawing.Color)
    control.BackColor = foreColor
    control.ForeColor = backColor
    If TypeOf control Is ButtonBase Then
        DirectCast(control, ButtonBase).FlatStyle = FlatStyle.Flat
    End If

    ' iterate through child controls
    For Each item In control.Controls
        FixUIColors(item, foreColor, backColor)
    Next
End Sub

如果您只想限制为某些类型，您可以这样做：

    Select Case control.GetType
        Case GetType(ContainerControl)
        Case GetType(ButtonBase)
            control.BackColor = foreColor
            control.ForeColor = backColor
    End Select

我对您使用 style as SByte 和 PART_BOX 感到困惑PART_TEXT 等，所以我可能没有完全按照您想要的方式进行操作。我认为这是错误的传递方式，您应该简单地传递 System.Drawing.Color （原因是像我这样的人可以轻松阅读和理解这段代码）。如果您需要在单个对象中存储一堆颜色以使其更容易传递，那么您可以创建一个类来存储这些内容。将一个字节解包成一堆颜色是一项不同的任务，应该由不同的函数处理。