vb6 - Enabled = Falseの場合、VB6TreeViewが灰色で表示されない

Question

最近、Windows 8との互換性を維持するために、アプリケーションのVB5TreeViewをVB6TreeViewに変更する必要がありました。ただし、EnabledプロパティがFalseに設定されている場合、VB6TreeViewの外観は変更されません。これは既知の問題ですか？それは解決できますか？

Answer 1

私はこれまで気づかなかった。ノードがたくさんあると問題が発生しますが、回避策をコーディングできます。

If（TreeView1.Enabled）Then
    SetTreeViewColor vbWindowText
そうしないと
    SetTreeViewColor vbGrayText
終了する場合

Private Sub SetTreeViewColor（ByVal vColor As SystemColorConstants）
    Dim objNode As Node

    TreeView1.Nodesの各objNodeについて
        objNode.ForeColor = vColor
    次のobjNode

サブ終了