- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导航栏 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192721)
-- 发布时间：2024/7/16 12:30:00
-- [求助]导航栏
老师好，代码生成的导航栏要写在页面集合的控件里。
Dim bar As WinForm.NavBar
bar = e.Form.CreateControl("NavBar1", ControlTypeEnum.NavBar)
e.Form.Controls("TabControl1").Page1.AddControl(bar)
-- 发布时间：2024/7/16 13:35:00
--
http://www.foxtable.com/webhelp/topics/0830.htm
e.Form.Controls("TabControl1").TabPages(1).AddControl(bar)
-- 发布时间：2024/7/17 9:48:00
--
老师好，怎样把动态生成的导航栏按钮固定在动态生成的导航栏中。谢谢!
-- 发布时间：2024/7/17 9:49:00
--
默认就是固定的，截图说明一下
-- 发布时间：2024/7/17 11:38:00
--
老师，想把下面的按钮写到导航的任务栏中
Dim bar As WinForm.NavBar
bar = e.Form.CreateControl("NavBar1", ControlTypeEnum.NavBar)
bar.NavPages.Add("销售","销售",Nothing)
bar.NavPages.Add("入库","入库",Nothing)
bar.VisualStyle = 5 \'1-13
bar.VisualStyle = C1Command.VisualStyle.Office2010Blue \'导航栏样式
\'\'\'bar.StackButtonCount = 0
bar.VisualStyle = IVisualStyle.Office2010Blue
bar.StackButtonCount = 1 \'\'按钮显示
bar.SelectedIndex = 0
bar.Dock = 5
\'===================按钮
With bar.Pages("销售").Links
.Add("出库", "出库")
.Add("出库明细", "出库明细")
.Add("入库", "入库")
.Add("入库明细", "入库明细","folder1.ico")
End With
With bar.Pages("入库").Links
.Add("入库", "入库","102.ico")
.Add("入库明细", "入库明细")
End With
bar.Animation = True
e.Form.Controls("TabControl1").TabPages(0).AddControl(bar)
-- 发布时间：2024/7/17 11:48:00
--
代码有什么问题？
-- 发布时间：2024/7/17 11:50:00
--
http://www.foxtable.com/webhelp/topics/0873.htm
-- 发布时间：2024/7/17 12:26:00
--
老师，报错的地方怎么写。
此主题相关图片如下：2024-07-17 12 23 58.jpg
[此贴子已经被作者于2024/7/17 12:56:54编辑过]
-- 发布时间：2024/7/17 13:33:00
--
看7楼
-- 发布时间：2024/7/17 13:38:00
--
动态添加控件不熟悉就用目录树嘛
把导航存在一张表里面，用表生成导航。
[此贴子已经被作者于2024/7/17 13:40:46编辑过]