以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教:如何用代码求得页面集合的第N页?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5067)
--  作者：yangming
--  发布时间：2009/11/20 12:40:00
--  求教:如何用代码求得页面集合的第N页?
求教:如何用代码打开页面集合的第N页?我用下面的代码,报错了


With Forms("RS_档案明细").Controls("TabControl1").Pages("个人简历")
   .......
End With

这样也不行
Dim pg As WinForm.TabPage
pg =e.Form.Controls("TabControl1").TabPages(1)
pg.Visible = True

[此贴子已经被狐狸爸爸于2009-11-20 17:55:00编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/11/20 13:03:00
--  
pg =e.Form.Controls("TabControl1").Pages(1)
--  作者：yangming
--  发布时间：2009/11/20 13:38:00
--  
以下是引用狐狸爸爸在2009-11-20 13:03:00的发言：
pg =e.Form.Controls("TabControl1").Pages(1)

Dim pg As WinForm.TabPage
pg =e.Form.Controls("TabControl1").Pages(1)
pg.Visible = True

这样仍报错
--  作者：yangming
--  发布时间：2009/11/20 16:58:00
--  
页面集合的各标题如何写代码?我这样写出错
e.Form.Controls("TabControl1").Pages.text
--  作者：狐狸爸爸
--  发布时间：2009/11/20 17:44:00
--  
测试通过:

Dim pg As WinForm.TabPage
pg =e.Form.Controls("TabControl1").TabPages(1)
pg.Visible = False
--  作者：yangming
--  发布时间：2009/11/20 17:51:00
--  
以下是引用狐狸爸爸在2009-11-20 17:44:00的发言：
测试通过:

Dim pg As WinForm.TabPage
pg =e.Form.Controls("TabControl1").TabPages(1)
pg.Visible = False

这样是可以,这只是隐藏,我是要打开此页,如同手动打开此页一样
--  作者：狐狸爸爸
--  发布时间：2009/11/20 17:54:00
--  
测试有效：

e.Form.Controls("TabControl1").selectedindex = 1