Messenger Bugfix, Mahnungen für Verag360, etc.

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -5,7 +5,6 @@ Imports System.Security.Policy
 Imports System.Threading
 Imports System.Web.UI.WebControls.WebParts
 Imports System.Windows.Forms
-Imports Util
 Imports VERAG_PROG_ALLGEMEIN.cMessenger
 
 Public Class frmMessenger
@@ -21,6 +20,7 @@ Public Class frmMessenger
     Public SendungID As Integer = -1
 
     Dim alloweasteregg = False
+    Dim hiddemEmojis = False
 
     Dim toggle_CHAT_ART = "CHAT"
     Public Sub New()
@@ -123,6 +123,7 @@ Public Class frmMessenger
         MyFlowLayoutPanel1.Controls.Clear()
         'loaded = True
         alloweasteregg = cAllgemein.MITARBEITER.mit_ChatEasteregg
+        hiddemEmojis = cAllgemein.MITARBEITER.mit_ChatEasteregg2
         initEmojis()
         VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
     End Sub
@@ -131,8 +132,6 @@ Public Class frmMessenger
         FlowLayoutPanel.Controls.Clear()
         If alloweasteregg Then pic.Visible = False
 
-
-
         ' If IO.Directory.Exists(My.Application.roo "") Then
 
         Dim spezialEmoji = False
@@ -140,24 +139,27 @@ Public Class frmMessenger
 
         If IO.Directory.Exists(EMOJI_PATH) Then
             For Each aa In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
-                If alloweasteregg Or Not aa.Contains("easteregg") Then
+                If (alloweasteregg Or Not aa.Contains("easteregg")) Then
                     If IO.File.Exists(aa) And aa.Contains(".png") And (aa.Contains("emoji_") Or spezialEmoji) Then
+                        If hiddemEmojis Or Not aa.Contains("_hidden") Then
+                            Dim p As New PictureBox
+                            p.Size = New Size(40, 40)
+                            p.BackgroundImage = Image.FromFile(aa)
+                            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(aa)
+                                                    End If
+                                                End Sub
 
-                        Dim p As New PictureBox
-                        p.Size = New Size(40, 40)
-                        p.BackgroundImage = Image.FromFile(aa)
-                        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(aa)
-                                                End If
-                                            End Sub
+                            FlowLayoutPanel.Controls.Add(p)
+                        End If
 
-                        FlowLayoutPanel.Controls.Add(p)
                     End If
                 End If
+
                 'MsgBox(a)
             Next
         End If