以文本方式查看主题

-  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=62006)
--  作者：whyfoxtable
--  发布时间：2014/12/23 22:26:00
--  [求助]如何用代码使TabControl中被选中的子页显示在屏幕中间。

前提：

有一个窗口，叫“录入主窗口”，有一个TabControl叫“TopLevelGroup”,  它有很多子页，如“1”，“2”....“n”

 

目标：

用代码选中子页后，不需要点击TabControl右上角的三角号，就能让选中的子页移动到能看见的屏幕上来，而不是继续隐藏在一大堆后面的子页中.

 

目前完工的程度为(第二句里的Move仅表达意思，不能运行的）：

Forms("录入主窗口").Controls("TopLevelGroup").SelectedPage = Forms("录入主窗口").Controls("TopLevelGroup").TabPages("25")

Forms("录入主窗口").Controls("TopLevelGroup").SelectedPage.Move

 

求助：

如何改第二句来实现目标？

[此贴子已经被作者于2014-12-23 22:29:30编辑过]
--  作者：有点甜
--  发布时间：2014/12/23 22:40:00
--  

 做不到，你可以通过隐藏其它页签

 

Forms("录入主窗口").Controls("TopLevelGroup").TabPages("23").Visible = False

Forms("录入主窗口").Controls("TopLevelGroup").TabPages("24").Visible = False

Forms("录入主窗口").Controls("TopLevelGroup").SelectedPage = Forms("录入主窗口").Controls("TopLevelGroup").TabPages("25")

--  作者：whyfoxtable
--  发布时间：2014/12/23 22:43:00
--  [分享]还好灭了我不切实际的心！
感谢让我早回头。。。。
--  作者：whyfoxtable
--  发布时间：2014/12/23 23:17:00
--  [求助]如何设多行标签

能不能让TabControl1以多行标签显示？

 

就象以下代码表示的（不能运行，仅用来表示意思）

Forms("窗体1").Controls("TabControl1").Multipage = True

 

求助：

如何用代码让控件多行标签显示？

 

[此贴子已经被作者于2014-12-23 23:17:42编辑过]
--  作者：whyfoxtable
--  发布时间：2014/12/23 23:20:00
--  [求助]如何用代码给TabControl设多行标签?
求助]如何设多行标签  图片点击可在新窗口打开查看

能不能让TabControl1以多行标签显示？

 

就象以下代码表示的（不能运行，仅用来表示意思）

Forms("窗体1").Controls("TabControl1").Multipage = True

 

求助：

如何用代码让控件多行标签显示？
--  作者：Bin
--  发布时间：2014/12/24 8:05:00
--  
1.直接在控件属性里,把多行页签设置为TRUE
2.Forms("窗体1").Controls("TabControl1").Multiline= True 
--  作者：whyfoxtable
--  发布时间：2014/12/24 21:38:00
--  [分享]第二种方法正是我所需！
今天忙了一天，未上网，回复晚了，表示歉意。再次感谢。。。