vb6 - 启用 = False 时 VB6 TreeView 不显示为灰色

Question

我们最近不得不将我们应用程序的 VB5 TreeView 更改为 VB6 以保持 Windows 8 兼容性。但是，当其 Enabled 属性设置为 False 时，VB6 TreeView 不会更改其外观。这是一个已知问题吗？能解决吗？

Answer 1

我以前从未注意到这一点。您可以编写一个解决方法，但如果您有很多节点，它会受到伤害。

如果（TreeView1.Enabled）然后
    SetTreeViewColor vbWindowText
别的
    SetTreeViewColor vbGrayText
万一

Private Sub SetTreeViewColor(ByVal vColor As SystemColorConstants)
    将 objNode 调暗为节点

    对于 TreeView1.Nodes 中的每个 objNode
        objNode.ForeColor = vColor
    下一个对象节点

结束子