Chat etc.

Dokumentation/uscntr_SendMSG.vb

@@ -16,18 +16,21 @@
         PanServerListe.Controls.Clear()
 
         Dim i As Integer = 0
+        Dim h 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
+            h = i * usrcntrl.Height
             PanServerListe.Controls.Add(usrcntrl)
             AddHandler usrcntrl.btnServer.Click, Function()
                                                      UpdateSelectedServerList()
                                                  End Function
 
         Next
+        Me.Height = h + 100
     End Function
 
     Sub UpdateSelectedServerList()
@@ -74,10 +77,10 @@
     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)
+                cExtProgramme.msgsend(msgfin)
             Else
                 For Each srv As String In recserver
-                    Ext_Programme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
+                    cExtProgramme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
                     Threading.Thread.Sleep(3000)
                 Next
             End If