- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]导航栏无效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132631)
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2019/3/26 16:41:00
--
多番测试，没任何反应
开发者打开时正常，发布后在其它电脑也正常
就是在这台电脑发布后不正常
-- 发布时间：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)
-- 发布时间：2019/3/26 18:14:00
--
也是没有反应
-- 发布时间：2019/3/26 19:51:00
--
新建一个项目，放一个NavBar，发布后放到这台电脑测试看看有没有问题
-- 发布时间：2019/3/27 10:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
仍然不行，发布后的项目在本电脑仍然点击无效，在其它电脑正常
但刚打开是可以的，大概3分钟后就不行
-- 发布时间：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) 不知道这几个问题有没有关连？ |
-- 发布时间：2019/3/27 10:45:00
--
以下是引用OKK在2019/3/26 18:14:00的发言：
也是没有反应
也是没有反应
1、那就是此电脑的【杀毒软件等】查杀和隔离了你程序的某一些dll文件吧？去看看是否隔离了。
2、试试重新拷贝程序过去测试。
-- 发布时间：2019/3/28 11:27:00
--
没找到有隔离的文件，但昨天杀了下毒，现在暂时是可以，，，，再观察一下