求助一下大佬代码为什么不报错也不执行啊
Dim nb As WinForm.NavBar = forms("main").Controls("导航中心")
For i As Integer = 0 To nb.NavPages.count-1
nb.NavPages(i).Visible = False
Next
nb.Navpages(14).visible=True
If e.sender.SelectedPage.Name = "page1" Then
For i As Integer = 0 To nb.NavPages.count-1
nb.NavPages(i).Visible = False
Next
nb.Navpages(14).visible=True
ElseIf e.sender.SelectedPage.Name = "page2,page10" Then
For i As Integer = 0 To nb.NavPages.count-1
nb.NavPages(i).Visible = False
Next
nb.Navpages(0).visible=True
nb.Navpages(1).visible=True
nb.Navpages(14).visible=True
end if
其中导航中心是一个navbar控件
加好友 
发短信
Post By：2017/10/25 10:45:00 [只看该作者]
