此主题相关图片如下：菜单组合框列表项目.jpg
注意看下面的红字部分,与帮助上不同,呵
设计步骤
首先在实战演练功能区中增加一个功能组"任务二"，在该功能组中增加一个组合框"ColList"。
然后设置该组合框的ChangeCommitted事件代码为：
Dim
ColName As String = e.ComboBox.Text '获得组合框的内容
With CurrentTable
If .Cols.Contains(ColName) Then '如果当前表包括输入名称的列
.Select(.RowSel, .Cols(ColName).Index) '那么选择该列。
End If
End With
然后在系统事件CurrentTableChanged加入如下代码:
With RibbonTabs("功能区1")("任务二")("ColList")
.Items.Clear '清除原有项目
For Each r As Row In CurrentTable.rows
Dim b As New RibbonMenu.Button(r("第一列"))
b.Text = r("第一列")'按钮的标题也等于列名称
.Items.Add(b)
Next
End With
完成上述工作后，切换一下表或者重新打开文件，本功能即可生效。
[此贴子已经被作者于2011-12-18 17:41:38编辑过]
加好友 
发短信
Post By：2011/12/18 17:37:00 [显示全部帖子]
