- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]页面集合 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139916)
-- 发布时间：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)
-- 发布时间：2019/8/25 21:03:00
--
没看懂，如果要给页签加控件，参考http://www.foxtable.com/webhelp/topics/1912.htm
-- 发布时间：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)
-- 发布时间：2019/8/25 22:27:00
--
用法完全一样啊
e.Form.Controls("TabControl1").Tabpages("page2").AddControl(某动态生成的面板)
-- 发布时间：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)
-- 发布时间：2019/8/25 22:59:00
--
先添加页签，才能往页签里添加其他控件呀
-- 发布时间：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)
连基本的代码逻辑都搞不清楚
-- 发布时间：2019/8/26 10:18:00
--
老师，动态添加导航栏还没有搞好。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导航.table |
-- 发布时间：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)
-- 发布时间：2019/8/27 10:40:00
--
老师，导航栏页签怎样添加。
Dim bar As WinForm.NavBar
bar = e.Form.CreateControl("NavBar1", ControlTypeEnum.NavBar)
bar = Add("按钮集合","按钮集合")
p.AddControl(bar)