| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]TabControl 里 再加TabControl,怎么表达 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61527) |
| -- 作者：whyfoxtable -- 发布时间：2014/12/14 2:25:00 -- [求助]TabControl 里 再加TabControl,怎么表达 前提： 存在窗体1
目标： 窗体加载后，（即在事件 AfterLoad 中） 能加一个TabControl,假设有N个页面（数量不定的意思） 在第一次增加的TabControl的每个页面中，再加一个TabControl,假设有三个页面 分别为 page1 page2 page3
思路（仅是用代码来表达思路，不能运行的）
Dim FTC , STC As WinForm.TabControl Dim TopPg , BotPg As WinForm.TabPage FTC = Forms("窗口1").CreateControl("First" ,ControlTypeEnum.TabControl ) STC = Forms("窗口1").CreateControl("Scond" ,ControlTypeEnum.TabControl ) FTC.TabPages.Add("Top1","第一层子页1") FTC.TabPages.Add("Top2","第一层子页2") FTC.TabPages.Add("Top3","第一层子页3") FTC.TabPages.Add("Top4","第一层子页4")
STC.TabPages.Add("bottom1","第二层子页1") STC.TabPages.Add("bottom2","第二层子页2") STC.TabPages.Add("bottom2","第二层子页3")
Forms("窗口1").AddControl(FTC) For Each TopPg In FTC.TabPages FTC.TabPage.AddControl(STC) Next
请协助： 如何正确写 For Each TopPg In FTC.TabPages FTC.TabPage.AddControl(STC) Next 这一部分的代码？
[此贴子已经被作者于2014-12-14 8:23:52编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/12/14 9:17:00 -- Dim FTC , STC As WinForm.TabControl Dim TopPg , BotPg As WinForm.TabPage FTC = Forms("窗口1").CreateControl("First" ,ControlTypeEnum.TabControl )
FTC.TabPages.Add("Top1","第一层子页1") FTC.TabPages.Add("Top2","第一层子页2") FTC.TabPages.Add("Top3","第一层子页3") FTC.TabPages.Add("Top4","第一层子页4")
For Each TopPg In FTC.TabPages |
| -- 作者：whyfoxtable -- 发布时间：2014/12/14 10:53:00 -- [分享]全能的大神，成功了！ 正确写法是 TopPg.AddControl(STC)
再次感谢有点甜。昨天一个晚上也没折腾出来，现在终于出来了。。。。 [此贴子已经被作者于2014-12-14 11:02:10编辑过]
|
| -- 作者：阿芳 -- 发布时间：2017/6/4 10:23:00 -- 请教一下，为什么老是提示未将对象引用设置到对象的实例，错误所在事件：窗口,窗口1,AfterLoad 详细错误信息： 未将对象引用设置到对象的实例
|
| -- 作者：有点色 -- 发布时间：2017/6/4 17:05:00 -- 回复4楼，请单独发帖，贴出你写的代码看看。 |