1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Private Sub TreeView1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
Dim Node As TreeNode
Node = TreeView1.GetNodeAt(New System.Drawing.Point(e.X, e.Y))
If e.Button = MouseButtons.Right Then
TreeView1.SelectedNode = Node
If TreeView1.SelectedNode.Index = 0 Then
ToolStripMenuItem2.Enabled = False
ToolStripMenuItem3.Enabled = False
ToolStripMenuItem4.Enabled = False
Else
ToolStripMenuItem2.Enabled = True
ToolStripMenuItem3.Enabled = True
ToolStripMenuItem4.Enabled = True
End If
End If
'debug
ToolStripStatusLabel1.Text = TreeView1.SelectedNode.Index
End Sub |