Printable View
DAMN Microsoft can be gay..
does ANYONE have a treeview that can have the colors on it CHANGED? :o)
as in BackColor ForeColor etc..
for some reason Microsoft didn't put it in their one :o/
Yeh i sorta need it really urgently aswell :/
If anyone knows were i can get a treeview control with customizable colors pls email me or reply :))
thx.. sphynx ;)
here u go -------->
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As _
Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd _
As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd _
As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = -16&
Const TVM_SETBKCOLOR = 4381&
Const TVS_HASLINES = 2&
Sub SetTreeViewBackColor(TV As TreeView, ByVal BackColor As Long)
Dim lStyle As Long
Dim TVNode As node
' set the BackColor for every node
For Each TVNode In TV.Nodes
TVNode.BackColor = BackColor
Next
' set the BackColor for the TreeView's window
SendMessage TV.hwnd, TVM_SETBKCOLOR, 0, ByVal BackColor
' get the current style
lStyle = GetWindowLong(TV.hwnd, GWL_STYLE)
' temporary hide lines
SetWindowLong TV.hwnd, GWL_STYLE, lStyle And (Not TVS_HASLINES)
' redraw lines
SetWindowLong TV.hwnd, GWL_STYLE, lStyle
End Sub
hope it helps....
capreal26
thx heaps :)
i really apreciate the help :)
may u live long and prosper..
** however.. :)
would u also know how to change the FORECOLOR?
thx :)
Political correctness gone mad. Companies can now have a sexuality. Where will it end?? :DQuote:
Originally posted by sphynx
DAMN Microsoft can be gay..
lol