当Enabled = False时，VB6 TreeView未显示为灰色

Question

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

Answer 1

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

If (TreeView1.Enabled) Then
    SetTreeViewColor vbWindowText
Else
    SetTreeViewColor vbGrayText
End If

Private Sub SetTreeViewColor(ByVal vColor As SystemColorConstants)
    Dim objNode As Node

    For Each objNode In TreeView1.Nodes
        objNode.ForeColor = vColor
    Next objNode

End Sub