• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Display context (popup) menu on TreeView control nodes

Display context (popup) menu on TreeView control nodes

Display context (popup) menu on TreeView control nodes

Rate Display context (popup) menu on TreeView control nodes

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
   'Create and display a treeview control

   Dim nodX As Node  ' Declare Node variable.
   
   ' Set Treeview control properties.
   TreeView1.LineStyle = tvwRootLines  ' Linestyle 1
   
   ' First node with 'Messages' as text.
   Set nodX = TreeView1.Nodes.Add(, , "Main", "Mail")
   Set nodX = TreeView1.Nodes.Add("Main", tvwChild, "Inbox", "Inbox")
   Set nodX = TreeView1.Nodes.Add("Main", tvwChild, "Outbox", "Outbox")
   Set nodX = TreeView1.Nodes.Add("Main", tvwChild, "Drafts", "Drafts")
   
   Set nodX = TreeView1.Nodes.Add(, , "Contacts", "Contacts")
   Set nodX = TreeView1.Nodes.Add("Contacts", tvwChild, "Customers", "Customers")
   Set nodX = TreeView1.Nodes.Add("Contacts", tvwChild, "Suppliers", "Suppliers")
   Set nodX = TreeView1.Nodes.Add("Contacts", tvwChild, "Sales", "Sales")

End Sub



Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

   
   Dim myNode As Node
   On Error GoTo Mali
   If Button = vbRightButton Then
      Set myNode = TreeView1.SelectedItem
      Select Case myNode.Parent.Key
      Case "Main"
         Me.PopupMenu mnu1   'assuming mnu1,2 menu item exists
      Case "Contacts"
         Me.PopupMenu mnu2
      End Select
   End If
   
   Exit Sub
Mali:
   'ignore if parent node is selecte
   If Err = 91 Then
      Exit Sub
   End If
   
   
End Sub