以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么设置打开项目后,先显示并列窗口?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131578)

--  作者:rlovey
--  发布时间:2019/3/1 17:54:00
--  怎么设置打开项目后,先显示并列窗口?

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/3/1 18:22:00
--  
Dim tab = Forms("窗口1").panel.parent.parent
tab.TabPages.Insert(0,tab.Tabpages(1))
tab.SelectedIndex = 0

--  作者:rlovey
--  发布时间:2019/3/1 19:45:00
--  
以下是引用有点甜在2019/3/1 18:22:00的发言:
Dim tab = Forms("窗口1").panel.parent.parent
tab.TabPages.Insert(0,tab.Tabpages(1))
tab.SelectedIndex = 0

谢谢了版主,还有一个问题,C1.Win.C1Command.2, Version=2.0.20173.282, 我查了 论坛里提供的 代码编辑器 用的这个版本的C1Command,单是我下的最新版狐表 C1Command 是C1.Win.C1Command.2, Version=2.0.20161.147 一运行代码编辑器就报错,有办法吗


--  作者:rlovey
--  发布时间:2019/3/1 19:50:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97910&replyID=&skin=1 就这个代码编辑器 ,引用的C1.Win.C1Command.2, Version=2.0.20173.282

 

最新版狐表 引用的 C1.Win.C1Command.2, Version=2.0.20161.147


--  作者:rlovey
--  发布时间:2019/3/1 20:09:00
--  

Dim tab = Forms("大地图窗口").panel.parent.parent
\'tab.TabPages.Insert(0,tab.Tabpages(1))
tab.SelectedTab = tab.TabPages(1)

 

我修改了下,

增加到

项目事件 AfterOpenProject tab.SelectedIndex = 0  我这里测试 没有切换,只是选择上了

 


--  作者:有点蓝
--  发布时间:2019/3/1 21:14:00
--  
以下是引用rlovey在2019/3/1 19:50:00的发言:

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97910&replyID=&skin=1 就这个代码编辑器 ,引用的C1.Win.C1Command.2, Version=2.0.20173.282

 

最新版狐表 引用的 C1.Win.C1Command.2, Version=2.0.20161.147

第三方的应用请找第三方开发人员提供支持,我们无法处理和解决。
--  作者:有点蓝
--  发布时间:2019/3/1 21:18:00
--  
以下是引用rlovey在2019/3/1 20:09:00的发言:

Dim tab = Forms("大地图窗口").panel.parent.parent
\'tab.TabPages.Insert(0,tab.Tabpages(1))
tab.SelectedTab = tab.TabPages(1)

 

我修改了下,

增加到

项目事件 AfterOpenProject tab.SelectedIndex = 0  我这里测试 没有切换,只是选择上了

 

窗口打开了没有?
Forms("大地图窗口").open

Dim tab = Forms("大地图窗口").panel.parent.parent
\'tab.TabPages.Insert(0,tab.Tabpages(1))
tab.SelectedTab = tab.TabPages(1)


--  作者:rlovey
--  发布时间:2019/3/1 21:39:00
--  

打开了啊,tab.SelectedIndex = 0  这个是选择


--  作者:rlovey
--  发布时间:2019/3/1 21:40:00
--  
以下是引用有点蓝在2019/3/1 21:18:00的发言:

窗口打开了没有?
Forms("大地图窗口").open

Dim tab = Forms("大地图窗口").panel.parent.parent
\'tab.TabPages.Insert(0,tab.Tabpages(1))
tab.SelectedTab = tab.TabPages(1)

 

给个权限可以吗?我不能再站内给他发消息,邮件也没见回复


--  作者:有点蓝
--  发布时间:2019/3/1 22:03:00
--  
上传具体实例看看