20200108

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb

@@ -0,0 +1,37 @@
+Imports System.Drawing
+
+Public Class usrCntlMessenger_ChatElement
+    Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
+    'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
+
+    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_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.CHAT_MSG = CHAT_MSG
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Sub setBgCOLOR(BG_COLOR)
+        ' Me.BG_COLOR = BG_COLOR
+        txtChatmessage.BackColor = BG_COLOR
+        Panel1.BackColor = BG_COLOR
+    End Sub
+
+    Private Sub usrCntlMessenger_ChatElement_Load(sender As Object, e As EventArgs) Handles Me.Load
+        ' setBgCOLOR(Color.Azure)
+        If CHAT_MSG IsNot Nothing Then
+            lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
+            lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
+        End If
+    End Sub
+End Class