动态菜单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")

With Ctype(tpb.BaseControl, C1Command.C1TopicBar)

.Padding = New System.Windows.Forms.Padding(4)

End With

tpb.Animation = False

With tpb.Pages

.Add("特色功能", "特色功能", "foxtable.ico").Collapsed = True

End With

With tpb.Pages("特色功能").Links

.Add("汇总模式", "汇总模式")

.Add("轻松录入", "轻松录入")

End With

With tpb.Pages("分级数据").Links

.Add("分级统计二", "分级统计二")

End With

此主题相关图片如下：截屏图片.jpg

上进的菜单如何写成动态的，菜单表分成菜单分类菜单子项菜单图标权限列四个列

主题：动态菜单