neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb

@@ -3,10 +3,29 @@
 Public Class frmMessenger_NeuerChat
 
     Dim SQL As New SQL
-
+    Dim CHAT As cMessenger.cMessenger_Chat = Nothing
     Dim loaded = False
     Public chat_id As Integer = -1
 
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(CHAT As cMessenger.cMessenger_Chat)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.CHAT = CHAT
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
     Sub initDGV()
         If Not loaded Then Exit Sub
         With dgvMitarbeiter
@@ -36,7 +55,12 @@ Public Class frmMessenger_NeuerChat
         MyComboBox1.changeItem("")
         loaded = True
         initDGV()
-
+        If CHAT IsNot Nothing Then
+            Me.Text = "Neue Benutzer hinzufügen"
+            Me.MyTextBox2.Text = CHAT.chat_name
+            Me.MyTextBox2.Enabled = False
+            btn.Text = "Hinzufügen"
+        End If
     End Sub
 
     Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
@@ -91,37 +115,52 @@ Public Class frmMessenger_NeuerChat
 
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
-
-        If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
-            MsgBox("Chat-Name eingeben!")
-            Exit Sub
-        End If
         If dgvChatMembers.Rows.Count = 0 Then
             MsgBox("Mitglieder eingeben!")
             Exit Sub
         End If
 
-        Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
+        If CHAT IsNot Nothing Then
 
-        Dim MB_LIST As New List(Of Integer)
-        For Each r As DataGridViewRow In dgvChatMembers.Rows
-            MB_LIST.Add(r.Cells("clmnMaId").Value)
-        Next
-        If chatName = "" And MB_LIST.Count = 1 Then
-            If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
-                If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then
-                    Me.DialogResult = DialogResult.OK
-                    Me.Close()
-                    Exit Sub
+            For Each r As DataGridViewRow In dgvChatMembers.Rows
+                Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, r.Cells("clmnMaId").Value)
+                MB.chatMb_maId = r.Cells("clmnMaId").Value
+                CHAT.CHAT_MEMBERS.Add(MB)
+            Next
+
+            If CHAT.SAVE_MEMBERS Then
+                Me.Close()
+            End If
+
+        Else
+
+            If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
+                MsgBox("Chat-Name eingeben!")
+                Exit Sub
+            End If
+
+            Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
+
+            Dim MB_LIST As New List(Of Integer)
+            For Each r As DataGridViewRow In dgvChatMembers.Rows
+                MB_LIST.Add(r.Cells("clmnMaId").Value)
+            Next
+            If chatName = "" And MB_LIST.Count = 1 Then
+                If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
+                    If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then
+                        Me.DialogResult = DialogResult.OK
+                        Me.Close()
+                        Exit Sub
+                    End If
                 End If
             End If
-        End If
-        MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
+            MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
 
-        Dim CHAT As cMessenger.cMessenger_Chat = Nothing
-        If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
-            If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
-            Me.Close()
+            Dim CHAT As cMessenger.cMessenger_Chat = Nothing
+            If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
+                If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
+                Me.Close()
+            End If
         End If
 
     End Sub