Foxtable(狐表)用户栏目专家坐堂 → 怎么设置打开项目后,先显示并列窗口?


  共有2837人关注过本帖树形打印复制链接

主题:怎么设置打开项目后,先显示并列窗口?

帅哥哟,离线,有人找我吗?
rlovey
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:115 威望:0 精华:0 注册:2019/2/27 0:11:00
怎么设置打开项目后,先显示并列窗口?  发帖心情 Post By:2019/3/1 17:54:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/1 18:22:00 [只看该作者]

Dim tab = Forms("窗口1").panel.parent.parent
tab.TabPages.Insert(0,tab.Tabpages(1))
tab.SelectedIndex = 0

 回到顶部
帅哥哟,离线,有人找我吗?
rlovey
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:115 威望:0 精华:0 注册:2019/2/27 0:11:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:115 威望:0 精华:0 注册:2019/2/27 0:11:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:115 威望:0 精华:0 注册:2019/2/27 0:11:00
  发帖心情 Post By: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  我这里测试 没有切换,只是选择上了

 


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110647 积分:563143 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

第三方的应用请找第三方开发人员提供支持,我们无法处理和解决。

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110647 积分:563143 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:115 威望:0 精华:0 注册:2019/2/27 0:11:00
  发帖心情 Post By:2019/3/1 21:39:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
rlovey
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:115 威望:0 精华:0 注册:2019/2/27 0:11:00
  发帖心情 Post By: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)

 

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


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110647 积分:563143 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/1 22:03:00 [只看该作者]

上传具体实例看看

 回到顶部