edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chat Problem

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-20 22:00:46 +01:00
parent 6a47325b82
commit 8c7eb4751e
3 changed files with 265 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

504
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,6 +24,10 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -32,20 +36,14 @@ Partial Class frmMessenger
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button()
@@ -55,17 +53,11 @@ Partial Class frmMessenger
Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.lbl = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button()
Me.Panel4 = New System.Windows.Forms.Panel()
@@ -77,10 +69,6 @@ Partial Class frmMessenger
Me.pnlTeilnehmer = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.Panel9 = New System.Windows.Forms.Panel()
@@ -92,15 +80,28 @@ Partial Class frmMessenger
Me.btnSendAtt = New System.Windows.Forms.Button()
Me.btnSenden = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
Me.Timer_REFRESH = New System.Windows.Forms.Timer()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
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.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -109,9 +110,7 @@ Partial Class frmMessenger
Me.SplitContainer2.Panel1.SuspendLayout()
Me.SplitContainer2.Panel2.SuspendLayout()
Me.SplitContainer2.SuspendLayout()
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel6.SuspendLayout()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel5.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
@@ -122,7 +121,6 @@ Partial Class frmMessenger
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -135,6 +133,9 @@ Partial Class frmMessenger
Me.Panel9.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxt.SuspendLayout()
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer
@@ -181,53 +182,6 @@ Partial Class frmMessenger
Me.SplitContainer2.SplitterWidth = 3
Me.SplitContainer2.TabIndex = 8
'
'dgvChats
'
Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvChats.AllowUserToAddRows = False
Me.dgvChats.AllowUserToDeleteRows = False
Me.dgvChats.AllowUserToResizeColumns = False
Me.dgvChats.AllowUserToResizeRows = False
Me.dgvChats.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChats.ColumnHeadersVisible = False
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvChats.Location = New System.Drawing.Point(0, 0)
Me.dgvChats.Name = "dgvChats"
Me.dgvChats.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvChats.RowHeadersVisible = False
Me.dgvChats.RowHeadersWidth = 62
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvChats.RowTemplate.Height = 30
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChats.Size = New System.Drawing.Size(275, 739)
Me.dgvChats.TabIndex = 0
'
'Panel6
'
Me.Panel6.Controls.Add(Me.Label3)
@@ -272,53 +226,6 @@ Partial Class frmMessenger
Me.cbxInaktiveChats.Text = "inaktive Chats"
Me.cbxInaktiveChats.UseVisualStyleBackColor = True
'
'DGVSonstige
'
Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1
Me.DGVSonstige.AllowUserToAddRows = False
Me.DGVSonstige.AllowUserToDeleteRows = False
Me.DGVSonstige.AllowUserToResizeColumns = False
Me.DGVSonstige.AllowUserToResizeRows = False
Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DGVSonstige.ColumnHeadersVisible = False
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
Me.DGVSonstige.Name = "DGVSonstige"
Me.DGVSonstige.ReadOnly = True
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.DGVSonstige.RowHeadersVisible = False
Me.DGVSonstige.RowHeadersWidth = 62
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
Me.DGVSonstige.RowTemplate.Height = 30
Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
Me.DGVSonstige.TabIndex = 1
'
'Panel5
'
Me.Panel5.BackColor = System.Drawing.Color.White
@@ -333,30 +240,6 @@ Partial Class frmMessenger
Me.Panel5.Size = New System.Drawing.Size(150, 63)
Me.Panel5.TabIndex = 2
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._numbersOnlyTrennzeichen = True
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox2.TabIndex = 4
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search
@@ -462,60 +345,6 @@ Partial Class frmMessenger
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(275, 30)
Me.FlowLayoutPanel1.TabIndex = 10
'
'UsrCntlChat_Art_Btn_MACHAT
'
Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True
Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein"
Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT"
Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8
'
'UsrCntlChat_Art_Btn_LKWCHAT
'
Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9
'
'UsrCntlChat_Art_Btn_SNDCHAT
'
Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox1.TabIndex = 4
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search
@@ -581,28 +410,6 @@ Partial Class frmMessenger
Me.SplitContainer1.SplitterDistance = 600
Me.SplitContainer1.TabIndex = 0
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.AutoScroll = True
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White
Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'UsrCntlMessenger_ChatElement1
'
Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5)
Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1"
Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48)
Me.UsrCntlMessenger_ChatElement1.TabIndex = 4
Me.UsrCntlMessenger_ChatElement1.Visible = False
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.White
@@ -784,38 +591,6 @@ Partial Class frmMessenger
Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146)
Me.dgvChatMembers.TabIndex = 8
'
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.MinimumWidth = 8
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.ReadOnly = True
Me.clmnMaId.Visible = False
Me.clmnMaId.Width = 150
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.MinimumWidth = 8
Me.clmnName.Name = "clmnName"
Me.clmnName.ReadOnly = True
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.MinimumWidth = 8
Me.clmnFirma.Name = "clmnFirma"
Me.clmnFirma.ReadOnly = True
Me.clmnFirma.Width = 85
'
'clmnStatus
'
Me.clmnStatus.HeaderText = ""
Me.clmnStatus.Name = "clmnStatus"
Me.clmnStatus.ReadOnly = True
Me.clmnStatus.Width = 20
'
'Panel8
'
Me.Panel8.BackColor = System.Drawing.SystemColors.Control
@@ -946,6 +721,7 @@ Partial Class frmMessenger
'
'TimerNEW_MESSAGE
'
Me.TimerNEW_MESSAGE.Enabled = True
Me.TimerNEW_MESSAGE.Interval = 1000
'
'Timer_REFRESH
@@ -1005,6 +781,232 @@ Partial Class frmMessenger
Me.DataGridViewTextBoxColumn4.ReadOnly = True
Me.DataGridViewTextBoxColumn4.Width = 20
'
'dgvChats
'
Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvChats.AllowUserToAddRows = False
Me.dgvChats.AllowUserToDeleteRows = False
Me.dgvChats.AllowUserToResizeColumns = False
Me.dgvChats.AllowUserToResizeRows = False
Me.dgvChats.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChats.ColumnHeadersVisible = False
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvChats.Location = New System.Drawing.Point(0, 0)
Me.dgvChats.Name = "dgvChats"
Me.dgvChats.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvChats.RowHeadersVisible = False
Me.dgvChats.RowHeadersWidth = 62
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvChats.RowTemplate.Height = 30
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChats.Size = New System.Drawing.Size(275, 739)
Me.dgvChats.TabIndex = 0
'
'DGVSonstige
'
Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1
Me.DGVSonstige.AllowUserToAddRows = False
Me.DGVSonstige.AllowUserToDeleteRows = False
Me.DGVSonstige.AllowUserToResizeColumns = False
Me.DGVSonstige.AllowUserToResizeRows = False
Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DGVSonstige.ColumnHeadersVisible = False
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
Me.DGVSonstige.Name = "DGVSonstige"
Me.DGVSonstige.ReadOnly = True
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.DGVSonstige.RowHeadersVisible = False
Me.DGVSonstige.RowHeadersWidth = 62
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
Me.DGVSonstige.RowTemplate.Height = 30
Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
Me.DGVSonstige.TabIndex = 1
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._numbersOnlyTrennzeichen = True
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox2.TabIndex = 4
'
'UsrCntlChat_Art_Btn_MACHAT
'
Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True
Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein"
Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT"
Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8
'
'UsrCntlChat_Art_Btn_LKWCHAT
'
Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT"
Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9
'
'UsrCntlChat_Art_Btn_SNDCHAT
'
Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False
Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0)
Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT"
Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29)
Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(20, 40)
Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(250, 20)
Me.MyTextBox1.TabIndex = 4
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.AutoScroll = True
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White
Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'UsrCntlMessenger_ChatElement1
'
Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5)
Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1"
Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48)
Me.UsrCntlMessenger_ChatElement1.TabIndex = 4
Me.UsrCntlMessenger_ChatElement1.Visible = False
'
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.MinimumWidth = 8
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.ReadOnly = True
Me.clmnMaId.Visible = False
Me.clmnMaId.Width = 150
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.MinimumWidth = 8
Me.clmnName.Name = "clmnName"
Me.clmnName.ReadOnly = True
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.MinimumWidth = 8
Me.clmnFirma.Name = "clmnFirma"
Me.clmnFirma.ReadOnly = True
Me.clmnFirma.Width = 85
'
'clmnStatus
'
Me.clmnStatus.HeaderText = ""
Me.clmnStatus.Name = "clmnStatus"
Me.clmnStatus.ReadOnly = True
Me.clmnStatus.Width = 20
'
'frmMessenger
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1024,10 +1026,8 @@ Partial Class frmMessenger
Me.SplitContainer2.Panel2.ResumeLayout(False)
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2.ResumeLayout(False)
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel5.ResumeLayout(False)
Me.Panel5.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1041,7 +1041,6 @@ Partial Class frmMessenger
Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.pnl.ResumeLayout(False)
@@ -1056,6 +1055,9 @@ Partial Class frmMessenger
Me.Panel9.ResumeLayout(False)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.cntxt.ResumeLayout(False)
CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub

5
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
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)