LockBaseMainForm() '锁定主窗口
QAT.Items.Clear
ConfigBar.Items.Clear
Dim dt As DataTable = DataTables("qxb")
For Each dr As DataRow In dt.DataRows
Select Case dr("gnlx")
Case "功能区"
Dim ntab As RibbonMenu.Tab
Dim ngrp As RibbonMenu.Group
Dim nmenu As Object
If RibbonTabs.Contains(dr("gnq")) Then
ntab = RibbonTabs(dr("gnq"))
Else
ntab = New RibbonMenu.Tab(dr("gnq"))
RibbonTabs.Add(ntab)
End If
If ntab.Groups.Contains(dr("gnz")) Then
ngrp = ntab.Groups(dr("gnz"))
Else
ngrp = New RibbonMenu.Group(dr("gnz"))
ntab.Groups.Add(ngrp)
End If
'编译一个生成不同菜单的函数
Functions.Remove("CreateMenu")
Dim Code As String = ""
Code = "Dim menu As New " & dr("cdlx") & "(""" & dr("_Identify") & """)" & vbcrlf
Code = Code & "Return menu"
Functions.Add("CreateMenu", Code)
Functions.Complie()
nmenu = Functions.Execute("CreateMenu")
ntab.Text = dr("gnq")
ngrp.Text = dr("gnz")
nmenu.Text = dr("cdbt")
nmenu.LargeImage = GetImage(dr("cdtb"))
ngrp.Items.Add(nmenu) '加入菜单
Case "快速访问栏"
'编译一个生成不同菜单的函数
Functions.Remove("CreateMenu")
Dim Code As String = ""
Code = "Dim menu As New " & dr("cdlx") & "(""" & dr("_Identify") & """)" & vbcrlf
Code = Code & "Return menu"
Functions.Add("CreateMenu", Code)
Functions.Complie()
Dim nmenu As Object = Functions.Execute("CreateMenu")
nmenu.Text = dr("cdbt")
nmenu.LargeImage = GetImage(dr("cdtb"))
QAT.Items.Add(nmenu)
Case "配置栏"
'编译一个生成不同菜单的函数
Functions.Remove("CreateMenu")
Dim Code As String = ""
Code = "Dim menu As New " & dr("cdlx") & "(""" & dr("_Identify") & """)" & vbcrlf
Code = Code & "Return menu"
Functions.Add("CreateMenu", Code)
Functions.Complie()
Dim nmenu As Object = Functions.Execute("CreateMenu")
nmenu.Text = dr("cdbt")
nmenu.LargeImage = GetImage(dr("cdtb"))
ConfigBar.Items.Add(nmenu)
End Select
Next
UnLockBaseMainForm() '解锁主窗口
蓝老师，按照你的办法我添加了，没有用，这个是原代码，该怎么处理啊
加好友 
发短信
Post By：2021/12/16 14:05:00 [显示全部帖子]
此主题相关图片如下：微信图片_20211217172621.png