From d70a5875c5ad1243d7be0dfa7adf5f3d5469afae Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 22 Dec 2022 13:01:08 +0100 Subject: [PATCH] Anzeige inaktive Chats --- VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb | 4 ++++ .../Messenger/frmMessenger.Designer.vb | 21 +++++++++++++++-- .../Messenger/frmMessenger.vb | 23 +++++++++++++++++++ 3 files changed, 46 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb index eb39d488..3485b6d5 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb @@ -58,6 +58,10 @@ Public Class cMessenger If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_Chat on chat_id=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & maId & " AND chatMgSt_gelesen=0 AND chat_art='" & chat_art & "'", "ADMIN",,, 0) End Function + Public Shared Function GET_NewMSG_COUNT_ART_INAKTIV(maId, chat_art) As Integer + If maId < 0 Then maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + Return SQL.getValueTxtBySql("SELECT isnull(COUNT(*),0) FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_Chat on chat_id=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chatMgSt_MaId=" & maId & " AND chatMgSt_gelesen=0 AND chat_aktiv=0 AND chat_art='" & chat_art & "'", "ADMIN",,, 0) + End Function Public Shared Function GET_NewMSG_COUNT_AVISOID(AvisoId As Integer) As Integer Dim chat_id = SQL.DLookup("chat_id", "tblMessenger_ChatMembers inner join tblMessenger_Chat on chat_id=chatMb_chatId", "chat_AvisoId='" & AvisoId & "' and [chatMb_maId]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'", "ADMIN", -1) diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index 600e7861..052449fe 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index f5999526..7a27c7f7 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/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 \ No newline at end of file