NetworkAddressChanged
网络IP地址发生变化后执行。
可以用该事件监控网络,例如在网络状态发生变化的时候,执行特定的操作。
示例
假定窗口1有个名为"btnSave"的按钮,希望在网络不通的情况下禁用此按钮。
为此可以将NetworkAddressChanged事件代码设置为:
If
Forms("窗口1").Opened
Then
Dim btn
As WinForm.Button
= Forms("窗口1").Controls("Button1")
If
TryConnectHost("www.baidu.com")
Then
btn.Enabled
= True
Else
btn.Enabled
= False
End
If
End
If
一般来说,如果只是要判断网络状态是否可用,那么应该使用NetworkAvailabilityChanged事件,如果要判断确定地址的服务器是否可用,那么就应该使用本事件。
以宽带拨号上网为例,拨号接入互联网之后,触发NetworkAvailabilityChanged,但是此时并不能访问互联网,因为还需要获取IP地址,获取IP地址之后,触发NetworkAddressChanged事件,之后才能正常访问互联网。