Chat Problem

This commit is contained in:
2024-03-20 22:00:46 +01:00
parent 6a47325b82
commit 8c7eb4751e
3 changed files with 265 additions and 254 deletions

View File

@@ -1,6 +1,7 @@
Imports System.Drawing
Imports System.IO
Imports System.Reflection
Imports System.Security.Policy
Imports System.Threading
Imports System.Web.UI.WebControls.WebParts
Imports System.Windows.Forms
@@ -89,7 +90,7 @@ Public Class frmMessenger
VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyFlowLayoutPanel1)
rtbChatMessage.AllowDrop = True
MSG_LISTENDER.START()
TimerNEW_MESSAGE.Enabled = True
' TimerNEW_MESSAGE.Enabled = True
SplitContainer3.SplitterDistance = 220
SplitContainer3.Panel1Collapsed = True
@@ -594,6 +595,7 @@ Public Class frmMessenger
Try
If CHAT IsNot Nothing Then
CHAT.LOAD_MESSAGES(topMessages)
' CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(dgvChats.SelectedRows(0).Cells("chat_id").Value)
@@ -628,6 +630,7 @@ Public Class frmMessenger
'Dim CHAT_ITEM As New usrCntlMessenger_ChatElement(MSG)
'checkUsrId(MSG, CHAT_ITEM)
''CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
''CHAT_ITEM.lblName.Text = MSG.chatMg_maId
'MyFlowLayoutPanel1.Controls.Add(CHAT_ITEM)