以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  页面集合如何动态增加页面？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6001)
--  作者：程兴刚
--  发布时间：2010/2/24 19:15:00
--  页面集合如何动态增加页面？
动态添加页面集合已经成功，但是一个空的页面集合，没有页面，如何在下面的代码后面继续添加页面：

Dim Multi As String = "带圈数字符号|钢筋直径|复杂轴号"
Dim Values() as String
Values = Multi.split("|")
Dim dymb As WinForm.TabControl
dymb = e.Form.CreateControl("特殊符库", ControlTypeEnum.TabControl)
dymb.Left =math.min(ScreenWidth-301,e.Sender.Left)
dymb.Top = e.Sender.top + e.Sender.Height+1
dymb.Width =300
dymb.Height =290
e.Form.Controls("Panel3").AddControl(dymb)
dymb.TopMost=true

我需要添加"带圈数字符号|钢筋直径|复杂轴号"这三个页面，请高手相助，我在帮助中没找到！
[此贴子已经被作者于2010-2-24 19:56:16编辑过]
--  作者：程兴刚
--  发布时间：2010/2/24 20:16:00
--  
请贺老师增加动态为多页面板添加页面的方法，比如：


    .TABpages.add("页面名称","页面标题")

或者不要名称，直接用标题：


    .TABpages.add("页面标题")

否则，动态添加页面集合后怎么办？如何添加页面？

总之，如果可以动态添加页面集合，但不能动态添加页面（我暂时没找到方法），生成的只是一个空的页面集合。期盼关注！
--  作者：程兴刚
--  发布时间：2010/2/25 18:17:00
--  

已经由贺老师解决，下次更新后可使用，先做个印记：

TabPages

TabPage集合，可通过此集合访问指定位置或名称的页面。
TabPage表示一个页面，接下来会介绍TabPage的属性。

示例

隐藏第二个页面：

Dim pg As WinForm.TabPage
pg = Forms("窗口1").Controls("TabControl1").TabPages(1)
pg.Visible = False

TabPages有以下属性和方法：

Add

增加新的页面，并返回所增加的页面。

语法：

Add(Name, Text)

Name:  页面名称
Text： 页面标题

Delete

删除指定名称或位置的页面。

语法

Delete(Name)

或

Delete(Index)

Name： 要删除页面的名称
Index：要删除页面的位置

Clear

清除所有页面。

Count

返回总的页面数