想在导航栏控件中点选不同的按钮，通过代码实现页面控件不同页面的点选和消隐，但运行后页面没有消隐，帮看下两段代码有问题吗：在导航栏控件的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
加好友 
发短信
Post By：2014/3/28 5:48:00 [显示全部帖子]
