- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 网络中断提示框为什么一直弹出? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128435)
-- 发布时间：2018/12/7 9:06:00
-- 网络中断提示框为什么一直弹出?
电脑休眠或者网络断开时运行程序会出错,所以就在BeforeShowErrorMessage用了下面的代码
If e.Message2.indexof("一般性网络错误") > -1 Or e.Message2.indexof("SQL Server 不存在") > -1 Then
e.Cancel = True
If Forms("网络提示").Opened = False Then
Forms("网络提示").Open
End If
ElseIf e.Message2.indexof("查询超时已过期") > -1
e.Cancel = True
msgbox("查询超时,请检查网络!")
end if
但是网络断开时会一直出现提示,
此主题相关图片如下：网络问题.jpg
有什么办法避免不要一直弹出提示框,只要弹出一个就行,昨天的帖子看不见了
谢谢!
-- 发布时间：2018/12/7 9:12:00
--
1、这个提示是你自己弄的，还是系统自己弹出的？【网络原因或者电脑休眠导致与服务器的连接中断】
2、如果是系统自己弹出的，你需要编写代码（昨天写的那段），然后循环调用关闭提示窗口。
-- 发布时间：2018/12/7 9:18:00
--
foxtable没有你这类的提示【网络原因或者电脑休眠导致与服务器的连接中断】，肯定是你自己弄的。你怎么弄的那就怎么关闭即可。
如你1楼的代码那样，加入判断
If Forms("网络提示").Opened = False Then
Forms("网络提示").Open
End If
-- 发布时间：2018/12/7 9:50:00
--
昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!
-- 发布时间：2018/12/7 9:51:00
--
msgbox("查询超时,请检查网络!")
类似这种msgbox只让出一次，怎么弄？
-- 发布时间：2018/12/7 9:55:00
--
以下是引用HappyFt在2018/12/7 9:50:00的发言：
昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!
昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!
foxtable没有你这类的提示【网络原因或者电脑休眠导致与服务器的连接中断】，肯定是你自己弄的。你怎么弄的那就怎么关闭即可。
如你1楼的代码那样，加入判断
If Forms("网络提示").Opened = False Then
Forms("网络提示").Open
End If
-- 发布时间：2018/12/7 9:55:00
--
以下是引用huhu在2018/12/7 9:51:00的发言：
msgbox("查询超时,请检查网络!")
msgbox("查询超时,请检查网络!")
类似这种msgbox只让出一次，怎么弄？
如1楼的代码那样，加入判断
If Forms("网络提示").Opened = False Then
Forms("网络提示").Open
End If
-- 发布时间：2018/12/7 9:57:00
--
这个提示窗口是用在一个计划中的,如果网络不通时执行就会出错,所以增加了判断
try \'避免电脑休眠时执行本计划导致错误
....
catch ex As
Exception
MessageBox.Show("网络原因或者电脑休眠导致与服务器的连接中断!","提示",MessageBoxButtons.OK)
End try
同上一楼同问,这种弹出的窗口如何判断这种窗口已经弹出就不再弹出?
-- 发布时间：2018/12/7 10:01:00
--
方法一：自己做一个窗口打开提示，不要用messagebox
方法二：提示窗口改成特殊的标题，如 【我的提示abc123】（防止重名），然后用ShowAppWindow判断是否弹出
http://www.foxtable.com/webhelp/scr/2713.htm
方法三：写findwindow查找也可以，如
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107090&replyID=731988&skin=1
-- 发布时间：2018/12/7 11:56:00
--
想请教下电脑休眠服务器会断开这种情况应该如何避免,也就是电脑休眠时如果项目是打开的如何让所有代码都不执行(像计划这些是自动执行的,就会出错)