共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：一般性网络错误
1楼
puma 发表于：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编辑过]
2楼
有点蓝 发表于：2024/1/21 20:30:00什么自定义窗口？函数"网络错误"内容发上来
3楼
puma 发表于：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编辑过]
4楼
有点蓝 发表于：2024/1/22 9:34:00窗口afterload事件有什么代码？
5楼
puma 发表于：2024/1/22 10:58:00窗口没有任何事件。
这个弹窗也卡。 MessageBox.Show("数据库服务器链接失败,请点击确定退出程序后,联系管理员处理!!" , "信息系统提示：", MessageBoxButtons.OK, MessageBoxIcon.Information)
6楼
有点蓝 发表于：2024/1/22 11:14:00那应该不是弹窗的问题。当网络断开的时候，可能短时间内会有多个连接数据库的操作，第一个弹窗后，其它的操作还在进行。这种没有办法，只能等了
共6 条记录, 每页显示 10 条, 页签:
[1]