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


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

主题:网络中断提示框为什么一直弹出?

帅哥哟,离线,有人找我吗?
有点甜
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 

防止电脑休眠咯,或者把报错屏蔽掉,或者干脆直接关闭项目

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122460&skin=0

 


 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1264 积分:10248 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2018/12/7 18:14:00 [只看该作者]

还有个问题,当远程服务器断开导致弹出这个网络提示窗口后,此时直接关闭窗口也会出错,
现在只好在关闭这个窗口前写代码连接远程服务器,如果连接不上就禁止关闭,用户只能选择直接退出.
'---与远程服务器连接.
If TryConnectHost(db_IP) Then
    Dim myConnTest As New ConnTest.ConnNetTest
    Vars("网络状态") = myConnTest.ConnNetTestByConnStr(Connections(Mydata).ConnectionString,2000)  '2秒内判断网络
    If Vars("网络状态") = False Then
        MessageBox.Show("网络不通,只能退出或等网络恢复后自动关闭本提示框再操作!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
        e.Cancel = True
    End If
End If

然后又增加了一个计划,每2分钟检测一次网络,如果通了,就自动关闭掉这个弹出框.
If Forms("网络提示").Opened Then  '关闭网络断开时弹出的提示框
    '---与远程服务器连接.
    If TryConnectHost(db_IP) Then
        Dim myConnTest As New ConnTest.ConnNetTest
        Vars("网络状态") = myConnTest.ConnNetTestByConnStr(Connections(Mydata).ConnectionString,2000)  '2秒内判断网络
        If Vars("网络状态") = True Then
            Forms("网络提示").Close
        End If
    End If
End If

这样服务器频繁连接会有问题吗?还有没有其他更好的办法?

 回到顶部
总数 12 上一页 1 2