Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]页面集合


  共有4005人关注过本帖树形打印复制链接

主题：[求助]页面集合
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]页面集合  发帖心情 Post By：2019/8/25 9:08:00 [只看该作者]

老师，怎样向页面集合1添加“导航栏”、页面集合2添加“面板”



'Dim txt2 As WinForm.TabControl
'txt2 = e.Form.CreateControl("TabControl1", ControlTypeEnum.TabControl)
'e.Form.Controls("SplitContainer1") .Panel1.AddControl(txt2)
'Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
't.ShowCaption = Not t.ShowCaption
'txt2 = e.Form.CreateControl("管理按钮", ControlTypeEnum.TabControl)
'txt2.TabPages.Add("主页","主页")
'txt2.TabPages.Add("按钮集合","按钮集合")
'txt2.TabPages.Add("数据导航","数据导航")
'txt2.Dock = 5
'txt2.TabPosition = 1
'txt2.VisualStyle = IVisualStyle.Office2010Black
'txt2 .BaseControl.font = new Font("微软雅黑",10,FontStyle.Regular)
'e.Form.Controls("SplitContainer1").Panel1.AddControl(txt2)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/25 21:03:00 [只看该作者]

没看懂，如果要给页签加控件，参考http://www.foxtable.com/webhelp/topics/1912.htm
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/25 22:15:00 [只看该作者]

老师，页面集合是动态生成的，我要在动态生成的页面集合page1里放一个动态生成的导航栏、页面集合page2放面板控件。

Dim txt2 As WinForm.TabControl
'txt2 = e.Form.CreateControl("TabControl1", ControlTypeEnum.TabControl)
'e.Form.Controls("SplitContainer1") .Panel1.AddControl(txt2)
'Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
't.ShowCaption = Not t.ShowCaption
'txt2 = e.Form.CreateControl("管理按钮", ControlTypeEnum.TabControl)
'txt2.TabPages.Add("主页","主页")
'txt2.TabPages.Add("按钮集合","按钮集合")
'txt2.TabPages.Add("数据导航","数据导航")
'txt2.Dock = 5
'txt2.TabPosition = 1
'txt2.VisualStyle = IVisualStyle.Office2010Black
'txt2 .BaseControl.font = new Font("微软雅黑",10,FontStyle.Regular)
'e.Form.Controls("SplitContainer1").Panel1.AddControl(txt2)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/25 22:27:00 [只看该作者]

用法完全一样啊

e.Form.Controls("TabControl1").Tabpages("page1").AddControl(某动态生成的导航栏)

e.Form.Controls("TabControl1").Tabpages("page2").AddControl(某动态生成的面板)
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/25 22:54:00 [只看该作者]

老师，代码报错，不知哪里不对，黄色标出的怎样修改。

Dim txt8 As WinForm.NavBar
txt8 = e.Form.CreateControl("NavBar1", ControlTypeEnum.NavBar)
e.Form.Controls("TabControl1") .Page1.AddControl(txt8)
Dim t8 As C1Command.C1DockingTab = e.Form.Controls("NavBar1").BaseControl
t8.ShowCaption = Not t8.ShowCaption
txt8 = e.Form.CreateControl("导航栏", ControlTypeEnum.TabControl)
'txt8.TabPages.Add("主页","主页")
'txt8.TabPages.Add("按钮集合","按钮集合")
'txt8.TabPages.Add("数据导航","数据导航")
txt8.Dock = 5
'txt8.TabPosition = 1
txt8.VisualStyle = IVisualStyle.Office2010Black
txt8 .BaseControl.font = new Font("微软雅黑",10,FontStyle.Regular)
e.Form.Controls("TabControl1").Tabpages("page1").AddControl(txt8)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/25 22:59:00 [只看该作者]

先添加页签，才能往页签里添加其他控件呀

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/25 23:08:00 [只看该作者]

dim tab = e.Form.CreateControl("导航栏", ControlTypeEnum.TabControl)
dim p = tab.TabPages.Add("主页","主页")
Dim bar As WinForm.NavBar
bar = e.Form.CreateControl("NavBar1", ControlTypeEnum.NavBar)
p.AddControl(bar)

连基本的代码逻辑都搞不清楚
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/26 10:18:00 [只看该作者]

老师，动态添加导航栏还没有搞好。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:导航.table
 

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/26 10:49:00 [只看该作者]

Dim txt2 As WinForm.TabControl
txt2 = e.Form.CreateControl("TabControl1", ControlTypeEnum.TabControl)
e.Form.Controls("SplitContainer1") .Panel1.AddControl(txt2)

txt2.TabPages.Add("主页","主页")
txt2.TabPages.Add("按钮集合","按钮集合")
Dim p = txt2.TabPages.Add("数据导航","数据导航")
txt2.Dock = 5
txt2.TabPosition = 1
txt2.VisualStyle = IVisualStyle.Office2010Black
txt2 .BaseControl.font = new Font("微软雅黑",10,FontStyle.Regular)

Dim bar As WinForm.NavBar
bar = e.Form.CreateControl("NavBar1", ControlTypeEnum.NavBar)
p.AddControl(bar)
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/8/27 10:40:00 [只看该作者]

老师，导航栏页签怎样添加。

Dim bar As WinForm.NavBar
bar = e.Form.CreateControl("NavBar1", ControlTypeEnum.NavBar)
bar = Add("按钮集合","按钮集合")

p.AddControl(bar)
 回到顶部
总数 28 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询