Dim Code As String = ""
Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
Code = Code & "Return menu"
Functions.Add("CreateMenu", Code)
Functions.Complie()
nmenu = Functions.Execute("CreateMenu")
通过上面的代码生成了各种菜单控件，在我的理解中nmenu现在就是个控件了，如果作为RibbonMenu.ComboBox，如何添加下拉菜单？
For Each cl As String In DataTables("A0_菜单表").GetComboListString("功能区").Split("|")
nmenu.Items.add(cl)
Next
这样报错，我就搞不懂了该怎么添加了，帮助没得。
还有添加事件，菜单全局代码里有单击事件还有其他的一些事件，如果不够用，咋整？
加好友 
发短信
Post By：2018/2/22 19:01:00 [只看该作者]
