Listview und Ping Problem

mafu

Mitglied
Hallo ich habe ne listview erstellt und nun möchte ich wissen wie ich
z.b die "column IP" zb. in eine Abfrage reinschreiben kann so das nur die erste spalte reingelsen wird.

also nochmal einfach die column1 (wo mehrere ipadressen untereinander geschreiben sind)
einzein linie für line abfragen......
den ip befehl hab ich schon fast.
Code:
Private Sub BT_Einzelprüfung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Einzelprüfung.Click
        Dim Pg As New Ping()
        Dim HostAdr As String
        HostAdr = LV_IP.CompanyName("IP-Adresse")
        If bRunMode = False Then
            bRunMode = True
            BT_Einzelprüfung.Text = "&Einzelprüfung Stop"
            bnXMLReport.Enabled = False
            For i As Byte = IPNr To 254
                If bRunMode = False Then
                    IPNr = i
                End If
                HostAdr = RemoteIPBase & "." & CType(i, String)
                LB_Status.Items.Add("Gescannt wird " & HostAdr)
                LB_Status.SelectedIndex = LB_Status.Items.Count - 1
                Application.DoEvents()
                Dim lv As ListViewItem = lvHosts.Items.Add(HostAdr)
                Dim Pr As PingReply = Pg.Send(HostAdr)
                lv.SubItems.Add(Pr.Status.ToString)
                If Pr.Status = IPStatus.Success Then
                    lv.SubItems.Add(Pr.RoundtripTime)
                Else
                    lv.SubItems.Add("0")
                End If
                lv.EnsureVisible()
            Next
            LB_Status.Items.Add("Scan-Vorgang beendet")
        Else
            bRunMode = False
            BT_Einzelprüfung.Text = "Einzelprüfung Start"
            bnXMLReport.Enabled = True
            LB_Status.Items.Add("Scan-Vorgang wurde unterbrochen")
            LB_Status.SelectedIndex = LB_Status.Items.Count - 1
        End If
        bnXMLReport.Enabled = True

fals jemand was bessserers weiß dnan soll er mirs bitte mitteilen und evtl. erklären.

gruß Mafu
 

Christian Kusmanow

Erfahrenes Mitglied
  • Überarbeite deinen Post bitte entsprechend der deutschen Rechtschreibung und Grammatik.
  • Verwende bitte Camel- und PascalCasing in deinen Code Snippets damit man auch nachvollziehen kann, mit was für Objekten da gerade hantiert wird.
  • Kommentiere die Codeabschnitte damit man leichter versteht, was Du machen willst bzw. wozu Du Fragen hast.
Danke