共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]导航栏
1楼
江南小镇 发表于：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)
2楼
有点蓝 发表于：2024/7/16 13:35:00http://www.foxtable.com/webhelp/topics/0830.htm
e.Form.Controls("TabControl1").TabPages(1).AddControl(bar)
3楼
江南小镇 发表于：2024/7/17 9:48:00老师好，怎样把动态生成的导航栏按钮固定在动态生成的导航栏中。谢谢!
4楼
有点蓝 发表于：2024/7/17 9:49:00默认就是固定的，截图说明一下
5楼
江南小镇 发表于：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)
6楼
有点蓝 发表于：2024/7/17 11:48:00代码有什么问题？
7楼
有点蓝 发表于：2024/7/17 11:50:008楼
江南小镇 发表于：2024/7/17 12:26:00老师，报错的地方怎么写。
此主题相关图片如下：2024-07-17 12 23 58.jpg
[此贴子已经被作者于2024/7/17 12:56:54编辑过]
9楼
有点蓝 发表于：2024/7/17 13:33:00看7楼
10楼
cd_tdh 发表于：2024/7/17 13:38:00动态添加控件不熟悉就用目录树嘛
把导航存在一张表里面，用表生成导航。
[此贴子已经被作者于2024/7/17 13:40:46编辑过]
共10 条记录, 每页显示 10 条, 页签:
[1]