我一直在开发一个应用程序,如果网络连接中断,应用程序的通知图标应该会显示一个气球工具提示。
此应用程序还将在重新建立网络连接时显示气泡式工具提示。
当重新建立网络连接时,气球工具提示将显示为假设状态,但是,当网络连接丢失时,气球工具提示将不会显示。
不起作用的部分如下所示:
‘如果以前的网络连接或ping是正确的,而现在不是,则显示它
If BadPing = 1 Then
HeartbeatIcon.ShowBalloonTip(10000, "VPN Heartbeat", "Network Offline!", ToolTipIcon.Error)
End If
PingReplyText.Text += "Network Connection Offline!" + vbCrLf
BadPing = BadPing + 1因此,程序每10秒通过一个定时器控件检查网络连通性,这个“If”语句驻留在该控件中。如果我将' If‘语句更改为当BadPing =2时触发,我看起来没问题,气球工具提示显示出来,再少一点,它就不会这么做了。
出于测试目的,我注释掉了'If‘语句并运行程序,气球工具提示每隔10秒出现一次,但只有在PingReplyText显示“网络连接离线!”之后才会出现。两次。
在这种情况下,我通过在Windows的控制面板中禁用网络适配器来测试网络连接是否中断。是否发生了一些我不知道的事情,可能导致气球工具提示在网络丢失的前10秒内不显示?
发布于 2016-02-23 09:33:33
你的解释不太清楚,但在第一次循环后,BadPing将大于1,我的意思是,这条消息将只显示一次。
尝试以不同的方式设置文本,因为我在这里也有相同的设置,它的作用就像一个护身符:
HeartbeatIcon.BallonTipTitke = "Heartbeat"
HeartbeatIcon.BallonTipText = "Network Online"
HeartbeatIcon.ShowBallonTip(10000)https://stackoverflow.com/questions/35567011
复制相似问题