Anzeige inaktive Chats

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb

@@ -51,6 +51,7 @@ Partial Class frmMessenger
         Me.Button9 = New System.Windows.Forms.Button()
         Me.btnTEST = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
         Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
@@ -226,6 +227,7 @@ Partial Class frmMessenger
         '
         'Panel6
         '
+        Me.Panel6.Controls.Add(Me.lblLKWChat_MsgCntInaktiv)
         Me.Panel6.Controls.Add(Me.cbxInaktiveChats)
         Me.Panel6.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel6.Location = New System.Drawing.Point(0, 773)
@@ -236,7 +238,7 @@ Partial Class frmMessenger
         'cbxInaktiveChats
         '
         Me.cbxInaktiveChats.AutoSize = True
-        Me.cbxInaktiveChats.Location = New System.Drawing.Point(9, 3)
+        Me.cbxInaktiveChats.Location = New System.Drawing.Point(8, 3)
         Me.cbxInaktiveChats.Name = "cbxInaktiveChats"
         Me.cbxInaktiveChats.Size = New System.Drawing.Size(93, 17)
         Me.cbxInaktiveChats.TabIndex = 7
@@ -396,10 +398,24 @@ Partial Class frmMessenger
         Me.Panel2.Size = New System.Drawing.Size(275, 23)
         Me.Panel2.TabIndex = 6
         '
+        'lblLKWChat_MsgCntInaktiv
+        '
+        Me.lblLKWChat_MsgCntInaktiv.BackColor = System.Drawing.Color.Red
+        Me.lblLKWChat_MsgCntInaktiv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.lblLKWChat_MsgCntInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
+        Me.lblLKWChat_MsgCntInaktiv.ForeColor = System.Drawing.Color.White
+        Me.lblLKWChat_MsgCntInaktiv.Location = New System.Drawing.Point(104, -1)
+        Me.lblLKWChat_MsgCntInaktiv.Name = "lblLKWChat_MsgCntInaktiv"
+        Me.lblLKWChat_MsgCntInaktiv.Size = New System.Drawing.Size(26, 23)
+        Me.lblLKWChat_MsgCntInaktiv.TabIndex = 106
+        Me.lblLKWChat_MsgCntInaktiv.Text = "99"
+        Me.lblLKWChat_MsgCntInaktiv.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblLKWChat_MsgCntInaktiv.Visible = False
+        '
         'cbxInaktiveChatsSpecial
         '
         Me.cbxInaktiveChatsSpecial.AutoSize = True
-        Me.cbxInaktiveChatsSpecial.Location = New System.Drawing.Point(9, 5)
+        Me.cbxInaktiveChatsSpecial.Location = New System.Drawing.Point(8, 5)
         Me.cbxInaktiveChatsSpecial.Name = "cbxInaktiveChatsSpecial"
         Me.cbxInaktiveChatsSpecial.Size = New System.Drawing.Size(93, 17)
         Me.cbxInaktiveChatsSpecial.TabIndex = 7
@@ -1068,4 +1084,5 @@ Partial Class frmMessenger
     Friend WithEvents UsrCntlChat_Art_Btn_MACHAT As usrCntlChat_Art_Btn
     Friend WithEvents UsrCntlChat_Art_Btn_LKWCHAT As usrCntlChat_Art_Btn
     Friend WithEvents UsrCntlChat_Art_Btn_SNDCHAT As usrCntlChat_Art_Btn
+    Friend WithEvents lblLKWChat_MsgCntInaktiv As Label
 End Class

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