我一直致力于一个应用程序,如果网络连接断开,应用程序的通知图标应显示气球工具提示。
此应用程序还将在重新建立网络连接时显示气球工具提示。
当重新建立网络连接时,气球工具提示会显示它的假设,但是,当网络连接丢失时,气球工具提示不会显示。
不起作用的部分如下所示:
'如果以前的网络连接或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秒通过一个计时器控制检查网络连接,这个'如果'声明居住在。如果我改变了“如果”的话。当BadPing = 2时触发的声明我似乎没问题,气球工具提示显示,任何更少,它都不会这样做。
出于测试目的,我评论了“如果'语句和运行程序,气球工具提示每10秒出现一次,但只有在PingReplyText显示"网络连接脱机后!"两次。
在这种情况下,我通过在Windows的控制面板中禁用我的网络适配器来测试网络连接丢失。是否有一些事情我不知道这可能导致气球工具提示在网络丢失的前10秒内没有出现?
答案 0 :(得分:0)
您的解释不太清楚,但BadPing在第一次循环后将超过1,我的意思是,此消息只会显示一次。
尝试以不同的方式设置文本,因为我在这里有相同的功能,它的功能就像魅力一样:
HeartbeatIcon.BallonTipTitke = "Heartbeat"
HeartbeatIcon.BallonTipText = "Network Online"
HeartbeatIcon.ShowBallonTip(10000)