neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb

@@ -0,0 +1,34 @@
+Imports System.Windows.Forms
+
+Public Class frmMessenger_Members
+
+    Dim SQL As New SQL
+    Dim CHAT As New cMessenger.cMessenger_Chat
+
+    Dim loaded = False
+    Public chat_id As Integer = -1
+
+    Sub New(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()
+        With dgvChatMembers
+            .Rows.Clear()
+
+            For Each MB In CHAT.CHAT_MEMBERS
+                Dim MA As New cMitarbeiter(MB.chatMb_maId)
+                .Rows.Add({"", MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
+            Next
+            .ClearSelection()
+        End With
+    End Sub
+
+    Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initDGV()
+    End Sub
+End Class