以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态菜单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171382)
--  作者：yifan3429
--  发布时间：2021/8/27 23:55:00
--  动态菜单
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
图片点击可在新窗口打开查看


上进的菜单如何写成动态的，菜单表  分成  菜单分类  菜单子项 菜单图标   权限列 四个列 
--  作者：有点蓝
--  发布时间：2021/8/28 10:01:00
--  
比如：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=171289&skin=0