Dim CMB1 As RibbonMenu.ComboBox
cmb1= RibbonTabs("功能区1")("功能组1")("组合框1")
Dim Values() As String =DataTables("名称表").GetComboListString("名称","名称 like '%" &CMB1.text &" %'").split("|")
With RibbonTabs("功能区1")("功能组1")("组合框1")
.Items.Clear
For i As Integer = 0 To Values.Length - 1
Dim b As New RibbonMenu.Button(Values(i))
b.Text = Values(i)
.Items.Add(b)
Next
End With
[此贴子已经被作者于2012-7-15 10:40:14编辑过]