Müssen Sie für Ihre Anwendung die Netzwerkverfügbarkeit überwachen, kann dieser Code dafür sehr hilfreich sein.
Gehen wir von folgendem aus:
Die Anwendung heisst: MyApplication
Die Anwendung hat 2 Icons: NETZ StopNoNet
Die Anwendung hat ein Textlabel mit Namen: networkAvailabilityTextLabel
Das Hauptformular der Anwendung heisst: Mainform
Der Nachfolgende code muss in die Application Events
Bei jedem Wechsel der netzwerkverfügbarkeit wird dies gemeldet - das heisst, das Icon wechselt und das Label_Steuerelememt wechselt seinen Text
Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
Try
If e.IsNetworkAvailable = True Then
My.Forms.Mainform.ToolStripSplitButton1.Image = Global.WindowsApplication1.My.Resources.Resources.NETZ.ToBitmap
My.Forms.Mainform.networkAvailabilityTextLabel.Text = " Network Operations Status: Network available"
Else
My.Forms.Mainform.ToolStripSplitButton1.Image = Global.My.Resources.My.Resources.Resources.StopNoNet.ToBitmap
My.Forms.Mainform.networkAvailabilityTextLabel.Text = " Network Operations Status: Network NOT available"
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Kommentare zum Snippet