Чтобы добавить в меню по умолчанию вам нужно использовать слушатель действия ShowTreeListMenu и добавить туда строки.
Private Sub treeCompany_ShowTreeListMenu(ByVal sender As System.Object, ByVal e As DevExpress.XtraTreeList.TreeListMenuEventArgs) Handles treeCompany.ShowTreeListMenu
' add the ability to expand the nodes in the tree
e.Menu.Items.Add(New DevExpress.Utils.Menu.DXMenuItem("Expand All Nodes", AddressOf ExpandNode))
' make the last item added begin the group so you have a divider
e.Menu.Items(e.Menu.Items.Count - 1).BeginGroup = True
' add the ability to collapse the nodes in the tree
e.Menu.Items.Add(New DevExpress.Utils.Menu.DXMenuItem("Collapse All Nodes", AddressOf CollapseAll))
End Sub
Первое добавление вызывает функцию ExpandNode()
, а второе вызывает CollapseAll()
.