Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网络中断提示框为什么一直弹出?


  共有2474人关注过本帖树形打印复制链接

主题：网络中断提示框为什么一直弹出?
帅哥哟，离线，有人找我吗？
happyft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00 		网络中断提示框为什么一直弹出?  发帖心情 Post By：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
图片点击可在新窗口打开查看

有什么办法避免不要一直弹出提示框,只要弹出一个就行,昨天的帖子看不见了

谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/7 9:12:00 [只看该作者]

1、这个提示是你自己弄的，还是系统自己弹出的？【网络原因或者电脑休眠导致与服务器的连接中断】

 

2、如果是系统自己弹出的，你需要编写代码（昨天写的那段），然后循环调用关闭提示窗口。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/7 9:18:00 [只看该作者]

foxtable没有你这类的提示【网络原因或者电脑休眠导致与服务器的连接中断】，肯定是你自己弄的。你怎么弄的那就怎么关闭即可。

 

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

 

    If Forms("网络提示").Opened = False Then
        Forms("网络提示").Open
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2018/12/7 9:50:00 [只看该作者]

昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2018/12/7 9:51:00 [只看该作者]

msgbox("查询超时,请检查网络!")
类似这种msgbox只让出一次，怎么弄？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/7 9:55:00 [只看该作者]

以下是引用HappyFt在2018/12/7 9:50:00的发言：
昨天那段代码还没有加入到全局事件中,今天帖子已经没有了,能否再发一下,谢谢!

 

foxtable没有你这类的提示【网络原因或者电脑休眠导致与服务器的连接中断】，肯定是你自己弄的。你怎么弄的那就怎么关闭即可。

 

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

 

    If Forms("网络提示").Opened = False Then
        Forms("网络提示").Open
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2018/12/7 9:57:00 [只看该作者]

这个提示窗口是用在一个计划中的,如果网络不通时执行就会出错,所以增加了判断

try  '避免电脑休眠时执行本计划导致错误

....

catch ex As Exception

    MessageBox.Show("网络原因或者电脑休眠导致与服务器的连接中断!","提示",MessageBoxButtons.OK)

End try


同上一楼同问,这种弹出的窗口如何判断这种窗口已经弹出就不再弹出?
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1934 积分：17661 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2018/12/7 11:56:00 [只看该作者]

想请教下电脑休眠服务器会断开这种情况应该如何避免,也就是电脑休眠时如果项目是打开的如何让所有代码都不执行(像计划这些是自动执行的,就会出错)

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询