前提：
存在窗体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编辑过]
加好友 
发短信
Post By：2014/12/14 2:25:00 [显示全部帖子]
