TreeView(ツリービュー）の背景色を設定するには？ (ID:87888)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして。よろしくお願いします。 TreeViewの背景色を設定したのですが、下記"#"部分だけ白のままになってしまいます。どうしてでしょうか？ SendMessageでTVM_SETBKCOLOR，TVM_SETTEXTCOLORを設定しているのですが、 どうしても何もない左側だけいろが変わりません！！ [-]ノード親1 |---ノードa |---[-]ノード親1 ##### |---ノードb ##### |---ノードc プログラムはこんなカンジです。 Private Const TV_FIRST As Long = &H1100 Private Const TVM_SETBKCOLOR As Long = (TV_FIRST + 29) Private Const TVM_SETTEXTCOLOR As Long = (TV_FIRST + 30) sub 色づけ Dim lnghWnd As Long Dim lngSty As Long Dim nForeColor As Long Dim nBackColor As Long Dim nd As Node lnghWnd = Me.Tree_Tables.hWnd lngSty = Me.Tree_Tables.Style nForeColor = Form_QueryEditor.TextBox_SQL.ForeColor nBackColor = Form_QueryEditor.TextBox_SQL.BackColor Call OleTranslateColor(nForeColor, 0&, nForeColor) Call OleTranslateColor(nBackColor, 0&, nBackColor) Form_Image.ImgLst_Icons02.BackColor = nBackColor Call SendMessage(lnghWnd, TVM_SETBKCOLOR, 0, nBackColor) Call SendMessage(lnghWnd, TVM_SETTEXTCOLOR, 0, nForeColor) With Me.Tree_Tables lngSty = .Style .Style = 0 .Style = lngSty For Each nd In .Nodes nd.BackColor = nBackColor nd.ForeColor = nForeColor Next End With end sub