Treeview1 Hot Tracking change color? [RESOLVED]

[recpack]

Greetings!

My question for today is this:

[Code}
Treeview1.hottracking=True
[/CODE]

I would not only like it to hottrack but also change color of the node when it does... oh say... vbblue

I have tried several things in the Treeview Mousemove event but it's not happening for me. Can anyone give me some advise?

Thank you

[MartinLiss]

This works, but if you have a lot of nodes, the looping that this does may not be good. I may be able to improve it but here's what I have so far.

Private Sub Treeview1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim MouseOverNode As MSComctlLib.Node
    Dim lngNodes As Long
    
    On Error Resume Next
    
    For lngNodes = 0 To tvwDemo.Nodes.Count
        Treeview1.Nodes(lngNodes).BackColor = vbWhite
    Next
    
    Set MouseOverNode = Treeview1.HitTest(x, y)
    MouseOverNode.BackColor = vbBlue
 
End Sub

[MartinLiss]

OK, this is better.

Option Explicit
Private mNode As MSComctlLib.Node
 
Public Property Get PreviousNode() As MSComctlLib.Node
 
    Set PreviousNode = mNode
 
End Property
 
Public Property Let PreviousNode(ByVal pNode As MSComctlLib.Node)
 
    Set mNode = pNode
 
End Property
 
Private Sub Treeview1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim MouseOverNode As MSComctlLib.Node
    
    On Error Resume Next
    
    PreviousNode.BackColor = vbWhite
    Set MouseOverNode = Treeview1.HitTest(x, y)
    MouseOverNode.BackColor = vbBlue
    PreviousNode = MouseOverNode
 
End Sub

[recpack]

Hello once again Marty-

Hey that worked pretty cool. I tried it on a tree with 172 nodes and it makes the tree flicker when I mousemove.

If I may... Let me clarify the effect I am looking for -
HotTracking underline still visable
node background retain it's white color and node text (forecolor) blue. So really the only thing changing is the text color.

Either way you gave me something to go on, and I am now going to continue to search the forum on "hottracking"

Thanks again!



PS Oops.. I posted this after your second post.. I'll try that second one.

[recpack]

I tried the second method, though too me (a complete amature) it looks more efficient.... Still get the flicker when the tree has alot of nodes (currently 172).

Still a cool piece of snippet for me. Thx.

[MartinLiss]

You might be better off searching for treeview foreground color. If I remember correctly however, it's not easily (if at all) done.

[recpack]

Thanks for your response and help once again Marty- I searched around and your right, there is no real easy, clean way of doing it.. Im gonna abort that idea for now. Have a great day!

Peace