Keskustelu: Koodit: VB.NET: Onko kone verkossa

''' Funktio
    Public Function OnkoKoneVerkossa() As Boolean
        'onko kone verkossa
        Return SystemInformation.Network
    End Function

''' Käyttöesimerkki
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OnkoKoneVerkossa() Then textbox1.text = "Verkossa" Else textbox1.text = "Ei verkossa"
    End Sub