前面是按帮助文件中做的,之后此主题相关图片如下:89.png在主菜单的load事件加入以下代码:
With RibbonTabs("调度管理").Groups("查询区").Items("承运单位")
.Items.Clear
For Each c As String In xzqy.SQLGetComboListString("省份")
Dim b As New RibbonMenu.Button(c)
b.Text = c
.Items.Add(b)
Next
End With
之后菜单中的列表项目就变成如图的情形了