Foxtable(狐表)用户栏目专家坐堂 → [求助]导航栏无效


  共有3568人关注过本帖平板打印复制链接

主题:[求助]导航栏无效

美女呀,离线,留言给我吧!
OKK
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
[求助]导航栏无效  发帖心情 Post By:2019/3/26 11:46:00 [只看该作者]

设置了一个主窗口
然后在主窗口打开后加载设置以下代码:
Dim bar As WinForm.NavBar = Forms("主窗口").controls("NavBar1")
bar.Navpages("page1").buttontext = 导航栏标题("A")
bar.Navpages("page2").buttontext = 导航栏标题("B")
bar.Navpages("page3").buttontext = 导航栏标题("C")
bar.Navpages("page4").buttontext = 导航栏标题("D")

再在NavBar1的SelectedIndexChanged设置以下代码
Dim bar As WinForm.NavBar = Forms("主窗口").controls("NavBar1")
Select Case bar.SelectedPage.name
    Case "page1"
         Forms("查看窗口A").open()
    Case "page2"
         Forms("查看窗口B").open()
    Case "page3"
         Forms("查看窗口C").open()
    Case "page4"
         Forms("查看窗口D").open()
End Select

当在主窗口点击NavBar1时,弹出查看窗口




问题:
发布后的项目,在其中一台电脑上点击NavBar1无反应
其它电脑正常
请问,NavBar1是与什么有关的,我这台电脑哪里出问题了
[此贴子已经被作者于2019/3/26 11:47:26编辑过]

 回到顶部
总数 14 1 2 下一页