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