- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- TabControl 页面显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61342)
-- 发布时间：2014/12/11 8:58:00
-- TabControl 页面显示
If e.Col.name="订单产品"then Dim pg As WinForm.TabPage pg = Forms("订单管理").Controls("TabControl1").TabPages(2) pg.Visible = True End If 我想让页面直接跳转到 TabPages(2) 作为当前显示 要怎样办呀 请教老师 |
-- 发布时间：2014/12/11 8:59:00
--
[此贴子已经被作者于2014-12-11 9:21:46编辑过]
-- 发布时间：2014/12/11 9:04:00
--
错误？
[此贴子已经被作者于2014-12-11 9:05:30编辑过]
-- 发布时间：2014/12/11 9:06:00
--
错误
此主题相关图片如下：qq截图20141211090416.jpg
-- 发布时间：2014/12/11 9:07:00
--
这个是TabCOntrol的属性,不是 页面的属性
-- 发布时间：2014/12/11 9:21:00
--
我要控制的是 页面呀
那要怎样呢
-- 发布时间：2014/12/11 9:21:00
--
2楼的例子,你看一下啊.
-- 发布时间：2014/12/11 9:22:00
--
用这个 http://www.foxtable.com/help/topics/0831.htm
-- 发布时间：2014/12/11 9:52:00
--
Dim top() As Integer = {1,2,3}
For Each i As Integer In top
Dim pg As WinForm.TabPage
pg = Forms("订单管理").Controls("TabControl1").TabPages(i)
pg.Visible = False
Next
Forms("订单管理").Controls("TabControl1").SelectedIndex = 0
此主题相关图片如下：qq截图20141211095226.jpg
此主题相关图片如下：qq截图20141211095226.jpg[此贴子已经被作者于2014-12-11 9:52:25编辑过]
-- 发布时间：2014/12/11 9:58:00
--
你想说什么，关闭这样写啊
Dim pg As WinForm.TabPage = Forms("订单管理").Controls("TabControl1").TabPages("Page1")
pg.Visible = False