主题：[求助]如何往自定义菜单LIST控件中增加数据

在代码后面写

vars("a") = a

-------------------------之后调用，就写

vars("a").Items.add("abcdefg")

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.Listbox
a.Items.Add("地对地导弹")
a.Items.Add("xxxxxx")
'a.Text = "123456789"
a.Font = new font("宋体", 15)
a.backColor = color.red
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("Common").Groups("Data").Items.Add(b)
vars("a") = a

截图说明你的问题。

如果是说这个组合统计结果，可以 http://www.foxtable.com/webhelp/scr/2305.htm