以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TabPage关闭事件如何处理  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176839)
--  作者：baiyangfy
--  发布时间：2022/4/28 13:13:00
--  TabPage关闭事件如何处理

e.Form.Controls("TabControl1").BaseControl.CanCloseTabs = True

e.Form.Controls("TabControl1").BaseControl.CloseBox = 2

我想点关闭时卸载绑定的表
--  作者：有点蓝
--  发布时间：2022/4/28 13:33:00
--  
全局代码

Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
\'页面关闭按钮点击事件

End Sub

绑定事件
Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
t.CanCloseTabs = True
t.CloseBox = 2
AddHandler t.TabPageClosing, AddressOf _TabPageClosing
--  作者：baiyangfy
--  发布时间：2022/4/28 13:42:00
--  
谢谢，怎么才知道关闭的按扭名称
--  作者：有点蓝
--  发布时间：2022/4/28 13:52:00
--  
Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
\'页面关闭按钮点击事件
msgbox(e.TabPage.name & "," & e.TabPage.text)
End Sub