- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 一般性网络错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190171)
-- 发布时间：2024/1/21 10:50:00
-- 一般性网络错误
问题：网络错误自定义窗口卡顿，求助怎么解决卡顿问题？
项目事件：BeforeShowErrorMessage
If vars("已弹出") = False
If e.message1.Contains("一般性网络错误") OrElse e.message1.Contains("不存在或拒绝访问") Then
e.Cancel = True
vars("已弹出") = True
Functions.Execute("网络错误")
\'\'Dim t0 As Threading.Thread
\'\'t0=New Threading.Thread(Sub() Functions.Execute("网络错误"))
\'\'t0.Start()
\'MessageBox.Show("数据库服务器链接失败,请点击确定退出程序后,联系管理员处理!!" , "信息系统提示：", MessageBoxButtons.OK, MessageBoxIcon.Information)
\'Syscmd.Project.Exit()
End If
Else
e.Cancel = True
End If
[此贴子已经被作者于2024/1/21 10:52:21编辑过]
-- 发布时间：2024/1/21 20:30:00
--
什么自定义窗口？函数"网络错误"内容发上来
-- 发布时间：2024/1/22 9:18:00
--
函数已重新更改
If vars("已弹出") = False
If e.message1.Contains("一般性网络错误") OrElse e.message1.Contains("不存在或拒绝访问") Then
e.Cancel = True
vars("已弹出") = True
Functions.Execute("网络错误") 函数内容是 Forms("网络错误").open()
End If
Else
e.Cancel = True
End If
弹出下面的的界面，会卡顿几分钟，然后就可以正常拖动了。 此窗口大概 断网20秒后自动断开，大概2分钟后可以正常移动窗口
[此贴子已经被作者于2024/1/22 9:35:01编辑过]
-- 发布时间：2024/1/22 9:34:00
--
窗口afterload事件有什么代码？
-- 发布时间：2024/1/22 10:58:00
--
窗口没有任何事件。
这个弹窗也卡。 MessageBox.Show("数据库服务器链接失败,请点击确定退出程序后,联系管理员处理!!" , "信息系统提示：", MessageBoxButtons.OK, MessageBoxIcon.Information)
-- 发布时间：2024/1/22 11:14:00
--
那应该不是弹窗的问题。当网络断开的时候，可能短时间内会有多个连接数据库的操作，第一个弹窗后，其它的操作还在进行。这种没有办法，只能等了