以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]导航栏  (http://foxtable.net/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楼
--  作者:cd_tdh
--  发布时间:2024/7/17 13:38:00
--  
动态添加控件不熟悉就用目录树嘛
把导航存在一张表里面,用表生成导航。
[此贴子已经被作者于2024/7/17 13:40:46编辑过]