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
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

VB.NET Aufbau

Sie verfügen nach der Schulung über fundierte Kenntnisse in der Arbeit mit objektorientierten Modellen in VB.NET und können wiederverwendbare Komponenten eigenständig erzeugen.

    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!