1 2 3 4 5 6 7 8 9 10 11 12 13
| 'Sub qui capte le clic sur le TreeView
Private Sub TreeView_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView.MouseDown
'Si clic-droit
If MouseButtons = Windows.Forms.MouseButtons.Right Then
'Si sur noeud de base
If TreeView.Nodes(0).IsSelected Then
'On affiche le menu contextuel de changement de racine
ContextMenuStrip1.Show()
ContextMenuStrip1.Left = MousePosition.X
ContextMenuStrip1.Top = MousePosition.Y
End If
End If
End Sub |