VB 中的选择性递归组件重新着色

Question

我以前问过一个非常类似的问题，但这次不是关于 VB 语法，而是关于最好的方法。我正在制作一种方法，当传递一个组件时，它将重新着色它以及其中包含的所有组件。下面是我到目前为止的代码，但它并没有对所有组件重新着色，而只是对少数组件进行重新着色。我的主要问题是按钮保持“3D”样式而不是变得“扁平”。

    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

传递的组件是 comp，getColor 方法查找数据库并返回与传递给该方法的 part 参数相对应的颜色。这适用于所有低级组件和所有简单组件（例如标签）。

>你可以看到，这不是我想要的结果。 有人知道如何重新着色微调器、按钮和菜单栏吗？同样，我需要将按钮最终变成扁平的。

Answer 1

您可以绘制自己的菜单栏。请参阅：http://msdn.microsoft.com/ en-us/library/tdk48z0c(v=VS.100).aspx

按钮具有 BackColor 属性和 FlatStyle 属性：

http://msdn.microsoft.com/en-us/library/system.windows.forms.buttonbase.flatstyle.aspx