Цвет фона в TreeView

[SBJocker]

Как поменять САБЖ?
Белый достал уже

Мож сообщение какое отправить или стили присвоить

[GSerg]

А як же - TVM_SETBKCOLOR

[tyomitch]

Вот, на всякий случай, рабочий пример:

Код: Выделить всё

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const TVM_SETBKCOLOR As Long = &H1100 + 29

Private Sub Form_DblClick()
SendMessage TreeView1.hwnd, TVM_SETBKCOLOR, 0, vbRed
End Sub


[GSerg]

Убил накорню исследовательский момент

[SBJocker]

Спасибо всем

Встречный вопрос, а откуда вы всё это берёте? Есть какой-нить справочник по сообщениям?

[tyomitch]

msdn.microsoft.com/library

[SBJocker]

Кстати, этот пример неизменяет цвет фона под итемами, вот...

[GSerg]

Ещё есть TVM_SETTEXTCOLOR и TVM_SETLINECOLOR.

[SBJocker]

Всё это круто, а их значения?

[alibek]

А значения в файле COMMCTRL.H
TV_FIRST = 0x1100
TVM_SETTEXTCOLOR = (TV_FIRST + 30)
а TVM_SETLINECOLOR чегой-то нет у меня, хотя вроде бы SP6 ставил

[GSerg]

first + 40

И вообще, http://www.activevb.de/rubriken/apiview ... ereng.html

[tyomitch]

Ещё есть TVM_SETTEXTCOLOR и TVM_SETLINECOLOR.

Но цвет фона под итемами они тоже не меняют

[GSerg]

Хм, что там у нас ещё... TVM_SETINSERTMARKCOLOR? Больше ничего нет

[SBJocker]

Да, проблем блин...
Попробуем последнее сообщение..

[er_admin]

Код: Выделить всё

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = -16&
Private Const TVM_SETBKCOLOR = 4381&
Private Const TVM_GETBKCOLOR = 4383&
Private Const TVS_HASLINES = 2&

v form_load

Код: Выделить всё

SendMessage tree_view.hwnd, 4381&, 0, ByVal vbBlack
lngStyle = GetWindowLong(tree_view.hwnd, GWL_STYLE)
Call SetWindowLong(tree_view.hwnd, GWL_STYLE, lngStyle - TVS_HASLINES)

[SBJocker]

Попробывал код приведённый выше, результат тот же, но теперь вклбчено свойство TV - FullRowSelect...
А фон под итемами прежний..

Тут мысль есть, мож нужно получать инфу о каждом итеме и для него выставлять цвет бэкргаунда

[er_admin]

Код: Выделить всё

For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes.Item(i).BackColor = vbYellow 'RGB(50, 50, 100) 'цвет фона итема
    TreeView1.Nodes.Item(i).ForeColor = vbBlack 'цвет фона шрифта
Next i

но я не знаю как красить линии и плюсики-минусики. может кто знает?

[tyomitch]

Линии и плюсики-минусики - TVM_SETLINECOLOR