neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -8,6 +8,9 @@ Public Class frmMessenger
     Dim MSG_LISTENDER As New cMessangerListender
     Dim topMessages As String = "20"
     Dim loaded = False
+
+    Dim alloweasteregg = False
+
     Public Sub New()
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -42,8 +45,38 @@ Public Class frmMessenger
         End If
         MyFlowLayoutPanel1.Controls.Clear()
         'loaded = True
+        alloweasteregg = cAllgemein.MITARBEITER.mit_ChatEasteregg
+        initEmojis()
     End Sub
 
+    Sub initEmojis()
+        FlowLayoutPanel.Controls.Clear()
+        If alloweasteregg Then pic.Visible = False
+
+        If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
+            For Each a In IO.Directory.GetFiles(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") '.OrderBy(Function(f) f)
+                If alloweasteregg Or Not a.Contains("easteregg") Then
+                    If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
+
+                        Dim p As New PictureBox
+                        p.Size = New Size(40, 40)
+                        p.BackgroundImage = Image.FromFile(a)
+                        p.BackgroundImageLayout = ImageLayout.Zoom
+                        p.Cursor = Cursors.Hand
+                        AddHandler p.Click, Sub()
+                                                If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
+                                                If CHAT IsNot Nothing Then
+                                                    saveEmoji(a)
+                                                End If
+                                            End Sub
+
+                        FlowLayoutPanel.Controls.Add(p)
+                    End If
+                End If
+                'MsgBox(a)
+            Next
+        End If
+    End Sub
     Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True)
         With dgvChats
 
@@ -171,6 +204,16 @@ Public Class frmMessenger
                 'CHAT_ITEM.lblName.Text = MSG.chatMg_maId
                 Return (CHAT_ITEM)
 
+            Case "EMOJI"
+
+
+                Dim CHAT_ITEM As New usrCntlMessenger_ChatEmoji(MSG)
+                checkUsrId(MSG, CHAT_ITEM)
+                '   CHAT_ITEM.path = MSG.chatMg_text
+                ' CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
+                'CHAT_ITEM.lblName.Text = MSG.chatMg_maId
+                Return (CHAT_ITEM)
+
         End Select
     End Function
 
@@ -193,6 +236,10 @@ Public Class frmMessenger
                                 If DirectCast(I, usrCntlMessenger_ChatAnhang).CHAT_MSG.chatMg_id = MSG.chatMg_id Then
                                     found = True
                                 End If
+                            Case GetType(usrCntlMessenger_ChatEmoji).ToString
+                                If DirectCast(I, usrCntlMessenger_ChatEmoji).CHAT_MSG.chatMg_id = MSG.chatMg_id Then
+                                    found = True
+                                End If
                         End Select
 
                     Next
@@ -248,7 +295,16 @@ Public Class frmMessenger
             CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192))
         End If
     End Sub
-
+    Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatEmoji)
+        If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+            CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0)
+            'CHAT_ITEM.Left = (MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30)
+            'CHAT_ITEM.Anchor = AnchorStyles.None
+            'CHAT_ITEM.Dock = DockStyle.Right
+            ' CHAT_ITEM.Dock = DockStyle.Right
+            CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192))
+        End If
+    End Sub
     Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatAnhang)
         If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
             CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0)
@@ -291,6 +347,8 @@ Public Class frmMessenger
                     DirectCast(u, usrCntlMessenger_ChatElement).lblNewMsg.Visible = False
                 Case GetType(usrCntlMessenger_ChatAnhang).ToString
                     DirectCast(u, usrCntlMessenger_ChatAnhang).lblNewMsg.Visible = False
+                Case GetType(usrCntlMessenger_ChatEmoji).ToString
+                    DirectCast(u, usrCntlMessenger_ChatEmoji).lblNewMsg.Visible = False
             End Select
         Next
     End Sub
@@ -500,6 +558,28 @@ Public Class frmMessenger
             End If
         End If
     End Sub
+    Sub saveEmoji(filePath)
+        '  Dim fileName = New IO.FileInfo(filePath).Name
+        'Dim docId = -1
+        'If saveToDS(fileName, filePath, docId) Then
+
+        Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+        MSG.chatMg_type = "EMOJI"
+        MSG.chatMg_text = filePath
+        'MSG.chatMg_anhang_docId = docId
+        MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
+        MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+        If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
+            SEND_TOKEN_NEW_MESSAGE()
+            ' CHAT.CHAT_MESSAGES.Add(MSG)
+            SET_ALL_READ()
+            REFRESH_CHAT()
+            'rtbChatMessage.Text = filePath
+            'rtbChatMessage.Focus()
+        End If
+        '  End If
+    End Sub
     Public Shared Function saveToDS(fileName, sourcePath, Optional ByRef da_id = -1) As Boolean
         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CHAT_ANHAENGE", Now.ToString("ddMMyy_HHmmss.ffff"), "", "", fileName, -1, False)
         If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
@@ -562,4 +642,28 @@ Public Class frmMessenger
             MsgBox("   FEHLER: DaagDrop!" & ex.Message & ex.StackTrace)
         End Try
     End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        If InputBox("Whoami?", "¿").ToLower = "easteregg" Then
+            cMitarbeiter.UPDATE_EASTEREGG(True)
+            cAllgemein.MITARBEITER.LOAD(cAllgemein.USRID)
+
+            alloweasteregg = True
+            initEmojis()
+            MsgBox("Hurra! Neue Emojis freigeschaltet!")
+        End If
+    End Sub
+
+    Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseEnter
+        pic.BackgroundImage = My.Resources.easteregg
+    End Sub
+
+    Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
+        pic.BackgroundImage = Nothing
+
+    End Sub
+
+    'Private Sub rtbChatMessage_TextChanged(sender As Object, e As EventArgs) Handles rtbChatMessage.TextChanged
+    '    FlowLayoutPanel.Enabled = (rtbChatMessage.Text = "")
+    'End Sub
 End Class