4.7

Dokumentation/Main.vb

@@ -425,6 +425,13 @@ Public Class Main
                 End If
 
                 ''--------------------------------------------------------------------------------------------------------/Ende// Abfrage DHCP Clients 
+
+                Class1.HostList.Clear()
+
+                For Each dr As DataRow In ds.Tables(0).Rows
+                    Class1.HostList.Add(dr.Item("IPAdresse").ToString)
+                Next
+
                 dgvfill(ds, "Netzwerk")
                 Dim endtimedgvfill As Date = Date.Now
                 LblDebugInfo.Text &= "dgvfill: " & ((endtimedgvfill - starttime).Milliseconds) & vbCrLf
@@ -1215,9 +1222,9 @@ Public Class Main
     End Sub
 
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim test As String = ""
-        For Each User As cBenutzer In Class1.GroupUsers
-            test &= User.suchname & vbCrLf
+        Dim test As String
+        For Each st As String In Class1.HostList
+            test &= st & vbCrLf
         Next
         MsgBox(test)
     End Sub