以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取当前界面打开窗口与共用窗口切换问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139565)
--  作者：狐狸爸爸
--  发布时间：2019/8/15 19:37:00
--  
获取活动窗口：
http://www.foxtable.com/webhelp/topics/1547.htm
--  作者：有点蓝
--  发布时间：2019/8/16 10:45:00
--  
不如直接显示窗口，接着加载数据，例如

Forms("窗口1").show
tables("窗口1_table1").datatable.load
--  作者：有点蓝
--  发布时间：2019/8/16 11:14:00
--  
如果窗口不是属于活动状态（控件有输入焦点）是无法获取的。

需要哪个窗口显示不是自己控制的吗，不可能会自动切换呀，使用Forms("窗口1").show之后加载数据呀
--  作者：有点蓝
--  发布时间：2019/8/16 11:21:00
--  
或者试试这样判断一下：

Dim t = Forms("窗口4").panel.parent.parent
msgbox(t.Selectedtab.text)
--  作者：有点蓝
--  发布时间：2019/8/16 11:30:00
--  
看8楼
--  作者：有点蓝
--  发布时间：2019/8/16 11:44:00
--  
是的。"窗口4"可以改为任意一个已经打开的共有窗口
--  作者：有点蓝
--  发布时间：2019/8/16 16:06:00
--  
页签没有定义名称吧，只有标题

Dim n As String=pg.text
msgbox(n)