主题：[求助]并列窗口关闭按钮问题

去除，就加入代码

 

_SysCloseBut.Top = -1000
_SysCloseBut.pg = Nothing

1.难道不可用加一表名判断？

 1、11楼代码你写到mainTableChanged事件去啊；

 

 2、主窗体指哪里？你就不能去看看全局事件的代码？

 

 3、窗口标题，和窗口名称一致起来，然后，写代码 Forms(_SysCloseBut.pg.Text).Close

2，是并列窗口中的主窗口，

3.代码 Forms(_SysCloseBut.pg.Text).Close

 

'处理MainPages的自定义关闭按钮的点击事件
Forms(_SysCloseBut.pg.controls(0).Name).Close

2.并列窗口中的主窗口不显示关闭按钮，怎么解决？谢谢

去看全局代码 MainPages_Paint 事件

 

Dim Tab As C1Command.C1DockingTab = sender
    Dim pg As C1Command.C1DockingTabPage = Tab.SelectedTab
    If pg IsNot Nothing AndAlso pg.Text <> "xxxx" Then
        Dim rect As Rectangle = tab.RectangleToScreen(pg.TabBounds)
        _SysCloseBut.Top = BaseMainForm.RectangleToClient(rect).Top + 5
        _SysCloseBut.Left = BaseMainForm.RectangleToClient(rect).Left + BaseMainForm.RectangleToClient(rect).Width - 18
        _SysCloseBut.pg = pg
        _SysCloseBut.BringToFront()   
    Else
        _SysCloseBut.Top = -1000
        _SysCloseBut.pg = Nothing   
    End If