[求助]导航栏无效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4235人关注过本帖树形打印复制链接主题：[求助]导航栏无效

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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/26 12:07:00 [只看该作者]

加入msgbox，弹出信息看看

msgbox(123)

Dim bar As WinForm.NavBar = Forms("主窗口").controls("NavBar1")

msgbox(e.sender.SelectedPage.name)

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

OKK

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2019/3/26 16:41:00 [只看该作者]

多番测试，没任何反应

开发者打开时正常，发布后在其它电脑也正常

就是在这台电脑发布后不正常

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/26 17:27:00 [只看该作者]

主窗口afterload事件，加入msgbox，是否执行？

msgbox(1)

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")

msgbox(bar.Navpages("page2").buttontext)

OKK

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2019/3/26 18:14:00 [只看该作者]

也是没有反应

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111418 积分：567166 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/26 19:51:00 [只看该作者]

新建一个项目，放一个NavBar，发布后放到这台电脑测试看看有没有问题

OKK

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2019/3/27 10:15:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

仍然不行，发布后的项目在本电脑仍然点击无效，在其它电脑正常

但刚打开是可以的，大概3分钟后就不行

OKK

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2019/3/27 10:26:00 [只看该作者]

Case "radio"

sb.AppendLine("<!doctype html>")

sb.AppendLine("<html >")

sb.AppendLine("<title>123</title>")

sb.AppendLine("<body>")

sb.AppendLine("<form>")

sb.AppendLine("<video width=100% height=100% controls=controls>")

sb.AppendLine("<source src = 'radio.mp4'>")

sb.AppendLine("</video>")

sb.AppendLine("</form>")

sb.AppendLine("</body>")

sb.AppendLine("</html>")

e.WriteString(sb.ToString)

另一个问题，在IE浏览器执行以上代码，正常播放MP4
但在360浏览器执行以上代码，是弹出迅雷下载MP4
请问，是我代码问题，还是浏览器的问题？

不过360浏览器以前是正常播放的，印象中好像是执行过以下代码后就不行了
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=131751&skin=0

在foxtable里面，用代码设置也可以，如

Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION","test1.exe",9999)

不知道这几个问题有没有关连？