Anpassung Dakosy BOX 9.2,

CHAT->Aus Zw.Ablage einfügen
This commit is contained in:
2022-10-30 22:30:38 +01:00
parent 5958224ac0
commit ab22b659af
10 changed files with 2038 additions and 69 deletions

View File

@@ -24,7 +24,6 @@ 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 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()
@@ -36,10 +35,10 @@ Partial Class frmMessenger
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.components)
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
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()
@@ -56,26 +55,27 @@ Partial Class frmMessenger
Me.Button2 = 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.components)
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.UsrCntlMessenger_ChatAnhang1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatAnhang()
Me.UsrCntlMessenger_ChatElement2 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.UsrCntlMessenger_ChatElement3 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button5 = New System.Windows.Forms.Button()
Me.btnTeilnehmer = New System.Windows.Forms.Button()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.lblChatName = New System.Windows.Forms.Label()
Me.lblOnlineOffline = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.pic = New System.Windows.Forms.PictureBox()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.Button3 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
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.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
Me.Timer_REFRESH = New System.Windows.Forms.Timer()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
@@ -120,8 +120,8 @@ Partial Class frmMessenger
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.Controls.Add(Me.SplitContainer1)
Me.SplitContainer.Size = New System.Drawing.Size(817, 1052)
Me.SplitContainer.SplitterDistance = 270
Me.SplitContainer.Size = New System.Drawing.Size(821, 1052)
Me.SplitContainer.SplitterDistance = 274
Me.SplitContainer.TabIndex = 0
'
'SplitContainer2
@@ -142,7 +142,7 @@ Partial Class frmMessenger
Me.SplitContainer2.Panel2.Controls.Add(Me.DGVSonstige)
Me.SplitContainer2.Panel2.Controls.Add(Me.Panel5)
Me.SplitContainer2.Panel2Collapsed = True
Me.SplitContainer2.Size = New System.Drawing.Size(270, 966)
Me.SplitContainer2.Size = New System.Drawing.Size(274, 966)
Me.SplitContainer2.SplitterDistance = 590
Me.SplitContainer2.SplitterWidth = 3
Me.SplitContainer2.TabIndex = 8
@@ -191,7 +191,7 @@ Partial Class frmMessenger
Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvChats.RowTemplate.Height = 30
Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChats.Size = New System.Drawing.Size(270, 945)
Me.dgvChats.Size = New System.Drawing.Size(274, 945)
Me.dgvChats.TabIndex = 0
'
'Panel6
@@ -200,7 +200,7 @@ Partial Class frmMessenger
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel6.Location = New System.Drawing.Point(0, 945)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(270, 21)
Me.Panel6.Size = New System.Drawing.Size(274, 21)
Me.Panel6.TabIndex = 7
'
'cbxInaktiveChats
@@ -363,7 +363,7 @@ Partial Class frmMessenger
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel2.Location = New System.Drawing.Point(0, 1029)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(270, 23)
Me.Panel2.Size = New System.Drawing.Size(274, 23)
Me.Panel2.TabIndex = 6
'
'CheckBox1
@@ -388,7 +388,7 @@ Partial Class frmMessenger
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(270, 63)
Me.Panel1.Size = New System.Drawing.Size(274, 63)
Me.Panel1.TabIndex = 1
'
'MyTextBox1
@@ -538,7 +538,7 @@ Partial Class frmMessenger
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.White
Me.Panel3.Controls.Add(Me.Button5)
Me.Panel3.Controls.Add(Me.btnTeilnehmer)
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Controls.Add(Me.lblChatName)
Me.Panel3.Controls.Add(Me.lblOnlineOffline)
@@ -548,19 +548,19 @@ Partial Class frmMessenger
Me.Panel3.Size = New System.Drawing.Size(543, 44)
Me.Panel3.TabIndex = 9
'
'Button5
'btnTeilnehmer
'
Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.BackColor = System.Drawing.Color.MediumSeaGreen
Me.Button5.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.person
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.White
Me.Button5.Location = New System.Drawing.Point(490, 4)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(49, 33)
Me.Button5.TabIndex = 8
Me.Button5.UseVisualStyleBackColor = False
Me.btnTeilnehmer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTeilnehmer.BackColor = System.Drawing.Color.MediumSeaGreen
Me.btnTeilnehmer.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.person
Me.btnTeilnehmer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnTeilnehmer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTeilnehmer.ForeColor = System.Drawing.Color.White
Me.btnTeilnehmer.Location = New System.Drawing.Point(487, 4)
Me.btnTeilnehmer.Name = "btnTeilnehmer"
Me.btnTeilnehmer.Size = New System.Drawing.Size(49, 33)
Me.btnTeilnehmer.TabIndex = 8
Me.btnTeilnehmer.UseVisualStyleBackColor = False
'
'Panel4
'
@@ -569,7 +569,7 @@ Partial Class frmMessenger
Me.Panel4.BackColor = System.Drawing.Color.Black
Me.Panel4.Location = New System.Drawing.Point(4, 43)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(535, 1)
Me.Panel4.Size = New System.Drawing.Size(468, 1)
Me.Panel4.TabIndex = 6
'
'lblChatName
@@ -588,7 +588,7 @@ Partial Class frmMessenger
Me.lblOnlineOffline.BackColor = System.Drawing.Color.MediumSeaGreen
Me.lblOnlineOffline.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.lblOnlineOffline.ForeColor = System.Drawing.Color.White
Me.lblOnlineOffline.Location = New System.Drawing.Point(378, 4)
Me.lblOnlineOffline.Location = New System.Drawing.Point(375, 4)
Me.lblOnlineOffline.Name = "lblOnlineOffline"
Me.lblOnlineOffline.Size = New System.Drawing.Size(106, 33)
Me.lblOnlineOffline.TabIndex = 5
@@ -599,6 +599,7 @@ Partial Class frmMessenger
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.Button6)
Me.pnl.Controls.Add(Me.Button4)
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Controls.Add(Me.FlowLayoutPanel)
@@ -611,14 +612,30 @@ Partial Class frmMessenger
Me.pnl.Size = New System.Drawing.Size(543, 320)
Me.pnl.TabIndex = 0
'
'Button6
'
Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button6.BackColor = System.Drawing.Color.SteelBlue
Me.Button6.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.ZwAbEinfuegen_white
Me.Button6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.ForeColor = System.Drawing.Color.White
Me.Button6.Location = New System.Drawing.Point(501, 44)
Me.Button6.Name = "Button6"
Me.Button6.Padding = New System.Windows.Forms.Padding(3)
Me.Button6.Size = New System.Drawing.Size(39, 41)
Me.Button6.TabIndex = 9
Me.Button6.UseVisualStyleBackColor = False
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.Location = New System.Drawing.Point(436, 90)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(76, 25)
Me.Button4.Size = New System.Drawing.Size(104, 25)
Me.Button4.TabIndex = 8
Me.Button4.Text = "Chat History"
Me.Button4.UseVisualStyleBackColor = False
@@ -627,9 +644,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(11, 299)
Me.pic.Location = New System.Drawing.Point(-56, 299)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(524, 20)
Me.pic.Size = New System.Drawing.Size(592, 20)
Me.pic.TabIndex = 7
Me.pic.TabStop = False
Me.pic.WaitOnLoad = True
@@ -642,29 +659,31 @@ Partial Class frmMessenger
Me.FlowLayoutPanel.AutoScroll = True
Me.FlowLayoutPanel.Location = New System.Drawing.Point(4, 121)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(534, 176)
Me.FlowLayoutPanel.Size = New System.Drawing.Size(535, 176)
Me.FlowLayoutPanel.TabIndex = 6
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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, 44)
Me.Button3.Location = New System.Drawing.Point(436, 44)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(76, 40)
Me.Button3.Size = New System.Drawing.Size(65, 41)
Me.Button3.TabIndex = 2
Me.Button3.Text = "+ Anhang"
Me.Button3.UseVisualStyleBackColor = False
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.SteelBlue
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(461, 4)
Me.btn.Location = New System.Drawing.Point(436, 4)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(76, 40)
Me.btn.Size = New System.Drawing.Size(103, 40)
Me.btn.TabIndex = 1
Me.btn.Text = "Senden"
Me.btn.UseVisualStyleBackColor = False
@@ -673,10 +692,10 @@ Partial Class frmMessenger
'
Me.rtbChatMessage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.rtbChatMessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rtbChatMessage.Font = New System.Drawing.Font("Comic Sans MS", 11.0!)
Me.rtbChatMessage.Location = New System.Drawing.Point(3, 3)
Me.rtbChatMessage.Name = "rtbChatMessage"
Me.rtbChatMessage.Size = New System.Drawing.Size(454, 112)
Me.rtbChatMessage.Size = New System.Drawing.Size(427, 112)
Me.rtbChatMessage.TabIndex = 0
Me.rtbChatMessage.Text = ""
'
@@ -705,7 +724,7 @@ Partial Class frmMessenger
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(817, 1052)
Me.ClientSize = New System.Drawing.Size(821, 1052)
Me.Controls.Add(Me.SplitContainer)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMessenger"
@@ -772,7 +791,7 @@ Partial Class frmMessenger
Friend WithEvents Panel3 As Panel
Friend WithEvents lblChatName As Label
Friend WithEvents Panel4 As Panel
Friend WithEvents Button5 As Button
Friend WithEvents btnTeilnehmer As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents MyTextBox1 As MyTextBox
Friend WithEvents Button4 As Button
@@ -788,4 +807,5 @@ Partial Class frmMessenger
Friend WithEvents Panel1 As Panel
Friend WithEvents Panel6 As Panel
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents Button6 As Button
End Class