本来想做一个在表标题的地方显示一个关闭按钮,点击该按钮后隐藏这个表的功能。
按论坛上一个帖子提供的方法,实现了该功能,但是他是直接移除了这个表所在的页面。。然后我根本就无法还原了。。
贴上部分代码。。
Private _pg As
C1.Win.C1Command.C1DockingTabPage = Nothing
''' <summary>
''' 存储当前的页面
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property pg() As
C1.Win.C1Command.C1DockingTabPage
Get
Return _pg
End Get
Set(ByVal value As
C1.Win.C1Command.C1DockingTabPage)
_pg = value
End Set
End Property
项目 项目_MainPages_CloseClick
'处理MainPages的自定义关闭按钮的点击事件
msgbox(_SysCloseBut.pg.Text)
Dim tab =
_SysCloseBut.pg.Parent
tab.tabPages.Remove(_SysCloseBut.pg)