- 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=146119)
-- 发布时间：2020/2/16 20:33:00
-- 并列窗口的标签处如何显示×?
此主题相关图片如下：tim截图20200216202158.jpg
如上图,在项目属性中设置了显示关闭按钮后,主窗口的标签右侧会显示×,可单击关闭窗口,但在并列窗口中却没出现,要怎么样处理才可以?
谢谢!
-- 发布时间：2020/2/16 21:16: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