neu

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb

@@ -3,7 +3,7 @@
 Public Class usrCntlMessenger_ChatEmoji
     Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
     Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
-
+    Dim frmM As frmMessenger
     'Public FI As String = ""
 
     Sub New()
@@ -15,13 +15,13 @@ Public Class usrCntlMessenger_ChatEmoji
 
     End Sub
 
-    Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
+    Sub New(frmM As frmMessenger, 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.
-
+        Me.frmM = frmM
     End Sub
     Sub setBgCOLOR(BG_COLOR)
         ' Me.BG_COLOR = BG_COLOR
@@ -36,9 +36,21 @@ Public Class usrCntlMessenger_ChatEmoji
     Sub init()
         If CHAT_MSG IsNot Nothing Then
             ' txtChatmessage.Text = CHAT_MSG.chatMg_text
-            Try
 
-                pic.BackgroundImage = Image.FromFile(CHAT_MSG.chatMg_text)
+            Dim imgPath = CHAT_MSG.chatMg_text
+            Try
+                'Dim frmM As frmMessenger = DirectCast(Me.Parent, frmMessenger)
+                If frmM.EMOJI_PATH <> frmM.EMOJI_PATH_MAIN Then
+                    If IO.File.Exists(imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)) Then
+                        imgPath = imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)
+                    End If
+                End If
+            Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+            End Try
+
+            Try
+                pic.BackgroundImage = Image.FromFile(imgPath)
                 pic.BackgroundImageLayout = Windows.Forms.ImageLayout.Zoom
             Catch ex As Exception
                 '  MsgBox(ex.Message & ex.StackTrace)