XmlDocument绑定到Menu控件

Dim xmldom As System.Xml.XmlDocument = .................

Dim xmlds As XmlDataSource = New XmlDataSource()

' 如果经常需要更新的话就需要禁止缓存
xmlds.EnableCaching = False   

' 选择数据范围

xmlds.XPath = "menu/menu"
xmlds.Data = xmldom.InnerXml 
' 创建菜单项的绑定对象

Dim mib As MenuItemBinding = New MenuItemBinding()

' 设置数据项
mib.DataMember = "menu"

' 设置属性
mib.TextField = "namecn"
mib.ToolTipField = "desccn"

mib.NavigateUrlField = "path"
Me.MenuFun.DataBindings.Add(mib)
Me.MenuFun.DataSource = xmlds
Me.MenuFun.DataBind()