123

Dokumentation/uscntr_Slaves.vb

@@ -0,0 +1,25 @@
+Public Class uscntr_Slaves
+
+    Property ds As New DataSet
+
+    Private Sub uscntr_Slaves_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Class1.EnableDoubleBuffered(dgvSlaves)
+        filldgv()
+    End Sub
+
+    Function filldgv()
+        With dgvSlaves
+            .DataSource = ds.Tables(0)
+            .ColumnHeadersVisible = False
+            .RowHeadersVisible = False
+            .AutoSize = True
+            .Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+            .Columns("Netzwerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+        End With
+    End Function
+
+    Private Sub dgvSlaves_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSlaves.CellDoubleClick
+        frmHostBearbeiten.LoadFromExternal(dgvSlaves.CurrentRow.Cells("IPAdresse").Value)
+
+    End Sub
+End Class