neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb

@@ -30,6 +30,10 @@ Public Class frmMessenger_Members
 
     Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
         initDGV()
+        If CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = 4 Then
+            Button1.Visible = True
+            Button2.Visible = True
+        End If
     End Sub
 
     Private Sub dgvChatMembers_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellDoubleClick, dgvChatMembers.CellContentDoubleClick
@@ -40,4 +44,30 @@ Public Class frmMessenger_Members
         End If
     End Sub
 
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim f As New frmMessenger_NeuerChat(CHAT)
+        f.ShowDialog()
+        initDGV()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If dgvChatMembers.SelectedRows.Count > 1 Then
+            Dim ol As New List(Of Object)
+            For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
+                If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+                    For Each MB In CHAT.CHAT_MEMBERS
+                        If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
+                            ol.Add(MB)
+                        End If
+                    Next
+                End If
+            Next
+            For Each o In ol
+                CHAT.CHAT_MEMBERS.Remove(o)
+                If CHAT.SAVE_MEMBERS() Then
+                    initDGV()
+                End If
+            Next
+        End If
+    End Sub
 End Class