问题：网络错误自定义窗口卡顿，求助怎么解决卡顿问题？
项目事件：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编辑过]
加好友 
发短信
Post By：2024/1/21 10:50:00 [只看该作者]
