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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb
View File

@@ -5,6 +5,7 @@ Public Class usrCntlMessenger_ChatEmoji
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
Dim frmM As frmMessenger
'Public FI As String = ""
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
@@ -29,40 +30,52 @@ Public Class usrCntlMessenger_ChatEmoji
Panel1.BackColor = BG_COLOR
End Sub
Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load
Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ttp.SetToolTip(lblDel, "Element innerhalb 60 Sek. löschen")
init()
End Sub
Sub init()
If CHAT_MSG IsNot Nothing Then
' txtChatmessage.Text = CHAT_MSG.chatMg_text
If CHAT_MSG.chatMg_type.Contains("DEL_") Then
pic.Visible = False
Else
' txtChatmessage.Text = 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)
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)
End Try
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
Dim cnt = 0
setRead()
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Timer1.Enabled = True
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)
End Try
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
Dim cnt = 0
setRead()
End If
End If
End Sub
@@ -81,5 +94,22 @@ Public Class usrCntlMessenger_ChatEmoji
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Else
lblDel.Visible = False
Timer1.Enabled = False
End If
End If
End If
End Sub
Private Sub lblDel_Click(sender As Object, e As EventArgs) Handles lblDel.Click
CHAT_MSG.DELETE_MESSAGE()
usrCntlMessenger_ChatAnhang_Load(Me, New EventArgs)
lblDel.Visible = False
End Sub
End Class