86 lines
3.1 KiB
VB.net
86 lines
3.1 KiB
VB.net
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
|