Kleinigkeiten... glaub ich ....

Dokumentation/uscntr_TSSitzungen.vb

@@ -17,22 +17,33 @@
     Function Load2DGV() ' (Optional ByVal Client As Boolean = False)
         If Client = False Then
             Dim ds As New DataSet
-            cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
+            cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' OR Company LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
+
+            dgvTSSitzungen.DataSource = ds.Tables(0)
 
             With dgvTSSitzungen
                 .DefaultCellStyle.BackColor = Color.White
                 .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
                 .RowHeadersVisible = False
-                .DataSource = ds.Tables(0)
+                '.DataSource = ds.Tables(0)
+                .Columns("LastReport").Visible = False
                 .Columns("Domain").Visible = False
+                .Columns("BenutzerAnmeldeName").Visible = False
+                .Columns("TeamviewerID").Visible = False
+
+                .Columns("Name").Width = 160
+
                 .Columns("LastLogon").Visible = True
                 .Columns("LastLogon").HeaderText = "Sitzungsst."
-                .Columns("BenutzerAnmeldeName").Visible = False
-                .Columns("LastReport").Visible = False
+                .Columns("LastLogon").Width = 65
 
-                .Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-                .Columns("TeamviewerID").Width = 80
-                .Columns("TSServer").Width = 55
+
+                .Columns("Company").Visible = True
+                .Columns("Company").HeaderText = "Firma"
+                '.Columns("TeamviewerID").Width = 80
+
+                '.Columns("TSServer").Width = 80
+                .Columns("TSServer").HeaderText = "Host"
 
                 .AutoResizeColumn(1)
             End With
@@ -47,10 +58,12 @@
             With dgvTSSitzungen
                 .RowHeadersVisible = False
                 .DataSource = ds.Tables(0)
-                '.Columns("Domain").Visible = False
-                '.Columns("LastLogon").Visible = False
+                .Columns("Domain").Visible = False
+
                 .Columns("BenutzerAnmeldeName").Visible = False
                 .Columns("LastReport").Visible = False
+                .Columns("Company").Visible = False
+
                 '.Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                 .Columns("TeamviewerID").Width = 80
                 '.Columns("TSServer").Width = 55
@@ -112,17 +125,38 @@
         Dim send As New frmLeer
         send.Text = "Nachricht senden"
         Dim usrcntrl As New uscntr_SendMSG
+        If Client = True Then usrcntrl.RecArt = "User"
         usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
         send.Show()
     End Sub
 
     Private Sub NachrichtSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachrichtSendenToolStripMenuItem.Click
         Dim send As New frmLeer
-        send.Text = "Nachricht senden an " & dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
+
         Dim usrcntrl As New uscntr_SendMSG
-        usrcntrl.recuser.Name = dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
-        usrcntrl.recuser.BenutzerAnmeldeName = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value.ToString
-        usrcntrl.recuser.TSServer = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value.ToString & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value.ToString
+
+        If dgvTSSitzungen.SelectedRows.Count = 1 Then
+            send.Text = "Nachricht senden an " & dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
+            usrcntrl.recuser.Name = dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
+            usrcntrl.recuser.BenutzerAnmeldeName = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value.ToString
+            Select Case Client
+                Case False
+                    usrcntrl.recuser.TSServer = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value.ToString & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value.ToString
+                Case True
+                    usrcntrl.recuser.TSServer = dgvTSSitzungen.CurrentRow.Cells("ClientName").Value.ToString & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value.ToString
+            End Select
+        Else
+            send.Text = "Nachricht an mehrere Empfänger"
+            usrcntrl.RecArt = "User"
+            For Each r As DataGridViewRow In dgvTSSitzungen.SelectedRows
+                Dim u As New cRecUsers(r.Cells("Domain").Value.ToString, cTSUser.genNameKurz(r.Cells("BenutzerAnmeldeName").Value.ToString), r.Cells("TSServer").Value.ToString)
+                usrcntrl.RecUsersList.Add(u)
+            Next
+
+            '   MsgBox("!")
+        End If
+
+
         usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
         send.Show()
     End Sub
@@ -180,6 +214,13 @@
     End Sub
 
     Private Sub dgvTSSitzungen_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellContentClick, dgvTSSitzungen.CellClick
+        Timer1.Enabled = False
+        chkAutoUpdate.Checked = False
+        If timDisUpdateTimer.Enabled = True Then
+            timDisUpdateTimer.Stop() : timDisUpdateTimer.Start()
+        Else
+            timDisUpdateTimer.Enabled = True
+        End If
         SelectIndexes()
     End Sub
     Private Sub DGVScroll() Handles dgvTSSitzungen.Scroll
@@ -190,6 +231,10 @@
         StartIndex = dgvTSSitzungen.FirstDisplayedScrollingRowIndex
     End Function
 
-
-
+    Private Sub timDisUpdateTimer_Tick(sender As Object, e As EventArgs) Handles timDisUpdateTimer.Tick
+        ' MsgBox("Tick!")
+        chkAutoUpdate.Checked = True
+        Timer1.Enabled = True
+        timDisUpdateTimer.Enabled = False
+    End Sub
 End Class