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
上进的菜单如何写成动态的，菜单表 分成 菜单分类 菜单子项 菜单图标 权限列 四个列
加好友 
发短信
Post By：2021/8/27 23:55:00 [显示全部帖子]
