以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  网络中断提示框为什么一直弹出?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128435)

--  作者:happyft
--  发布时间: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

--  作者:HappyFt
--  发布时间:2018/12/7 9:50:00
--  
昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!
--  作者:huhu
--  发布时间: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只让出一次,怎么弄?

 

如1楼的代码那样,加入判断

 

    If Forms("网络提示").Opened = False Then
        Forms("网络提示").Open
    End If

--  作者:HappyFt
--  发布时间: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

 


--  作者:HappyFt
--  发布时间:2018/12/7 11:56:00
--  
想请教下电脑休眠服务器会断开这种情况应该如何避免,也就是电脑休眠时如果项目是打开的如何让所有代码都不执行(像计划这些是自动执行的,就会出错)