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

前提：

存在窗体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)

请协助：

如何正确写

For Each TopPg In FTC.TabPages

FTC.TabPage.AddControl(STC)

这一部分的代码？

[此贴子已经被作者于2014-12-14 8:23:52编辑过]

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")

Forms("窗口1").AddControl(FTC)

For Each TopPg In FTC.TabPages
    STC = Forms("窗口1").CreateControl("Scond" ,ControlTypeEnum.TabControl )
    STC.TabPages.Add("bottom1","第二层子页1")

    STC.TabPages.Add("bottom2","第二层子页2")

    STC.TabPages.Add("bottom2","第二层子页3")
    TopPg.AddControl(STC)

Next

正确写法是 TopPg.AddControl(STC)
我总陷在 FTC.TabPages（）.Add(STC) 形式的写法中，怎么表达括号中部分都出错，包括FTC.SelectedIndex这种写法。

再次感谢有点甜。昨天一个晚上也没折腾出来，现在终于出来了。。。。

[此贴子已经被作者于2014-12-14 11:02:10编辑过]

请教一下，为什么老是提示未将对象引用设置到对象的实例，错误所在事件：窗口,窗口1,AfterLoad

详细错误信息：

未将对象引用设置到对象的实例

回复4楼，请单独发帖，贴出你写的代码看看。

主题：[求助]TabControl 里 再加TabControl,怎么表达

主题：[求助]TabControl 里再加TabControl,怎么表达