Chat, divers

This commit is contained in:
2022-10-10 10:35:11 +02:00
parent d24e659cd5
commit 71678a4b50
36 changed files with 4307 additions and 740 deletions

View File

@@ -64,7 +64,8 @@ Partial Class frmMessenger_Members
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChatMembers.Location = New System.Drawing.Point(12, 24)
Me.dgvChatMembers.Location = New System.Drawing.Point(18, 37)
Me.dgvChatMembers.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.dgvChatMembers.Name = "dgvChatMembers"
Me.dgvChatMembers.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -76,16 +77,18 @@ Partial Class frmMessenger_Members
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvChatMembers.RowHeadersVisible = False
Me.dgvChatMembers.RowHeadersWidth = 62
Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323)
Me.dgvChatMembers.Size = New System.Drawing.Size(490, 497)
Me.dgvChatMembers.TabIndex = 2
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(9, 8)
Me.lbl.Location = New System.Drawing.Point(14, 12)
Me.lbl.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(55, 13)
Me.lbl.Size = New System.Drawing.Size(81, 20)
Me.lbl.TabIndex = 4
Me.lbl.Text = "Mitglieder:"
'
@@ -94,9 +97,10 @@ Partial Class frmMessenger_Members
Me.Button2.BackColor = System.Drawing.Color.MediumSeaGreen
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(268, 353)
Me.Button2.Location = New System.Drawing.Point(402, 543)
Me.Button2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(71, 33)
Me.Button2.Size = New System.Drawing.Size(106, 51)
Me.Button2.TabIndex = 5
Me.Button2.Text = "+ NEU"
Me.Button2.UseVisualStyleBackColor = False
@@ -107,9 +111,10 @@ Partial Class frmMessenger_Members
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(179, 353)
Me.Button1.Location = New System.Drawing.Point(268, 543)
Me.Button1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(83, 33)
Me.Button1.Size = New System.Drawing.Size(124, 51)
Me.Button1.TabIndex = 6
Me.Button1.Text = "- Entfernen"
Me.Button1.UseVisualStyleBackColor = False
@@ -118,51 +123,62 @@ Partial Class frmMessenger_Members
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Visible = False
Me.DataGridViewTextBoxColumn1.Width = 150
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn2.HeaderText = "Name"
Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Firma"
Me.DataGridViewTextBoxColumn3.MinimumWidth = 8
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 150
'
'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 = 150
'
'frmMessenger_Members
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(347, 394)
Me.ClientSize = New System.Drawing.Size(520, 606)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.dgvChatMembers)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "frmMessenger_Members"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Mitglieder"