以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教关闭页面问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91526)

--  作者:落叶孤影
--  发布时间:2016/10/12 16:43:00
--  请教关闭页面问题
你好老师,我上传的这个项目中有上下两个TabControl控件,上面的模拟菜单,下面的模拟窗口。在下面窗口点击相应按钮,上面的菜单(TabControl)会根据设置打开对应的page,但关闭下面的页面时,上面的page没有反应,请问老师该怎么设置呢?谢谢!
[此贴子已经被作者于2016/10/12 17:37:00编辑过]

--  作者:有点蓝
--  发布时间:2016/10/12 17:05:00
--  
内部函数:项目_MainPages_CloseClick

\'处理MainPages的自定义关闭按钮的点击事件
msgbox(_SysCloseBut.pg.name)
Dim tad = _SysCloseBut.pg.Parent
For i As Integer = 0 To tad.TabPages.Count - 1
    If tad.TabPages(i).Name = _SysCloseBut.pg.name AndAlso i > 0 Then
        tad.SelectedTab = tad.TabPages(i-1)
        Exit For
    End If
Next

tad.tabPages.Remove(_SysCloseBut.pg)

--  作者:落叶孤影
--  发布时间:2016/10/12 17:37:00
--  
谢谢!