以文本方式查看主题

-  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=163846)

--  作者:aoc103
--  发布时间:2021/4/26 19:10:00
--  并列窗口 关闭按钮 无法正常关闭并列窗口

图片点击可在新窗口打开查看此主题相关图片如下:1619435353(1).jpg
图片点击可在新窗口打开查看
窗口类型为并列,并用论坛里提供的功能,在每个TAPPAGE上都打开了关闭按钮,正常使用,点每个TAP上的X按钮是可以关闭的,可当我使用动态设置的并列窗口的E.FORM.TEXT="新窗口名称” 一旦设置了,再击点TAPPAGE上的X按钮则无法正常关闭

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


--  作者:aoc103
--  发布时间:2021/4/26 19:10: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
    Forms(e.TabPage.Text).Close
    e.cancel = True
End If
End Sub
\'以上为页面关闭按钮点击事件


--  作者:aoc103
--  发布时间:2021/4/26 19:11:00
--  
    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
    \'以上代码为给并列窗口增加关闭按钮

--  作者:有点蓝
--  发布时间:2021/4/26 20:38:00
--  
新版不在支持这种非常规用法,建议在窗口里添加关闭按钮退出