edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen Rechnugen, Chat, cAllgemeint

Browse Source
This commit is contained in:
d.breimaier
2024-09-30 14:11:36 +02:00
parent d0c24e7ac0
commit a5921c5faf
9 changed files with 106 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb
View File

@@ -1,4 +1,5 @@
Imports System.Drawing
Imports System.IO
Public Class usrCntlMessenger_ChatEmoji
Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
@@ -43,11 +44,20 @@ Public Class usrCntlMessenger_ChatEmoji
' txtChatmessage.Text = CHAT_MSG.chatMg_text
Dim imgPath = CHAT_MSG.chatMg_text
Dim filename = New FileInfo(imgPath).Name
Dim imgPathLocal = imgPath.Replace(filename, "")
Try
'Dim frmM As frmMessenger = DirectCast(Me.Parent, frmMessenger)
If frmM.EMOJI_PATH <> frmM.EMOJI_PATH_MAIN Then
If System.IO.File.Exists(imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)) Then
imgPath = imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)
'If frmM.EMOJI_PATH_LOCAL <> frmM.EMOJI_PATH_MAIN Then
' If System.IO.File.Exists(imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH_LOCAL)) Then
' imgPath = imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH_LOCAL)
' ' End If
'End If
If frmM.EMOJI_PATH_LOCAL <> imgPathLocal Then
If System.IO.File.Exists(imgPath.Replace(imgPathLocal, frmM.EMOJI_PATH_LOCAL)) Then
imgPath = imgPath.Replace(imgPathLocal, frmM.EMOJI_PATH_LOCAL)
End If
End If
Catch ex As Exception