以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]并列窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149780)
--  作者：职业技术学校
--  发布时间：2020/5/12 11:12:00
--  [求助]并列窗口
1.有没有办法设置打开一个并列窗口必选关闭之前的并列窗口的代码，就像模式窗口一样

2.并列窗口标题旁边能不能有个关闭X的标志，点那个X就可以关闭并列窗口
--  作者：有点蓝
--  发布时间：2020/5/12 11:32: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