以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]2个页面集合的页签联动  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100056)

--  作者:jyh7081
--  发布时间:2017/5/3 21:35:00
--  [求助]2个页面集合的页签联动

窗口中的两个页面集合,想相互联动,但没起作用,请版主帮忙看看,谢谢!

下面是其中一个页面集合SelectedIndexChanged代码:

 

If e.sender.SelectedPage.Name = "AAAA" Then
    e.Form.Controls("TabControl3").SelectedPage = 0
ElseIf e.sender.SelectedPage.Name = "BBBB" Then
    e.Form.Controls("TabControl3").SelectedPage = 1
ElseIf e.sender.SelectedPage.Name = "CCCC" Then
    e.Form.Controls("TabControl3").SelectedPage = 2
End If


--  作者:wyz20130512
--  发布时间:2017/5/3 22:02:00
--  
Dim TabC3 As WinForm.TabControl = e.Form.Controls("TabControl3")
With e.sender.SelectedPage
    If .Text = "AAAA" Then
        TabC3.SelectedIndex = 0
    ElseIf .Text = "BBBB" Then
        TabC3.SelectedIndex = 1
    ElseIf .Text = "CCCC" Then
        TabC3.SelectedIndex = 2
    End If
End With

--  作者:jyh7081
--  发布时间:2017/5/3 23:02:00
--  
谢谢朋友!好用了。