通过计划的确可以解决这个问题,但带来了更大的问题,就是屏幕极明显的闪烁,且有那么一刹那,显示主系统界面,感觉非常LOW老师的计划管理提醒了我,让我不再寄希望于NetworkAvailabilityChanged事件了,只用计划管理,配合TryConnectHost()函数,完美解决了这个问题
计划默认可执行,间隔5秒。当网络通断时,都有及时的显示正常且正确的提示信息,这正是我想要的结果
'wzlt 是一个全局变量,默认值为 false
If Forms("main").Opened = True Then
Dim ztl As WinForm.Strip = Forms("main").Strips("状态栏")
ztl.Items("用户").Text = "当前用户:" & User.Name
ztl.Items("时间").Text = Date.now
Dim wz As String = "www.baidu.com" '自己服务器域名
Dim wl As Boolean = TryConnectHost(wz)
If wl = True Then
If wlzt = False Then ‘避免反复提示
PopMessage("网络链接已恢复", "提示", PopiconEnum.OK, 5)
End If
ztl.Items("网络").Text = "网络状态:[正常]"
wlzt = True
Else
If wlzt = True Then
PopMessage("失去网络链接,请检查", "提示", PopiconEnum.OK, 5)
End If
ztl.Items("网络").Text = "网络状态:[不正常]"
wlzt = False
End If
End If
[此贴子已经被作者于2023/4/20 21:10:47编辑过]