如题,当正在使用中的项目网络出问题时,用户界面就会出错,弹出一大堆关不完的窗口,有没有办法此时仅弹出一个对话框提示网络出问题了,但不要再弹出其他错误的窗口来
现在是在NetWorkAddressChanged事件中判断网络状态,2秒连接不上就弹出一个提示框,
If TryConnectHost(db_IP) Then
Dim myConnStr As New ConnStr.ConnNetStr
Vars("网络状态") = myConnStr.ConnNetStrByConnStr(Connections(Mydata).ConnectionString, 2000) '2秒内判断网络
If Vars("网络状态") = True Then
If Forms("网络提示").Opened Then '关闭网络断开时弹出的提示框
Forms("网络提示").Close
End If
End If
End If
这种情况如何才能友好的禁止后面正在运行的代码执行?
谢谢!