Dumdidummdummda

Dokumentation/uscntr_TSSitzungen.vb

@@ -4,11 +4,16 @@
     Dim SelectedIndex As Integer = 0
     Dim StartIndex As Integer = 0
 
-    Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+    Public Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        AddHandler Main.ResetButtonPressed, AddressOf Reset
+
         Class1.EnableDoubleBuffered(dgvTSSitzungen)
         Load2DGV()
     End Sub
 
+
     Function Load2DGV() ' (Optional ByVal Client As Boolean = False)
         If Client = False Then
             Dim ds As New DataSet
@@ -20,8 +25,10 @@
                 .RowHeadersVisible = False
                 .DataSource = ds.Tables(0)
                 .Columns("Domain").Visible = False
-                .Columns("LastLogon").Visible = False
+                .Columns("LastLogon").Visible = True
+                .Columns("LastLogon").HeaderText = "Sitzungsst."
                 .Columns("BenutzerAnmeldeName").Visible = False
+                .Columns("LastReport").Visible = False
 
                 .Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                 .Columns("TeamviewerID").Width = 80
@@ -42,10 +49,10 @@
                 .DataSource = ds.Tables(0)
                 '.Columns("Domain").Visible = False
                 '.Columns("LastLogon").Visible = False
-                '.Columns("BenutzerAnmeldeName").Visible = False
-
+                .Columns("BenutzerAnmeldeName").Visible = False
+                .Columns("LastReport").Visible = False
                 '.Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-                '.Columns("TeamviewerID").Width = 80
+                .Columns("TeamviewerID").Width = 80
                 '.Columns("TSServer").Width = 55
 
                 .AutoResizeColumn(1)
@@ -71,8 +78,6 @@
 
     End Sub
 
-
-
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         Load2DGV()
     End Sub
@@ -131,8 +136,14 @@
         Return String.Format(ding, TextBox1.Text)
     End Function
 
-    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+    Function Reset()
+        btnSitzung.PerformClick()
         TextBox1.Text = ""
+    End Function
+
+    Public Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+        'TextBox1.Text = ""
+        Reset()
     End Sub
 
     Private Sub VerbindenMitTeamVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbindenMitTeamVToolStripMenuItem.Click
@@ -178,4 +189,7 @@
         SelectedIndex = dgvTSSitzungen.CurrentRow.Index
         StartIndex = dgvTSSitzungen.FirstDisplayedScrollingRowIndex
     End Function
+
+
+
 End Class