neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -7,6 +7,7 @@ Public Class frmMessenger
     Dim CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing
     Dim MSG_LISTENDER As New cMessangerListender
     Dim topMessages As String = "20"
+    Dim topMessagesDateHistory As Object = Nothing
     Dim loaded = False
     Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
     Public EMOJI_PATH = ""
@@ -250,9 +251,10 @@ Public Class frmMessenger
 
     Private Sub dgvChats_SelectionChanged(sender As Object, e As EventArgs) Handles dgvChats.SelectionChanged
         If Not loaded Then Exit Sub
+        topMessagesDateHistory = Nothing ' zurücksetzen des HistoryDate
         MyFlowLayoutPanel1.Controls.Clear()
         If dgvChats.SelectedRows.Count > 0 Then
-            CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, topMessages)
+            CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, topMessages, topMessagesDateHistory)
             SplitContainer1.Enabled = True
             RELOAD_CHAT()
         End If
@@ -849,6 +851,17 @@ Public Class frmMessenger
         intiDGVChats(, False, True)
     End Sub
 
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Dim dateTmp = InputBox("Bitte geben Sie das Datum ein, ab dem der Chat dargestellt werden soll:",, Now.AddMonths(-1).ToShortDateString)
+        If IsDate(dateTmp) Then
+            topMessagesDateHistory = CDate(dateTmp)
+            CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value, 1, topMessagesDateHistory)
+            RELOAD_CHAT()
+        Else
+            MsgBox("Datum ungültig!")
+        End If
+    End Sub
+
 
 
     'Private Sub rtbChatMessage_TextChanged(sender As Object, e As EventArgs) Handles rtbChatMessage.TextChanged