[求助]页面集合 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2755人关注过本帖树形打印复制链接主题：[求助]页面集合

江南小镇

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：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

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：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

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：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

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：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

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：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

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/25 22:59:00 [只看该作者]

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

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：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

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2019/8/26 10:18:00 [只看该作者]

老师，动态添加导航栏还没有搞好。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导航.table

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：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

加好友

发短信

等级：七尾狐帖子：1710 积分：11410 威望：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 下一页

主题：[求助]页面集合