'''动态函数应用*********************************************************
Dim pid As String = args(0)
Dim pmenu As object= args(1)
Dim nmenu As object
Dim dt As DataTable = args(2)
Dim drs As List(of DataRow)
drs = DataTables("otb_ModelMenu") .Select("ParentID = '" & pid & "'")
For Each dr As DataRow In drs
Select Case dr("strMenuCategory")
Case "RibbonTabs"
nmenu = new RibbonMenu.Tab(dr("ID"))
nmenu.text =dr("strMenuCaption")
RibbonTabs.add(nmenu)
Case Else
Select Case dr("strMenuCategory")
Case "Groups"
nmenu = new RibbonMenu.Group(dr("ID"))
nmenu.text =dr("strMenuCaption")
pmenu.Groups.add(nmenu)
Case "Separator"
nmenu = new RibbonMenu.Separator(dr("ID"))
pmenu.Items.add(nmenu)
Case "LeftItems","RightItems","BottomItems"
nmenu = Nothing
Case Else
Select Case dr("strMenuCategory")
Case "MenuButton"
nmenu = new RibbonMenu.MenuButton(dr("ID"))
Case "Button"
nmenu = new RibbonMenu.Button(dr("ID"))
Case "TextBox"
nmenu = new RibbonMenu.TextBox(dr("ID"))
Case "DatePicker"
nmenu = new RibbonMenu.DatePicker(dr("ID"))
Case "NumericBox"
nmenu = new RibbonMenu.NumericBox(dr("ID"))
Case "TimePicker"
nmenu = new RibbonMenu.TimePicker(dr("ID"))
Case "NumericBox"
nmenu = new RibbonMenu.NumericBox(dr("ID"))
Case "ComboBox"
nmenu = new RibbonMenu.ComboBox(dr("ID"))
Case "Label"
nmenu = new RibbonMenu.Label(dr("ID"))
Case "CheckBox"
nmenu = new RibbonMenu.Checkbox(dr("ID"))
Case "ColorPicker"
nmenu = new RibbonMenu.ColorPicker(dr("ID"))
Case "FontComboBox"
nmenu = new RibbonMenu.FontComboBox(dr("ID"))
Case "ColorPicker"
nmenu = new RibbonMenu.ColorPicker(dr("ID"))
End Select
'************************************以下考虑程序菜单的特殊性'
Dim drs1 As DataRow = DataTables("otb_ModelMenu").find("ID = '" & pid & "'") '如果父键id类型是一下几种的话就执行下面
If drs1 IsNot Nothing Then
Select Case drs1("strMenuCategory")
Case "LeftItems"
nmenu.text =dr("strMenuCaption")
nmenu.smallImage = getimage(dr("strMenuImage"))
ApplicationMenu.LeftItems.add(nmenu)
'nmenu = ApplicationMenu.LeftItems(nmenu)
Case "RightItems"
nmenu.text =dr("strMenuCaption")
nmenu.smallImage = getimage(dr("strMenuImage"))
ApplicationMenu.RightItems.add(nmenu)
'nmenu = ApplicationMenu.RightItems(nmenu)
Case "BottomItems"
nmenu.text =dr("strMenuCaption")
nmenu.smallImage = getimage(dr("strMenuImage"))
ApplicationMenu.BottomItems.add(nmenu)
'nmenu = ApplicationMenu.BottomItems(nmenu)
Case Else
nmenu.text =dr("strMenuCaption")
nmenu.smallImage = getimage(dr("strMenuImage"))
pmenu.Items.add(nmenu)
End Select
End If
End Select
End Select
Functions.Execute("funAddMenu1",dr("ID"),nmenu,dt)
Next
加好友 
发短信
Post By：2016/7/21 7:44:00 [只看该作者]
