Chat, divers

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementUmfrage.vb

@@ -0,0 +1,79 @@
+Imports System.Drawing
+
+Public Class usrCntlMessenger_ChatElementUmfrage
+    Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
+    'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
+    Dim ttp As New System.Windows.Forms.ToolTip
+
+    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
+            If CHAT_MSG.chatMg_type.Contains("DEL_") Then
+                txtChatmessage.Text = "*gelöscht"
+            Else
+
+                lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
+                lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
+                txtChatmessage.Text = CHAT_MSG.chatMg_text
+                Dim cnt = 0
+                While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
+                    Me.Height += 20 : cnt += 1
+                End While
+                setRead()
+
+            End If
+        End If
+
+    End Sub
+
+    Sub setRead()
+        For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
+            If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+                lblNewMsg.Visible = Not ST.chatMgSt_gelesen
+                btnBestaetigen.Enabled = Not ST.chatMgSt_bestaetigt
+            End If
+        Next
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnBestaetigen.Click
+
+        Dim OPT = ""
+        For Each o In FlowLayoutPanel.Controls
+            If o.GetType.ToString = GetType(usrCntlMessenger_ChatElementUmfrage_Option).ToString Then
+                Dim usctlOPT = DirectCast(o, usrCntlMessenger_ChatElementUmfrage_Option)
+                If usctlOPT.cbxOPT.Checked Then
+                    OPT = usctlOPT.cbxOPT.Text & ";"
+                End If
+            End If
+        Next
+        If OPT.EndsWith(";") Then OPT = OPT.Substring(0, OPT.Length - 1)
+
+        If cMessenger.cMessenger_ChatMessageStatus.STATUS_BESTAETIGEN(CHAT_MSG.chatMg_chatId, True, OPT) Then
+            CHAT_MSG.LOAD_STATUS()
+            setRead()
+        End If
+    End Sub
+End Class