遍历DevExpressDevExpress.XtraBars.BarManager 控件 并添加到树形 TreeView
Sub TreeListBind(ByVal links As DevExpress.XtraBars.BarItemLinkCollection,
ByRef treeNodeCollection As TreeNodeCollection)
For Each link As DevExpress.XtraBars.BarItemLink In links
If TypeOf link.Item Is DevExpress.XtraBars.BarButtonItem Then
treeNodeCollection.Add(link.Item.Id, link.Item.Caption)
End If
If TypeOf link.Item Is DevExpress.XtraBars.BarSubItem Then
treeNodeCollection.Add(link.Item.Id, link.Item.Caption)
TreeListBind(CType(link.Item, DevExpress.XtraBars.BarSubItem).ItemLinks, treeNodeCollection.Item(treeNodeCollection.Count - 1).Nodes)
End If
Next
End Sub
调用
Me.TreeListBind(BarManager.Bars(0).ItemLinks, TreeView1.Nodes)