- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教并列窗口带关闭窗口按钮吗？如图？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147974)
-- 发布时间：2020/3/28 11:37:00
-- 请教并列窗口带关闭窗口按钮吗？如图？
请教并列窗口带关闭窗口按钮吗？如图？
此主题相关图片如下：1234.png
-- 发布时间：2020/3/28 11:40:00
--
全局事件
Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
\'页面关闭按钮点击事件
Dim name = e.TabPage.Text
If name = "主页" Then
e.Cancel = True
Else
If Forms.contains(name) Then
e.Cancel = True
Forms(name).Close
If sender.tabpages.Contains(e.tabpage)
sender.tabpages.remove(e.tabpage)
End If
End If
End If
End Sub
AfterOpenProject
Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).controls(0)
FormTab.CanCloseTabs = True
FormTab.CloseBox = 1
Formtab.CanAutoHide = True
AddHandler Formtab.TabPageClosing, AddressOf _TabPageClosing
-- 发布时间：2020/3/28 11:58:00
--
这个全局事件是哪里的事件 ，是并列窗口的事件吗？
-- 发布时间：2020/3/28 12:08:00
--
afteropenproject 中放入代码Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).controls(0)
FormTab.CanCloseTabs = True
FormTab.CloseBox = 1
Formtab.CanAutoHide = True
AddHandler Formtab.TabPageClosing, AddressOf _TabPageClosing
出错 如图
此主题相关图片如下：qq图片20200328120730.png
-- 发布时间：2020/3/28 13:33:00
--
会不会是我用的是并列窗口 不是tab页面，
-- 发布时间：2020/3/28 15:22:00
--
全局事件指的是把代码放入全局代码：http://www.foxtable.com/webhelp/topics/1842.htm
afteropenproject 事件我测试没有问题，您foxtable是什么版本的？
-- 发布时间：2020/3/28 16:14:00
--
我的版本是如图
此主题相关图片如下：qq图片20200328161334.png
[此贴子已经被作者于2020/3/28 16:14:41编辑过]
-- 发布时间：2020/3/28 16:20:00
--
旧版本没有办法。升级吧
-- 发布时间：2020/3/28 16:25:00
--
升级到最新版本 多少费用
-- 发布时间：2020/3/28 16:26:00
--
高级开发版 个人与企业有啥区别