还有个问题,当远程服务器断开导致弹出这个网络提示窗口后,此时直接关闭窗口也会出错,
现在只好在关闭这个窗口前写代码连接远程服务器,如果连接不上就禁止关闭,用户只能选择直接退出.
'---与远程服务器连接.
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
这样服务器频繁连接会有问题吗?还有没有其他更好的办法?
加好友 
发短信
Post By：2018/12/7 12:19:00 [只看该作者]
