Anzeige inaktive Chats

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -205,6 +205,7 @@ Public Class frmMessenger
 
     Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False)
 
+
         Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_ART(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, "CHAT")
         UsrCntlChat_Art_Btn_MACHAT.setCnt(newMsg)
 
@@ -214,6 +215,11 @@ Public Class frmMessenger
         Dim newMsgSND = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_ART(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, "SND_CHAT")
         UsrCntlChat_Art_Btn_SNDCHAT.setCnt(newMsgSND)
 
+        'Anzeige, wenn inaktive Chats:
+        Dim newMsgLKW_Inaktiv = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_ART_INAKTIV(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, toggle_CHAT_ART)
+        lblLKWChat_MsgCntInaktiv.Text = newMsgLKW_Inaktiv
+        lblLKWChat_MsgCntInaktiv.Visible = (newMsgLKW_Inaktiv > 0)
+
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein._LAN
             Case "DE"
@@ -1269,6 +1275,9 @@ Public Class frmMessenger
 
         Me.toggle_CHAT_ART = CHAT_ART
         intiDGVChats()
+
+
+
         loaded = True
     End Sub
 
@@ -1286,5 +1295,19 @@ Public Class frmMessenger
         sender.setAktiv()
     End Sub
 
+    Private Sub UsrCntlChat_Art_Btn1_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_MACHAT.CLICKED
 
+    End Sub
+
+    Private Sub UsrCntlChat_Art_Btn2_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_LKWCHAT.CLICKED
+
+    End Sub
+
+    Private Sub UsrCntlChat_Art_Btn_LKWCHAT_Load(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED
+
+    End Sub
 End Class