以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮看下这段代码是不是有问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48385)
--  作者：花开的声音
--  发布时间：2014/3/28 5:48:00
--  [求助]帮看下这段代码是不是有问题？
想在导航栏控件中点选不同的按钮，通过代码实现页面控件不同页面的点选和消隐，但运行后页面没有消隐，帮看下两段代码有问题吗：
在导航栏控件的SelectedIndexChanged 事件代码：
Dim tb1 As WinForm.TabControl = e.Form.Controls("TabControl1")
Select e.Sender.SelectedPage.Name
    Case "数据维护"
        tb1.SelectedPage=tb1.TabPages("数据维护")
    Case "数据查询"
         tb1.SelectedPage=tb1.TabPages("基层法律服务所")
End Select

在页面控件的SelectedIndexChanged事件代码：

Dim tb1 As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim tb1pg As WinForm.TabPage 
Dim i As Integer
For i = 0 To tb1.TabPages.Count -1
   tb1pg=tb1.TabPages(i)
   If  tb1pg.IsSelected   Then
     tb1pg.Visible = True
Else
    tb1pg.Visible = False
End If
Next
--  作者：lsy
--  发布时间：2014/3/28 7:01:00
--  
Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
For Each pg As WinForm.TabPage In tb.TabPages
    pg.Visible = True
Next
Select e.Sender.SelectedPage.Name
    Case "日历"
        tb.SelectedIndex = 0
    Case "联系人"
        tb.SelectedIndex = 1
    Case "任务"
        tb.SelectedIndex = 2
End Select
For Each pg As WinForm.TabPage In tb.TabPages
    pg.Visible = pg.IsSelected
Next
--  作者：花开的声音
--  发布时间：2014/3/28 7:15:00
--  
谢谢lsy，那么早就回复，一下好好再学习下提供的代码。