Foxtable(狐表)用户栏目专家坐堂 → 页面集合如何动态增加页面?


  共有13331人关注过本帖树形打印复制链接

主题:页面集合如何动态增加页面?

帅哥哟,离线,有人找我吗?
程兴刚
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
页面集合如何动态增加页面?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2010/2/24 20:16:00 [只看该作者]

请贺老师增加动态为多页面板添加页面的方法,比如:


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

或者不要名称,直接用标题:


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

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

总之,如果可以动态添加页面集合,但不能动态添加页面(我暂时没找到方法),生成的只是一个空的页面集合。期盼关注!


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By: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

返回总的页面数


 


 回到顶部