以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  selectindexchanged问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108564)
--  作者：Rhonin
--  发布时间：2017/10/25 10:45:00
--  selectindexchanged问题
求助一下大佬代码为什么不报错也不执行啊
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控件
--  作者：有点甜
--  发布时间：2017/10/25 10:50:00
--  

1、弹出值看看

 

msgbox(e.sender.SelectedPage.Name)

msgbox(e.sender.SelectedPage.ButtonText)

 

2、判断多个要这样写

 

ElseIf e.sender.SelectedPage.ButtonText = "page2" OrElse e.sender.SelectedPage.ButtonText = "page10" Then
--  作者：Rhonin
--  发布时间：2017/10/25 11:06:00
--  
多谢多谢 搞定了，页面名称忘写上了，它默认是空的，但是为什么不报错呢...
--  作者：有点甜
--  发布时间：2017/10/25 12:45:00
--  
以下是引用Rhonin在2017/10/25 11:06:00的发言：
多谢多谢 搞定了，页面名称忘写上了，它默认是空的，但是为什么不报错呢...

 

为空就是""，和""比较只是不匹配而已，不会报错。