26 lines
873 B
VB.net
26 lines
873 B
VB.net
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
|