- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打开错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150611)
-- 发布时间：2020/6/3 9:38:00
-- 打开错误
此主题相关图片如下：snipaste_2020-06-03_09-35-59.png
不定期有电脑在打开时出现这种错误提示,我本身开发时没有遇到这种情况,请帮忙查看代码是否有漏洞?
以下是菜单事件:(启动时的事件在图片里)
此主题相关图片如下：tim图片20200603092807.jpg
此主题相关图片如下：tim图片20200603092807.jpgIf CurrentTable Is Nothing Then
Return
End If
\'此段代码用于显示OpenQQ的未读消息
Static OpenQQ As RibbonMenu.Button
Static LastTime As Date
If OpenQQ Is Nothing Then
OpenQQ = ConfigBar.Items("OpenQQ")
End If
Dim txt As String
If QQClient.Ready Then
ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")
Dim Page As WinForm.TopicPage
If QQClient.UnreadCount > 0 Then
txt = "(" & QQClient.UnreadCount & "条)"
If Forms("导航栏").Opened Then
Page = Forms("导航栏").Controls("TopicBar1").Pages("消息")
page.Visible = True
Page.Links("未读消息").Text = "您有未读消息" & txt & ",请查看"
Page.Links("未读消息").ImageFile = "online.ico"
End If
ElseIf QQClient.UnreadCount = 0 AndAlso Forms("导航栏").Opened Then
Page = Forms("导航栏").Controls("TopicBar1").Pages("消息")
page.Visible = False
End If
If OpenQQ.Text <> txt Then
OpenQQ.Text = txt
End If
If OpenQQ.Text > "" Then
Dim ntp As timeSpan = Date.Now - LastTime
If ntp.TotalSeconds >= 0.5 Then
LastTime = Date.Now
If OpenQQ.ForeColor = Color.Red Then
OpenQQ.ForeColor = Color.Transparent
Else
OpenQQ.ForeColor = Color.Red
End If
If Forms("导航栏").Opened Then
Page = Forms("导航栏").Controls("TopicBar1").Pages("消息")
If Page.Links("未读消息").ImageFile = "online.ico" Then
Page.Links("未读消息").ImageFile = "offline.ico"
Else
Page.Links("未读消息").ImageFile = "online.ico"
End If
End If
End If
End If
Else
ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")
End If
-- 发布时间：2020/6/3 9:47:00
--
提示很明显了，不存在"导航栏"这个名称的窗口。勾选"显示详细信息"，看是什么事件出错，把完整代码发上来看看