[RESOLVED] Treeview Highlight Problem.

[aikidokid]

I expect this is probably a simple answer, but I can't find it.

When you left click on a node, it highlights it. When I right click on a node it doesn't move the highlight from the last selected node.

I have code in the treeview MouseDown for a context menu.
The menu items are bases on the SelectedItem.Key of the treeview - which is still the last selected node.

How do I get around this problem??

Thanks

[MartinLiss]

Does the highlighting work if you comment out the code in the MouseDown event?

[aikidokid]

Does the highlighting work if you comment out the code in the MouseDown event?

Yes it does.

Does this mean that I have to put this code somewhere else?
I have it in mousedown, not mouseup because I want to see if the user is calling the context menu before the node loads a file into a RTB.

[MartinLiss]

Please post the MouseDown code.

[aikidokid]

Please post the MouseDown code.

Here it is:

Private Sub tvwCode_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 
If Button = vbRightButton Then
 
    With tvwCode
        Select Case Left(.SelectedItem.Key, 1)
            Case Is = "S"
                rcmitmAddNewNode.Enabled = True
                rcmitmDeleteNode.Enabled = False
                rcmitmReNameNode.Enabled = False
                ShowTvwMenu
 
            Case Is = "N"
                rcmitmAddNewNode.Enabled = True
                rcmitmDeleteNode.Enabled = True
                rcmitmReNameNode.Enabled = True
                ShowTvwMenu
            Case Is = "C"
                rcmitmAddNewNode.Enabled = False
                rcmitmDeleteNode.Enabled = True
                rcmitmReNameNode.Enabled = True
                ShowTvwMenu
            Case Else
                rcmitmAddNewNode.Enabled = False
                rcmitmDeleteNode.Enabled = False
                rcmitmReNameNode.Enabled = False
                ShowTvwMenu
            End Select
    End With
End If
 
End Sub

[MartinLiss]

Can you also please post the code for ShowTvwMenu?

[aikidokid]

Can you also please post the code for ShowTvwMenu?

Don't know if this helps much

Private Sub ShowTvwMenu()
 
PopupMenu TvwMenu
 
End Sub

[MartinLiss]

Put this at the end of the MouseDown code.

tvwCode.SelectedItem = tvwCode.HitTest(x, y)

[MartinLiss]

... or perhaps right after

If Button = vbRightButton Then

[aikidokid]

thans Martin, I will give it a go.

[aikidokid]

... or perhaps right after

If Button = vbRightButton Then

Yep, this one worked thanks.