Chat Problem behoben (Timer/Variable)

This commit is contained in:
2024-03-20 21:59:18 +01:00
parent 2a28f7e827
commit 53108d870b
2 changed files with 7 additions and 4 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.7.9")>
<Assembly: AssemblyFileVersion("3.9.7.9")>
<Assembly: AssemblyVersion("3.9.8.1")>
<Assembly: AssemblyFileVersion("3.9.8.1")>

View File

@@ -4087,10 +4087,13 @@ Public Class frmHauptfenster
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False 'NEUE NACHTICHTEN
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
Label20.Text = newMsg
Label20.Text = newMsg.ToString
Label20.Visible = (newMsg > 0)
If newMsg Then
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN
If newMsg > 0 Then
Me.Icon = My.Resources.avisoNewMsg
Dim isshown = False