Feedback

VB - Netzwerkverfügbarkeit überwachen

Veröffentlicht von am 22.12.2006
(4 Bewertungen)
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

 

Logge dich ein, um hier zu kommentieren!