TSSittzungen

Dokumentation/uscntr_SendMSG.vb

@@ -0,0 +1,85 @@
+Public Class uscntr_SendMSG
+
+    Dim recserver As New List(Of String)
+    Public recuser As New cTSUser
+    Dim msg As String = " {0} /Server:{1} '{2}'" 'Username, Server, Nachricht
+    Dim msgfin As String = ""
+    Dim SingleUserRec As Boolean = False
+
+    Private Sub uscntr_SendMSG_Load(sender As Object, e As EventArgs) Handles Me.Load
+        LabelInfo.Text = ""
+        FillPanWithServer()
+        SelectUniUser()
+    End Sub
+
+    Function FillPanWithServer()
+        PanServerListe.Controls.Clear()
+
+        Dim i As Integer = 0
+
+        For Each Server As String In Class1.TerminalServerList
+            Dim usrcntrl As New uscntr_TSServer
+            usrcntrl.btnServer.Text = Server
+            usrcntrl.Location = New Point(0, i * usrcntrl.Height)
+            i = i + 1
+            PanServerListe.Controls.Add(usrcntrl)
+            AddHandler usrcntrl.btnServer.Click, Function()
+                                                     UpdateSelectedServerList()
+                                                 End Function
+
+        Next
+    End Function
+
+    Sub UpdateSelectedServerList()
+        recserver.Clear()
+        For Each uc As uscntr_TSServer In PanServerListe.Controls
+            If uc.selected Then
+                ' LabelInfo.Text &= uc.btnServer.Text & vbCrLf
+                recserver.Add(uc.btnServer.Text)
+            End If
+        Next
+    End Sub
+
+    Private Sub cmdVorschau_Click(sender As Object, e As EventArgs) Handles cmdVorschau.Click
+        If SingleUserRec = True Then
+            MsgBox("msg" & msgfin)
+        Else
+            For Each srv As String In recserver
+                MsgBox(String.Format(msg, "*", srv, TextBox1.Text))
+            Next
+        End If
+    End Sub
+
+    Function SelectUniUser()    'wenn nur ein Empfänger
+        If recuser.BenutzerAnmeldeName.Length > 0 Then
+            SingleUserRec = True
+            recuser.genNameKurz()
+            LabelInfo.Text = String.Format(msg, recuser.NameKurz, recuser.TSServer, "Das ist ein Test!")
+            For Each uc As uscntr_TSServer In PanServerListe.Controls
+                If uc.btnServer.Text = recuser.TSServer Then uc.btnServer.PerformClick()
+                uc.btnServer.Enabled = False
+            Next
+        End If
+    End Function
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        If SingleUserRec = True Then
+            msgfin = String.Format(msg, recuser.NameKurz, recuser.TSServer, TextBox1.Text)
+        Else
+            msgfin = String.Format(msg, "*", recserver(0), TextBox1.Text)
+        End If
+        LabelInfo.Text = "msg" & msgfin
+    End Sub
+
+    Private Sub cmdSenden_Click(sender As Object, e As EventArgs) Handles cmdSenden.Click
+        If MsgBox("Nachricht senden?", MsgBoxStyle.OkCancel, "Senden?") = MsgBoxResult.Ok Then
+            If SingleUserRec = True Then
+                Ext_Programme.msgsend(msgfin)
+            Else
+                For Each srv As String In recserver
+                    Ext_Programme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
+                Next
+            End If
+        End If
+    End Sub
+End Class