neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb

@@ -62,6 +62,7 @@ Partial Class frmMessenger
         Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
         Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Button4 = New System.Windows.Forms.Button()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -399,6 +400,7 @@ Partial Class frmMessenger
         'pnl
         '
         Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.Controls.Add(Me.Button4)
         Me.pnl.Controls.Add(Me.pic)
         Me.pnl.Controls.Add(Me.FlowLayoutPanel)
         Me.pnl.Controls.Add(Me.Button3)
@@ -414,9 +416,9 @@ Partial Class frmMessenger
         '
         Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.pic.Location = New System.Drawing.Point(489, 94)
+        Me.pic.Location = New System.Drawing.Point(10, 255)
         Me.pic.Name = "pic"
-        Me.pic.Size = New System.Drawing.Size(49, 26)
+        Me.pic.Size = New System.Drawing.Size(524, 20)
         Me.pic.TabIndex = 7
         Me.pic.TabStop = False
         Me.pic.WaitOnLoad = True
@@ -437,7 +439,7 @@ Partial Class frmMessenger
         Me.Button3.BackColor = System.Drawing.Color.SteelBlue
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.ForeColor = System.Drawing.Color.White
-        Me.Button3.Location = New System.Drawing.Point(461, 47)
+        Me.Button3.Location = New System.Drawing.Point(461, 44)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(76, 40)
         Me.Button3.TabIndex = 2
@@ -488,6 +490,18 @@ Partial Class frmMessenger
         Me.ChatDeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
         Me.ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren"
         '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.SteelBlue
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.White
+        Me.Button4.Location = New System.Drawing.Point(462, 90)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(76, 25)
+        Me.Button4.TabIndex = 8
+        Me.Button4.Text = "Chat History"
+        Me.Button4.UseVisualStyleBackColor = False
+        '
         'frmMessenger
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -554,4 +568,5 @@ Partial Class frmMessenger
     Friend WithEvents Button5 As Button
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents MyTextBox1 As MyTextBox
+    Friend WithEvents Button4 As Button
 End Class

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