Private Sub tvTables_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvTables.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then Dim M As New ContextMenuStrip Dim HTI As TreeViewHitTestInfo = tvTables.HitTest(eX, eY) If HTI.Node.Level = 0 Then M = T1Menu ElseIf HTI.Node.Level = 1 Then M = T2Menu ElseIf HTI.Node.Level = 2 Then M = T3Menu End If tvTables.ContextMenuStrip = M tvTables.ContextMenuStrip.Show() End If End Sub
Stu
source share