以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]tabcontrol控件的page页面  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99779)

--  作者:积水成渊
--  发布时间:2017/4/26 17:00:00
--  [求助]tabcontrol控件的page页面
tabcontrol有4个page页面,分别为A,B,C,D,我要写一个select case 语句实现一个功能,当我点页面A时,执行代码,当我点B时,执行代码。
--  作者:有点色
--  发布时间:2017/4/26 17:11:00
--  

SelectedIndexChanged事件

 

Select case e.Sender.selectedpage.Text

    Case "A"

 

    Case "B"

 

End Select


--  作者:积水成渊
--  发布时间:2017/4/26 17:27:00
--  
这种方法不行,我要在currentchanged事件中执行代码,因为我要table表中点中一行,然后在tabcontrol控件中点中页面A,页面A的表中会加载点中行的明细,谢谢!
--  作者:有点色
--  发布时间:2017/4/26 18:00:00
--  
If Forms("窗口1").opened Then
    Dim tab As WinForm.TabControl = forms("窗口1").controls("TabControl1")
    Select Case tab.selectedpage.Text
        Case "A"
           
        Case "B"
           
    End Select
End If

--  作者:积水成渊
--  发布时间:2017/4/26 18:12:00
--  
感谢 老师 !!问题解决