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

Revert "commit"

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-02 08:59:41 +00:00
parent 298156bc8d
commit a39d888c67
2987 changed files with 174 additions and 13775 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1131
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

6317
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.resx Normal file
View File

File diff suppressed because it is too large Load Diff

1379
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb Normal file
View File

File diff suppressed because it is too large Load Diff

195
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb generated Normal file
View File

@@ -0,0 +1,195 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMessenger_Members
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_Members))
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.lbl = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dgvChatMembers
'
Me.dgvChatMembers.AllowUserToAddRows = False
Me.dgvChatMembers.AllowUserToDeleteRows = False
Me.dgvChatMembers.AllowUserToResizeColumns = False
Me.dgvChatMembers.AllowUserToResizeRows = False
Me.dgvChatMembers.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.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma})
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.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChatMembers.Location = New System.Drawing.Point(12, 24)
Me.dgvChatMembers.Name = "dgvChatMembers"
Me.dgvChatMembers.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.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.TabIndex = 2
'
'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
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(9, 8)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(55, 13)
Me.lbl.TabIndex = 4
Me.lbl.Text = "Mitglieder:"
'
'Button2
'
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.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(71, 33)
Me.Button2.TabIndex = 5
Me.Button2.Text = "+ NEU"
Me.Button2.UseVisualStyleBackColor = False
Me.Button2.Visible = False
'
'Button1
'
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.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(83, 33)
Me.Button1.TabIndex = 6
Me.Button1.Text = "- Entfernen"
Me.Button1.UseVisualStyleBackColor = False
Me.Button1.Visible = False
'
'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
'
'frmMessenger_Members
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(347, 394)
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.Name = "frmMessenger_Members"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Mitglieder"
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgvChatMembers As Windows.Forms.DataGridView
Friend WithEvents lbl As Windows.Forms.Label
Friend WithEvents clmnMaId As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmnName As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmnFirma As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Button2 As Windows.Forms.Button
Friend WithEvents Button1 As Windows.Forms.Button
End Class

6302
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.resx Normal file
View File

File diff suppressed because it is too large Load Diff

83
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb Normal file
View File

@@ -0,0 +1,83 @@
Imports System.Windows.Forms
Public Class frmMessenger_Members
Dim SQL As New SQL
Dim CHAT As New cMessenger.cMessenger_Chat
Dim loaded = False
Public chat_id As Integer = -1
Sub New(CHAT)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT = CHAT
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub initDGV()
With dgvChatMembers
.Rows.Clear()
For Each MB In CHAT.CHAT_MEMBERS
Dim MA As New cMitarbeiter(MB.chatMb_maId)
.Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
Next
.ClearSelection()
End With
End Sub
Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
initDGV()
If CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = 4 Then
Button1.Visible = True
Button2.Visible = True
End If
End Sub
Private Sub dgvChatMembers_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellDoubleClick, dgvChatMembers.CellContentDoubleClick
If dgvChatMembers.SelectedRows.Count > 0 Then
Dim mit_id = dgvChatMembers.SelectedRows(0).Cells("clmnMaId").Value
Dim f As New frmMitarbeitersuche(mit_id)
f.ShowDialog(Me)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmMessenger_NeuerChat(CHAT)
f.ShowDialog()
initDGV()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If dgvChatMembers.SelectedRows.Count >= 1 Then
If vbYes = MsgBox("Teilnehmer wirklich entfernen?", vbYesNoCancel) Then
Dim ol As New List(Of Object)
For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
For Each MB In CHAT.CHAT_MEMBERS
If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
ol.Add(MB)
End If
Next
End If
Next
For Each o In ol
CHAT.CHAT_MEMBERS.Remove(o)
If CHAT.SAVE_MEMBERS() Then
initDGV()
End If
Next
End If
End If
End Sub
Private Sub lbl_Click(sender As Object, e As EventArgs) Handles lbl.Click
End Sub
Private Sub dgvChatMembers_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellContentClick
End Sub
End Class

302
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.Designer.vb generated Normal file
View File

@@ -0,0 +1,302 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMessenger_NeuerChat
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_NeuerChat))
Me.dgvMitarbeiter = New System.Windows.Forms.DataGridView()
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.btn = New System.Windows.Forms.Button()
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvChatgruppe = New System.Windows.Forms.DataGridView()
Me.Label3 = New System.Windows.Forms.Label()
Me.grpID = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.grpName = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvChatgruppe, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dgvMitarbeiter
'
Me.dgvMitarbeiter.AllowUserToAddRows = False
Me.dgvMitarbeiter.AllowUserToDeleteRows = False
Me.dgvMitarbeiter.AllowUserToResizeColumns = False
Me.dgvMitarbeiter.AllowUserToResizeRows = False
Me.dgvMitarbeiter.BackgroundColor = System.Drawing.Color.White
Me.dgvMitarbeiter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvMitarbeiter.Location = New System.Drawing.Point(13, 46)
Me.dgvMitarbeiter.MultiSelect = False
Me.dgvMitarbeiter.Name = "dgvMitarbeiter"
Me.dgvMitarbeiter.RowHeadersVisible = False
Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvMitarbeiter.Size = New System.Drawing.Size(304, 330)
Me.dgvMitarbeiter.TabIndex = 1
'
'dgvChatMembers
'
Me.dgvChatMembers.AllowUserToAddRows = False
Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White
Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma})
Me.dgvChatMembers.Location = New System.Drawing.Point(323, 62)
Me.dgvChatMembers.Name = "dgvChatMembers"
Me.dgvChatMembers.ReadOnly = True
Me.dgvChatMembers.RowHeadersVisible = False
Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChatMembers.Size = New System.Drawing.Size(327, 314)
Me.dgvChatMembers.TabIndex = 2
'
'clmnMaId
'
Me.clmnMaId.HeaderText = "Column1"
Me.clmnMaId.Name = "clmnMaId"
Me.clmnMaId.ReadOnly = True
Me.clmnMaId.Visible = False
'
'clmnName
'
Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnName.HeaderText = "Name"
Me.clmnName.Name = "clmnName"
Me.clmnName.ReadOnly = True
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.Name = "clmnFirma"
Me.clmnFirma.ReadOnly = True
'
'btn
'
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(323, 392)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(327, 47)
Me.btn.TabIndex = 3
Me.btn.Text = "Chat eröffnen"
Me.btn.UseVisualStyleBackColor = False
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(320, 46)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(117, 13)
Me.lbl.TabIndex = 4
Me.lbl.Text = "Eingeladene Mitglieder:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(10, 7)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Suche:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(320, 7)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Chatname:"
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Visible = False
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn2.HeaderText = "Name"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Firma"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(240, 23)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(77, 21)
Me.MyComboBox1.TabIndex = 8
'
'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.Enabled = False
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(323, 23)
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(327, 20)
Me.MyTextBox2.TabIndex = 6
'
'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(13, 23)
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(228, 20)
Me.MyTextBox1.TabIndex = 0
'
'dgvChatgruppe
'
Me.dgvChatgruppe.AllowUserToAddRows = False
Me.dgvChatgruppe.AllowUserToDeleteRows = False
Me.dgvChatgruppe.AllowUserToResizeColumns = False
Me.dgvChatgruppe.AllowUserToResizeRows = False
Me.dgvChatgruppe.BackgroundColor = System.Drawing.Color.White
Me.dgvChatgruppe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChatgruppe.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.grpID, Me.grpName})
Me.dgvChatgruppe.Location = New System.Drawing.Point(13, 392)
Me.dgvChatgruppe.MultiSelect = False
Me.dgvChatgruppe.Name = "dgvChatgruppe"
Me.dgvChatgruppe.RowHeadersVisible = False
Me.dgvChatgruppe.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvChatgruppe.Size = New System.Drawing.Size(304, 47)
Me.dgvChatgruppe.TabIndex = 9
Me.dgvChatgruppe.Visible = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 379)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(65, 13)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Chatgruppe:"
Me.Label3.Visible = False
'
'grpID
'
Me.grpID.HeaderText = "grpID"
Me.grpID.Name = "grpID"
Me.grpID.Visible = False
'
'grpName
'
Me.grpName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.grpName.HeaderText = "Name"
Me.grpName.Name = "grpName"
'
'frmMessenger_NeuerChat
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(662, 451)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.dgvChatgruppe)
Me.Controls.Add(Me.MyComboBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.MyTextBox2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.dgvChatMembers)
Me.Controls.Add(Me.dgvMitarbeiter)
Me.Controls.Add(Me.MyTextBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMessenger_NeuerChat"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Neuer Chat"
CType(Me.dgvMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvChatgruppe, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MyTextBox1 As MyTextBox
Friend WithEvents dgvMitarbeiter As Windows.Forms.DataGridView
Friend WithEvents dgvChatMembers As Windows.Forms.DataGridView
Friend WithEvents btn As Windows.Forms.Button
Friend WithEvents lbl As Windows.Forms.Label
Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents Label2 As Windows.Forms.Label
Friend WithEvents MyTextBox2 As MyTextBox
Friend WithEvents clmnMaId As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmnName As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmnFirma As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents MyComboBox1 As MyComboBox
Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents dgvChatgruppe As Windows.Forms.DataGridView
Friend WithEvents Label3 As Windows.Forms.Label
Friend WithEvents grpID As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents grpName As Windows.Forms.DataGridViewTextBoxColumn
End Class

6308
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.resx Normal file
View File

File diff suppressed because it is too large Load Diff

217
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb Normal file
View File

@@ -0,0 +1,217 @@
Imports System.Windows.Forms
Public Class frmMessenger_NeuerChat
Dim SQL As New SQL
Dim CHAT As cMessenger.cMessenger_Chat = Nothing
Dim loaded = False
Public chat_id As Integer = -1
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT As cMessenger.cMessenger_Chat)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT = CHAT
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub initDGV()
If Not loaded Then Exit Sub
With dgvMitarbeiter
Dim FirmaTMP = MyComboBox1._value
Dim sqlStr = "SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname, isnull(mit_Sprachkentnisse,'') as Sprache ,CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as mit_firma FROM [tblMitarbeiter]"
sqlStr &= " WHERE mit_gekuendigt=0 AND /*mit_abteilung IN ('QS','ZOLL','DISPO') AND*/ [mit_TESTonly]=0 AND [mit_pseudoUser]=0 AND [mit_ChatBenutzer]=1 "
If MyComboBox1._value <> "" Then sqlStr &= " AND mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL')"
If MyTextBox1.Text <> "" Then sqlStr &= " AND (mit_nname LIKE '" & MyTextBox1.Text & "%' OR mit_vname LIKE '" & MyTextBox1.Text & "%' )"
sqlStr &= " order by mit_nname,mit_vname"
.DataSource = SQL.loadDgvBySql(sqlStr, "ADMIN")
If .Columns.Count = 0 Then Exit Sub
.Columns("mit_id").Visible = False
.AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
End With
End Sub
Private Sub frmMessenger_NeuerChat_Load(sender As Object, e As EventArgs) Handles Me.Load
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
MyComboBox1.changeItem("")
dgvChatgruppe.Rows.Clear()
dgvChatgruppe.Rows.Add({"BUCHHALTUNG", "BUCHHALTUNG"})
loaded = True
initDGV()
If CHAT IsNot Nothing Then
Me.Text = "Neue Benutzer hinzufügen"
Me.MyTextBox2.Text = CHAT.chat_name
Me.MyTextBox2.Enabled = False
btn.Text = "Hinzufügen"
Select Case CHAT.chat_art
Case "SND_CHAT", "LKW_CHAT"
Label3.Visible = True
dgvChatgruppe.Visible = True
End Select
End If
End Sub
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
initDGV()
End Sub
Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyDown
If dgvMitarbeiter.Rows.Count = 0 Then Exit Sub
If e.KeyCode = Keys.Down Then
If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True
If dgvMitarbeiter.Rows.Count > dgvMitarbeiter.SelectedRows(0).Index + 1 Then
Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index + 1
dgvMitarbeiter.ClearSelection()
dgvMitarbeiter.Rows(newIndex).Selected = True
MyTextBox1.Focus()
End If
End If
If e.KeyCode = Keys.Up Then
If dgvMitarbeiter.SelectedRows.Count = 0 Then dgvMitarbeiter.Rows(0).Selected = True
If dgvMitarbeiter.SelectedRows(0).Index > 0 Then
Dim newIndex = dgvMitarbeiter.SelectedRows(0).Index - 1
dgvMitarbeiter.ClearSelection()
dgvMitarbeiter.Rows(newIndex).Selected = True
MyTextBox1.Focus()
End If
End If
If e.KeyCode = Keys.Return Then
addSelMA()
End If
End Sub
Sub addSelMA()
If dgvMitarbeiter.SelectedRows.Count > 0 Then
dgvChatMembers.Rows.Add(dgvMitarbeiter.SelectedRows(0).Cells("mit_id").Value, dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value, dgvMitarbeiter.SelectedRows(0).Cells("mit_firma").Value)
initAddRemoveDGV()
MyTextBox1.Text = ""
MyTextBox1.Focus()
End If
End Sub
Sub addSelMAGruppe()
If dgvChatgruppe.SelectedRows.Count > 0 Then
Select Case dgvChatgruppe.SelectedRows(0).Cells(0).Value
Case "BUCHHALTUNG"
dgvChatMembers.Rows.Add(405, "Anna Stockenhuber", "VERAG")
dgvChatMembers.Rows.Add(599, "Isabella Miesenbeck", "VERAG")
dgvChatMembers.Rows.Add(170, "Kerstin Bauböck", "VERAG")
End Select
initAddRemoveDGV()
MyTextBox1.Text = ""
MyTextBox1.Focus()
dgvChatgruppe.ClearSelection()
End If
End Sub
Sub initAddRemoveDGV()
If dgvChatMembers.Rows.Count = 1 Then
MyTextBox2.Text = dgvChatMembers.Rows(0).Cells("clmnName").Value 'dgvMitarbeiter.SelectedRows(0).Cells("MAname").Value
MyTextBox2.Enabled = False
Else
MyTextBox2.Text = ""
MyTextBox2.Enabled = True
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If dgvChatMembers.Rows.Count = 0 Then
MsgBox("Mitglieder eingeben!")
Exit Sub
End If
If CHAT IsNot Nothing Then
For Each r As DataGridViewRow In dgvChatMembers.Rows
Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, r.Cells("clmnMaId").Value)
MB.chatMb_maId = r.Cells("clmnMaId").Value
CHAT.CHAT_MEMBERS.Add(MB)
Next
If CHAT.SAVE_MEMBERS Then
Me.Close()
End If
Else
If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
MsgBox("Chat-Name eingeben!")
Exit Sub
End If
Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
Dim MB_LIST As New List(Of Integer)
For Each r As DataGridViewRow In dgvChatMembers.Rows
MB_LIST.Add(r.Cells("clmnMaId").Value)
Next
If chatName = "" And MB_LIST.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then
Me.DialogResult = DialogResult.OK
Me.Close()
Exit Sub
End If
End If
End If
MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
Dim CHAT As cMessenger.cMessenger_Chat = Nothing
If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
Me.Close()
End If
End If
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
initDGV()
End Sub
Private Sub dgvMitarbeiter_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMitarbeiter.CellDoubleClick
addSelMA()
End Sub
Private Sub dgvChatgruppe_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatgruppe.CellDoubleClick
addSelMAGruppe()
End Sub
Private Sub dgvChatMembers_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvChatMembers.RowsRemoved
initAddRemoveDGV()
End Sub
Private Sub frmMessenger_NeuerChat_Shown(sender As Object, e As EventArgs) Handles Me.Shown
dgvChatgruppe.ClearSelection()
End Sub
End Class

523
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_SonstigeNEW.Designer.vb generated Normal file
View File

@@ -0,0 +1,523 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMessenger_SonstigeNEW
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_SonstigeNEW))
Me.lblErrArt = New System.Windows.Forms.Label()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button8 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.lblErrName = New System.Windows.Forms.Label()
Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label1 = New System.Windows.Forms.Label()
Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
Me.SplitContainer.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.pnl.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblErrArt
'
Me.lblErrArt.AutoSize = True
Me.lblErrArt.ForeColor = System.Drawing.Color.Red
Me.lblErrArt.Location = New System.Drawing.Point(84, 107)
Me.lblErrArt.Name = "lblErrArt"
Me.lblErrArt.Size = New System.Drawing.Size(68, 13)
Me.lblErrArt.TabIndex = 4
Me.lblErrArt.Text = "Art angeben!"
Me.lblErrArt.Visible = False
'
'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
'
'SplitContainer
'
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.SplitContainer.Name = "SplitContainer"
'
'SplitContainer.Panel1
'
Me.SplitContainer.Panel1.Controls.Add(Me.pnlMain)
Me.SplitContainer.Panel1.Controls.Add(Me.Panel2)
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.Controls.Add(Me.Button5)
Me.SplitContainer.Panel2.Controls.Add(Me.Panel3)
Me.SplitContainer.Panel2.Controls.Add(Me.Button6)
Me.SplitContainer.Panel2.Controls.Add(Me.dgvChatMembers)
Me.SplitContainer.Panel2.Controls.Add(Me.Label1)
Me.SplitContainer.Size = New System.Drawing.Size(1001, 761)
Me.SplitContainer.SplitterDistance = 679
Me.SplitContainer.SplitterWidth = 3
Me.SplitContainer.TabIndex = 11
'
'pnlMain
'
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 122)
Me.pnlMain.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(679, 558)
Me.pnlMain.TabIndex = 9
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.Button8)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel2.Location = New System.Drawing.Point(0, 680)
Me.Panel2.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(679, 81)
Me.Panel2.TabIndex = 12
'
'Button8
'
Me.Button8.BackColor = System.Drawing.Color.White
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.Location = New System.Drawing.Point(508, 18)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(160, 49)
Me.Button8.TabIndex = 16
Me.Button8.Text = "Speichern"
Me.Button8.UseVisualStyleBackColor = False
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button3)
Me.pnl.Controls.Add(Me.lblErrName)
Me.pnl.Controls.Add(Me.cboArt)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.lblErrArt)
Me.pnl.Controls.Add(Me.MyTextBox1)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Button7)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(679, 122)
Me.pnl.TabIndex = 8
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.Red
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(585, 20)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(83, 33)
Me.Button3.TabIndex = 14
Me.Button3.Text = "Löschen"
Me.Button3.UseVisualStyleBackColor = False
Me.Button3.Visible = False
'
'lblErrName
'
Me.lblErrName.AutoSize = True
Me.lblErrName.ForeColor = System.Drawing.Color.Red
Me.lblErrName.Location = New System.Drawing.Point(84, 41)
Me.lblErrName.Name = "lblErrName"
Me.lblErrName.Size = New System.Drawing.Size(83, 13)
Me.lblErrName.TabIndex = 10
Me.lblErrName.Text = "Name angeben!"
Me.lblErrName.Visible = False
'
'cboArt
'
Me.cboArt._allowedValuesFreiText = Nothing
Me.cboArt._allowFreiText = False
Me.cboArt._value = ""
Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.cboArt.FormattingEnabled = True
Me.cboArt.Location = New System.Drawing.Point(87, 82)
Me.cboArt.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.cboArt.Name = "cboArt"
Me.cboArt.Size = New System.Drawing.Size(451, 28)
Me.cboArt.TabIndex = 9
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label4.Location = New System.Drawing.Point(19, 82)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(34, 20)
Me.Label4.TabIndex = 8
Me.Label4.Text = "Art:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label3.Location = New System.Drawing.Point(19, 58)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(55, 20)
Me.Label3.TabIndex = 7
Me.Label3.Text = "Name:"
'
'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.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(87, 56)
Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.MyTextBox1.MaxLength = 200
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(450, 26)
Me.MyTextBox1.TabIndex = 6
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(18, 18)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(157, 20)
Me.Label2.TabIndex = 5
Me.Label2.Text = "CHAT Erweiterung"
'
'Button7
'
Me.Button7.BackColor = System.Drawing.Color.MediumSeaGreen
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.ForeColor = System.Drawing.Color.White
Me.Button7.Location = New System.Drawing.Point(541, 57)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(127, 49)
Me.Button7.TabIndex = 4
Me.Button7.Text = "Erstellen"
Me.Button7.UseVisualStyleBackColor = False
'
'Button5
'
Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.BackColor = System.Drawing.Color.Red
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.White
Me.Button5.Location = New System.Drawing.Point(141, 635)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(83, 33)
Me.Button5.TabIndex = 12
Me.Button5.Text = "- Entfernen"
Me.Button5.UseVisualStyleBackColor = False
Me.Button5.Visible = False
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Controls.Add(Me.Button4)
Me.Panel3.Controls.Add(Me.Button2)
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 680)
Me.Panel3.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(319, 81)
Me.Panel3.TabIndex = 13
'
'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.Red
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.White
Me.Button4.Location = New System.Drawing.Point(52, 18)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(83, 49)
Me.Button4.TabIndex = 15
Me.Button4.Text = "Verbergen"
Me.Button4.UseVisualStyleBackColor = False
Me.Button4.Visible = False
'
'Button2
'
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(613, 18)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(127, 49)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Erstellen"
Me.Button2.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.MediumSeaGreen
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(140, 18)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(160, 49)
Me.Button1.TabIndex = 4
Me.Button1.Text = "Freigeben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Chat starten)"
Me.Button1.UseVisualStyleBackColor = False
'
'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.MediumSeaGreen
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.ForeColor = System.Drawing.Color.White
Me.Button6.Location = New System.Drawing.Point(231, 635)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(71, 33)
Me.Button6.TabIndex = 11
Me.Button6.Text = "+ NEU"
Me.Button6.UseVisualStyleBackColor = False
Me.Button6.Visible = False
'
'dgvChatMembers
'
Me.dgvChatMembers.AllowUserToAddRows = False
Me.dgvChatMembers.AllowUserToDeleteRows = False
Me.dgvChatMembers.AllowUserToResizeColumns = False
Me.dgvChatMembers.AllowUserToResizeRows = False
Me.dgvChatMembers.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvChatMembers.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.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9})
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.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvChatMembers.Location = New System.Drawing.Point(11, 20)
Me.dgvChatMembers.Name = "dgvChatMembers"
Me.dgvChatMembers.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.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(291, 608)
Me.dgvChatMembers.TabIndex = 7
'
'DataGridViewTextBoxColumn7
'
Me.DataGridViewTextBoxColumn7.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn7.MinimumWidth = 8
Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
Me.DataGridViewTextBoxColumn7.ReadOnly = True
Me.DataGridViewTextBoxColumn7.Visible = False
Me.DataGridViewTextBoxColumn7.Width = 150
'
'DataGridViewTextBoxColumn8
'
Me.DataGridViewTextBoxColumn8.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn8.HeaderText = "Name"
Me.DataGridViewTextBoxColumn8.MinimumWidth = 8
Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
Me.DataGridViewTextBoxColumn8.ReadOnly = True
'
'DataGridViewTextBoxColumn9
'
Me.DataGridViewTextBoxColumn9.HeaderText = "Firma"
Me.DataGridViewTextBoxColumn9.MinimumWidth = 8
Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
Me.DataGridViewTextBoxColumn9.ReadOnly = True
Me.DataGridViewTextBoxColumn9.Width = 150
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 6)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 13)
Me.Label1.TabIndex = 8
Me.Label1.Text = "Mitglieder:"
'
'DataGridViewTextBoxColumn10
'
Me.DataGridViewTextBoxColumn10.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn10.MinimumWidth = 8
Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
Me.DataGridViewTextBoxColumn10.Visible = False
Me.DataGridViewTextBoxColumn10.Width = 150
'
'DataGridViewTextBoxColumn11
'
Me.DataGridViewTextBoxColumn11.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn11.HeaderText = "Name"
Me.DataGridViewTextBoxColumn11.MinimumWidth = 8
Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11"
'
'DataGridViewTextBoxColumn12
'
Me.DataGridViewTextBoxColumn12.HeaderText = "Firma"
Me.DataGridViewTextBoxColumn12.MinimumWidth = 8
Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12"
Me.DataGridViewTextBoxColumn12.Width = 150
'
'frmMessenger_SonstigeNEW
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1001, 761)
Me.Controls.Add(Me.SplitContainer)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMessenger_SonstigeNEW"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Mitglieder"
Me.SplitContainer.Panel1.ResumeLayout(False)
Me.SplitContainer.Panel2.ResumeLayout(False)
Me.SplitContainer.Panel2.PerformLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel3.ResumeLayout(False)
CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lblErrArt As Windows.Forms.Label
Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents SplitContainer As Windows.Forms.SplitContainer
Friend WithEvents pnl As Windows.Forms.Panel
Friend WithEvents dgvChatMembers As Windows.Forms.DataGridView
Friend WithEvents DataGridViewTextBoxColumn7 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn8 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn9 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents DataGridViewTextBoxColumn10 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn11 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn12 As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Label2 As Windows.Forms.Label
Friend WithEvents Button7 As Windows.Forms.Button
Friend WithEvents cboArt As MyComboBox
Friend WithEvents Label4 As Windows.Forms.Label
Friend WithEvents Label3 As Windows.Forms.Label
Friend WithEvents MyTextBox1 As MyTextBox
Friend WithEvents lblErrName As Windows.Forms.Label
Friend WithEvents pnlMain As Windows.Forms.Panel
Friend WithEvents Panel2 As Windows.Forms.Panel
Friend WithEvents Button3 As Windows.Forms.Button
Friend WithEvents Button5 As Windows.Forms.Button
Friend WithEvents Panel3 As Windows.Forms.Panel
Friend WithEvents Button4 As Windows.Forms.Button
Friend WithEvents Button2 As Windows.Forms.Button
Friend WithEvents Button1 As Windows.Forms.Button
Friend WithEvents Button6 As Windows.Forms.Button
Friend WithEvents Button8 As Windows.Forms.Button
End Class

6302
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_SonstigeNEW.resx Normal file
View File

File diff suppressed because it is too large Load Diff

200
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_SonstigeNEW.vb Normal file
View File

@@ -0,0 +1,200 @@
Imports System.Windows.Forms
Public Class frmMessenger_SonstigeNEW
Dim SQL As New SQL
Dim CHAT As New cMessenger.cMessenger_Chat
Dim loaded = False
Public chat_id As Integer = -1
Sub New(CHAT)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT = CHAT
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New()
InitializeComponent()
End Sub
'Sub initDGV()
' With dgvChatMembers
' .Rows.Clear()
' For Each MB In CHAT.CHAT_MEMBERS
' Dim MA As New cMitarbeiter(MB.chatMb_maId)
' .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
' Next
' .ClearSelection()
' End With
'End Sub
Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
cboArt.Items.Clear()
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UMFRAGE", "UMFRAGE"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MITTEILUNG", "MITTEILUNG"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ARBEITSANWEISUNG", "ARBEITSANWEISUNG"))
If CHAT.chat_id > 0 Then
MyTextBox1.Text = CHAT.chat_name
Button7.Enabled = False
cboArt.Enabled = False
Else
Button3.Enabled = False
End If
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
lblErrArt.Visible = False
lblErrName.Visible = False
If cboArt._value = "" Then lblErrArt.Visible = True : Exit Sub
If MyTextBox1.Text = "" Then lblErrName.Visible = True : Exit Sub
CHAT.chat_art = cboArt._value
CHAT.chat_name = MyTextBox1.Text
CHAT.chat_freigegeben = False
CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
If CHAT.SAVE(False) Then
initMain()
End If
End Sub
Sub initMain()
If CHAT Is Nothing Then Exit Sub
initDGVMembers()
Select Case CHAT.chat_art
Case "UMFRAGE"
Dim usrcntl As New usrCntlMessenger_Umfrage
usrcntl.setValues(CHAT)
pnlMain.Controls.Clear()
usrcntl.Dock = DockStyle.Fill
pnlMain.Controls.Add(usrcntl)
Case "MITTEILUNG"
Dim usrcntl As New usrCntlMessenger_Mitteilung
usrcntl.setValues(CHAT)
pnlMain.Controls.Clear()
usrcntl.Dock = DockStyle.Fill
pnlMain.Controls.Add(usrcntl)
End Select
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
SAVE_ME
End Sub
Sub SAVE_ME()
If CHAT Is Nothing Then Exit Sub
If pnlMain.Controls.Count = 0 Then Exit Sub
Select Case CHAT.chat_art
Case "UMFRAGE"
Dim usrcntl As usrCntlMessenger_Umfrage = DirectCast(pnlMain.Controls(0), usrCntlMessenger_Umfrage)
CHAT.chat_name = MyTextBox1.Text
CHAT = usrcntl.getValues(CHAT)
CHAT.SAVE(True)
Case "MITTEILUNG"
Dim usrcntl As usrCntlMessenger_Mitteilung = DirectCast(pnlMain.Controls(0), usrCntlMessenger_Mitteilung)
CHAT.chat_name = MyTextBox1.Text
CHAT = usrcntl.getValues(CHAT)
CHAT.SAVE(True)
End Select
End Sub
Sub initDGVMembers()
With dgvChatMembers
.Rows.Clear()
For Each MB In CHAT.CHAT_MEMBERS
Dim MA As New cMitarbeiter(MB.chatMb_maId)
.Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
Next
.ClearSelection()
End With
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim f As New frmMessenger_NeuerChat(CHAT)
f.ShowDialog()
initDGVMembers()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If dgvChatMembers.SelectedRows.Count > 1 Then
Dim ol As New List(Of Object)
For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
For Each MB In CHAT.CHAT_MEMBERS
If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
ol.Add(MB)
End If
Next
End If
Next
For Each o In ol
CHAT.CHAT_MEMBERS.Remove(o)
If CHAT.SAVE_MEMBERS() Then
initDGVMembers()
End If
Next
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CHAT.chat_freigegeben = 1
CHAT.chat_aktiv = 1
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If CHAT.SAVE(True) Then
Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
MSG.chatMg_text = ""
MSG.chatMg_type = CHAT.chat_art
MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
Me.Close()
End If
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
CHAT.chat_freigegeben = False
CHAT.chat_aktiv = False
If CHAT.SAVE(True) Then
Me.Close()
End If
End Sub
End Class

74
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlChat_Art_Btn.Designer.vb generated Normal file
View File

@@ -0,0 +1,74 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlChat_Art_Btn
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btn = New System.Windows.Forms.Button()
Me.lblLKWChat_MsgCnt = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'btn
'
Me.btn.BackColor = System.Drawing.Color.LightSteelBlue
Me.btn.Dock = System.Windows.Forms.DockStyle.Fill
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(0, 0)
Me.btn.Margin = New System.Windows.Forms.Padding(0)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(124, 29)
Me.btn.TabIndex = 11
Me.btn.Text = "-----"
Me.btn.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn.UseVisualStyleBackColor = False
'
'lblLKWChat_MsgCnt
'
Me.lblLKWChat_MsgCnt.BackColor = System.Drawing.Color.Red
Me.lblLKWChat_MsgCnt.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblLKWChat_MsgCnt.Dock = System.Windows.Forms.DockStyle.Right
Me.lblLKWChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblLKWChat_MsgCnt.ForeColor = System.Drawing.Color.White
Me.lblLKWChat_MsgCnt.Location = New System.Drawing.Point(98, 0)
Me.lblLKWChat_MsgCnt.Name = "lblLKWChat_MsgCnt"
Me.lblLKWChat_MsgCnt.Size = New System.Drawing.Size(26, 29)
Me.lblLKWChat_MsgCnt.TabIndex = 105
Me.lblLKWChat_MsgCnt.Text = "99"
Me.lblLKWChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblLKWChat_MsgCnt.Visible = False
'
'usrCntlChat_Art_Btn
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.lblLKWChat_MsgCnt)
Me.Controls.Add(Me.btn)
Me.Margin = New System.Windows.Forms.Padding(0)
Me.Name = "usrCntlChat_Art_Btn"
Me.Size = New System.Drawing.Size(124, 29)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btn As Windows.Forms.Button
Friend WithEvents lblLKWChat_MsgCnt As Windows.Forms.Label
End Class

120
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlChat_Art_Btn.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

59
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlChat_Art_Btn.vb Normal file
View File

@@ -0,0 +1,59 @@
Imports System.Drawing
Imports System.ServiceModel.Configuration
Public Class usrCntlChat_Art_Btn
Public Property _name As String = ""
Public Property _aktiv As Boolean = False
Public Event CLICKED(ctl As usrCntlChat_Art_Btn)
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Public Sub init()
btn.Text = _name
If _aktiv Then
setAktiv()
Else
setInAktiv()
End If
End Sub
Public Sub setAktiv()
Me._aktiv = True
btn.BackColor = Color.SteelBlue
End Sub
Public Sub setInAktiv()
Me._aktiv = False
btn.BackColor = Color.LightSteelBlue
End Sub
Public Sub setCnt(cnt)
If cnt > 0 Then
lblLKWChat_MsgCnt.Visible = True
lblLKWChat_MsgCnt.Text = cnt
lblLKWChat_MsgCnt.BringToFront()
Else
lblLKWChat_MsgCnt.Text = ""
lblLKWChat_MsgCnt.Visible = False
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, lblLKWChat_MsgCnt.Click
RaiseEvent CLICKED(Me)
End Sub
Private Sub usrCntlChat_Art_Btn_Load(sender As Object, e As EventArgs) Handles Me.Load
init()
End Sub
End Class

176
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.Designer.vb generated Normal file
View File

@@ -0,0 +1,176 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatAnhang
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.lblDel = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.lblDel)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.txtChatmessage)
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(378, 72)
Me.pnl.TabIndex = 0
'
'Panel1
'
Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Location = New System.Drawing.Point(2, 55)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(375, 3)
Me.Panel1.TabIndex = 4
'
'txtChatmessage
'
Me.txtChatmessage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtChatmessage.BackColor = System.Drawing.Color.White
Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtChatmessage.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txtChatmessage.Location = New System.Drawing.Point(113, 17)
Me.txtChatmessage.MaxLineLength = -1
Me.txtChatmessage.MaxLines_Warning = ""
Me.txtChatmessage.MaxLines_Warning_Label = Nothing
Me.txtChatmessage.Name = "txtChatmessage"
Me.txtChatmessage.ReadOnly = True
Me.txtChatmessage.Size = New System.Drawing.Size(260, 37)
Me.txtChatmessage.TabIndex = 1
Me.txtChatmessage.Text = "Anhangdokument.pdf"
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(7, 4)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(100, 50)
Me.pic.TabIndex = 2
Me.pic.TabStop = False
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(226, 58)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 5
Me.lblDateTime.Text = "01.01.2020 10:12:00"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 58)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 6
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'lblName
'
Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblName.AutoSize = True
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 58)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(155, 13)
Me.lblName.TabIndex = 4
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'lblDel
'
Me.lblDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDel.AutoSize = True
Me.lblDel.BackColor = System.Drawing.Color.Red
Me.lblDel.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblDel.ForeColor = System.Drawing.Color.White
Me.lblDel.Location = New System.Drawing.Point(360, 0)
Me.lblDel.Name = "lblDel"
Me.lblDel.Size = New System.Drawing.Size(15, 14)
Me.lblDel.TabIndex = 7
Me.lblDel.Text = "X"
Me.lblDel.Visible = False
'
'usrCntlMessenger_ChatAnhang
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.lblDateTime)
Me.Controls.Add(Me.lblName)
Me.Controls.Add(Me.lblNewMsg)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatAnhang"
Me.Size = New System.Drawing.Size(378, 72)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents pic As PictureBox
Friend WithEvents txtChatmessage As MyRichTextBox
Friend WithEvents lblDateTime As Label
Friend WithEvents lblNewMsg As Label
Friend WithEvents lblName As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Timer1 As Timer
Friend WithEvents lblDel As Label
End Class

123
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

98
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatAnhang.vb Normal file
View File

@@ -0,0 +1,98 @@
Imports System.Drawing
Public Class usrCntlMessenger_ChatAnhang
Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
Dim ttp As New System.Windows.Forms.ToolTip
'Public FI As String = ""
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub setBgCOLOR(BG_COLOR)
' Me.BG_COLOR = BG_COLOR
' txtChatmessage.BackColor = BG_COLOR
Panel1.BackColor = BG_COLOR
End Sub
Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ttp.SetToolTip(lblDel, "Element innerhalb 60 Sek. löschen")
init()
End Sub
Sub init()
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_type.Contains("DEL_") Then
txtChatmessage.Text = "*gelöscht"
Else
txtChatmessage.Text = CHAT_MSG.chatMg_text
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
Dim cnt = 0
While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
Me.Height += 20 : cnt += 1
End While
setRead()
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Timer1.Enabled = True
End If
End If
End If
End If
End Sub
Sub setRead()
For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
lblNewMsg.Visible = Not ST.chatMgSt_gelesen
End If
Next
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles txtChatmessage.Click, pic.Click
If CHAT_MSG IsNot Nothing Then
Dim PATH = cDATENSERVER.GET_PDFPath_BY_DocID(CHAT_MSG.chatMg_anhang_docId, True)
'Process.Start(PATH)
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Else
lblDel.Visible = False
Timer1.Enabled = False
End If
End If
End If
End Sub
Private Sub lblDel_Click(sender As Object, e As EventArgs) Handles lblDel.Click
CHAT_MSG.DELETE_MESSAGE()
usrCntlMessenger_ChatAnhang_Load(Me, New EventArgs)
lblDel.Visible = False
End Sub
End Class

163
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.Designer.vb generated Normal file
View File

@@ -0,0 +1,163 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatElement
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblDel = New System.Windows.Forms.Label()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblDateTime)
Me.pnl.Controls.Add(Me.lblName)
Me.pnl.Controls.Add(Me.lblNewMsg)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(378, 48)
Me.pnl.TabIndex = 0
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Controls.Add(Me.lblDel)
Me.Panel1.Controls.Add(Me.txtChatmessage)
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(375, 32)
Me.Panel1.TabIndex = 2
'
'lblDel
'
Me.lblDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDel.AutoSize = True
Me.lblDel.BackColor = System.Drawing.Color.Red
Me.lblDel.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblDel.ForeColor = System.Drawing.Color.White
Me.lblDel.Location = New System.Drawing.Point(357, 0)
Me.lblDel.Name = "lblDel"
Me.lblDel.Size = New System.Drawing.Size(15, 14)
Me.lblDel.TabIndex = 5
Me.lblDel.Text = "X"
Me.lblDel.Visible = False
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(226, 34)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 1
Me.lblDateTime.Text = "01.01.2020 10:12:00"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblName
'
Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblName.AutoSize = True
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 34)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(155, 13)
Me.lblName.TabIndex = 0
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 34)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 3
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'txtChatmessage
'
Me.txtChatmessage.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtChatmessage.BackColor = System.Drawing.Color.Azure
Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txtChatmessage.Location = New System.Drawing.Point(4, 4)
Me.txtChatmessage.MaxLineLength = -1
Me.txtChatmessage.MaxLines_Warning = ""
Me.txtChatmessage.MaxLines_Warning_Label = Nothing
Me.txtChatmessage.Name = "txtChatmessage"
Me.txtChatmessage.ReadOnly = True
Me.txtChatmessage.Size = New System.Drawing.Size(368, 25)
Me.txtChatmessage.TabIndex = 0
Me.txtChatmessage.Text = "Hallo, wie gehts?"
'
'usrCntlMessenger_ChatElement
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatElement"
Me.Size = New System.Drawing.Size(378, 48)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents lblDateTime As Label
Friend WithEvents lblName As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents txtChatmessage As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents lblNewMsg As Label
Friend WithEvents lblDel As Label
Friend WithEvents Timer1 As Timer
End Class

123
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

86
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElement.vb Normal file
View File

@@ -0,0 +1,86 @@
Imports System.Drawing
Public Class usrCntlMessenger_ChatElement
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub setBgCOLOR(BG_COLOR)
' Me.BG_COLOR = BG_COLOR
txtChatmessage.BackColor = BG_COLOR
Panel1.BackColor = BG_COLOR
End Sub
Private Sub usrCntlMessenger_ChatElement_Load(sender As Object, e As EventArgs) Handles Me.Load
ttp.SetToolTip(lblDel, "Element innerhalb 60 Sek. löschen")
' setBgCOLOR(Color.Azure)
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_type.Contains("DEL_") Then
txtChatmessage.Text = "*gelöscht"
Else
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
txtChatmessage.Text = CHAT_MSG.chatMg_text
Dim cnt = 0
While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
Me.Height += 20 : cnt += 1
End While
setRead()
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Timer1.Enabled = True
End If
End If
End If
End If
End Sub
Sub setRead()
For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
lblNewMsg.Visible = Not ST.chatMgSt_gelesen
End If
Next
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Else
lblDel.Visible = False
Timer1.Enabled = False
End If
End If
End If
End Sub
Private Sub lblDel_Click(sender As Object, e As EventArgs) Handles lblDel.Click
CHAT_MSG.DELETE_MESSAGE()
usrCntlMessenger_ChatElement_Load(Me, New EventArgs)
lblDel.Visible = False
End Sub
End Class

66
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementDEL.Designer.vb generated Normal file
View File

@@ -0,0 +1,66 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatElementDEL
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.lblName = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.lblName)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(378, 18)
Me.pnl.TabIndex = 0
'
'lblName
'
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 1)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(193, 13)
Me.lblName.TabIndex = 0
Me.lblName.Text = "*gelöschtes Element"
'
'usrCntlMessenger_ChatElementDEL
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatElementDEL"
Me.Size = New System.Drawing.Size(378, 18)
Me.pnl.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents lblName As Label
End Class

120
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementDEL.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

27
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementDEL.vb Normal file
View File

@@ -0,0 +1,27 @@
Imports System.Drawing
Public Class usrCntlMessenger_ChatElementDEL
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
End Class

268
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementMitteilung.Designer.vb generated Normal file
View File

@@ -0,0 +1,268 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatElementMitteilung
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.MyRichTextBox5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.btnBestaetigen = New System.Windows.Forms.Button()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.MyRichTextBox1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.MyRichTextBox2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.MyRichTextBox3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.MyRichTextBox4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Controls.Add(Me.MyRichTextBox5)
Me.pnl.Controls.Add(Me.btnBestaetigen)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblDateTime)
Me.pnl.Controls.Add(Me.lblName)
Me.pnl.Controls.Add(Me.lblNewMsg)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(474, 406)
Me.pnl.TabIndex = 0
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(369, 339)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(100, 50)
Me.pic.TabIndex = 13
Me.pic.TabStop = False
'
'MyRichTextBox5
'
Me.MyRichTextBox5.BackColor = System.Drawing.Color.White
Me.MyRichTextBox5.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox5.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Underline)
Me.MyRichTextBox5.Location = New System.Drawing.Point(291, 342)
Me.MyRichTextBox5.MaxLineLength = -1
Me.MyRichTextBox5.MaxLines_Warning = ""
Me.MyRichTextBox5.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox5.Name = "MyRichTextBox5"
Me.MyRichTextBox5.ReadOnly = True
Me.MyRichTextBox5.Size = New System.Drawing.Size(73, 24)
Me.MyRichTextBox5.TabIndex = 11
Me.MyRichTextBox5.Text = "Anhang:"
'
'btnBestaetigen
'
Me.btnBestaetigen.BackColor = System.Drawing.Color.MediumSeaGreen
Me.btnBestaetigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBestaetigen.ForeColor = System.Drawing.Color.White
Me.btnBestaetigen.Location = New System.Drawing.Point(5, 342)
Me.btnBestaetigen.Name = "btnBestaetigen"
Me.btnBestaetigen.Size = New System.Drawing.Size(213, 33)
Me.btnBestaetigen.TabIndex = 12
Me.btnBestaetigen.Text = "Bestätigen " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(gelesen und verstanden)"
Me.btnBestaetigen.UseVisualStyleBackColor = False
Me.btnBestaetigen.Visible = False
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(322, 392)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 1
Me.lblDateTime.Text = "01.01.2020 10:12:00"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblName
'
Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblName.AutoSize = True
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 392)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(155, 13)
Me.lblName.TabIndex = 0
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 392)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 3
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'txtChatmessage
'
Me.txtChatmessage.BackColor = System.Drawing.Color.Azure
Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txtChatmessage.Location = New System.Drawing.Point(3, 27)
Me.txtChatmessage.MaxLineLength = -1
Me.txtChatmessage.MaxLines_Warning = ""
Me.txtChatmessage.MaxLines_Warning_Label = Nothing
Me.txtChatmessage.Name = "txtChatmessage"
Me.txtChatmessage.ReadOnly = True
Me.txtChatmessage.Size = New System.Drawing.Size(73, 23)
Me.txtChatmessage.TabIndex = 0
Me.txtChatmessage.Text = "Thema:"
'
'MyRichTextBox1
'
Me.MyRichTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyRichTextBox1.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox1.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold)
Me.MyRichTextBox1.Location = New System.Drawing.Point(81, 27)
Me.MyRichTextBox1.MaxLineLength = -1
Me.MyRichTextBox1.MaxLines_Warning = ""
Me.MyRichTextBox1.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox1.Name = "MyRichTextBox1"
Me.MyRichTextBox1.ReadOnly = True
Me.MyRichTextBox1.Size = New System.Drawing.Size(385, 23)
Me.MyRichTextBox1.TabIndex = 6
Me.MyRichTextBox1.Text = "Name der Mitteilung"
'
'MyRichTextBox2
'
Me.MyRichTextBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyRichTextBox2.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox2.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold)
Me.MyRichTextBox2.Location = New System.Drawing.Point(81, 55)
Me.MyRichTextBox2.MaxLineLength = -1
Me.MyRichTextBox2.MaxLines_Warning = ""
Me.MyRichTextBox2.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox2.Name = "MyRichTextBox2"
Me.MyRichTextBox2.ReadOnly = True
Me.MyRichTextBox2.Size = New System.Drawing.Size(385, 268)
Me.MyRichTextBox2.TabIndex = 7
Me.MyRichTextBox2.Text = "Wir sollten solche Mitteilung machen!"
'
'MyRichTextBox3
'
Me.MyRichTextBox3.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox3.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox3.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.MyRichTextBox3.Location = New System.Drawing.Point(3, 56)
Me.MyRichTextBox3.MaxLineLength = -1
Me.MyRichTextBox3.MaxLines_Warning = ""
Me.MyRichTextBox3.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox3.Name = "MyRichTextBox3"
Me.MyRichTextBox3.ReadOnly = True
Me.MyRichTextBox3.Size = New System.Drawing.Size(73, 40)
Me.MyRichTextBox3.TabIndex = 9
Me.MyRichTextBox3.Text = "Text:"
'
'MyRichTextBox4
'
Me.MyRichTextBox4.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox4.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox4.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Underline)
Me.MyRichTextBox4.Location = New System.Drawing.Point(3, 4)
Me.MyRichTextBox4.MaxLineLength = -1
Me.MyRichTextBox4.MaxLines_Warning = ""
Me.MyRichTextBox4.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox4.Name = "MyRichTextBox4"
Me.MyRichTextBox4.ReadOnly = True
Me.MyRichTextBox4.Size = New System.Drawing.Size(146, 24)
Me.MyRichTextBox4.TabIndex = 10
Me.MyRichTextBox4.Text = "Mitteilung:"
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Controls.Add(Me.MyRichTextBox4)
Me.Panel1.Controls.Add(Me.MyRichTextBox3)
Me.Panel1.Controls.Add(Me.MyRichTextBox2)
Me.Panel1.Controls.Add(Me.MyRichTextBox1)
Me.Panel1.Controls.Add(Me.txtChatmessage)
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(471, 332)
Me.Panel1.TabIndex = 2
'
'usrCntlMessenger_ChatElementMitteilung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatElementMitteilung"
Me.Size = New System.Drawing.Size(474, 406)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents lblDateTime As Label
Friend WithEvents lblName As Label
Friend WithEvents lblNewMsg As Label
Friend WithEvents Timer1 As Timer
Friend WithEvents btnBestaetigen As Button
Friend WithEvents MyRichTextBox5 As MyRichTextBox
Friend WithEvents pic As PictureBox
Friend WithEvents Panel1 As Panel
Friend WithEvents MyRichTextBox4 As MyRichTextBox
Friend WithEvents MyRichTextBox3 As MyRichTextBox
Friend WithEvents MyRichTextBox2 As MyRichTextBox
Friend WithEvents MyRichTextBox1 As MyRichTextBox
Friend WithEvents txtChatmessage As MyRichTextBox
End Class

123
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementMitteilung.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

65
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementMitteilung.vb Normal file
View File

@@ -0,0 +1,65 @@
Imports System.Drawing
Public Class usrCntlMessenger_ChatElementMitteilung
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub setBgCOLOR(BG_COLOR)
' Me.BG_COLOR = BG_COLOR
txtChatmessage.BackColor = BG_COLOR
Panel1.BackColor = BG_COLOR
End Sub
Private Sub usrCntlMessenger_ChatElement_Load(sender As Object, e As EventArgs) Handles Me.Load
' setBgCOLOR(Color.Azure)
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_type.Contains("DEL_") Then
txtChatmessage.Text = "*gelöscht"
Else
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
txtChatmessage.Text = CHAT_MSG.chatMg_text
Dim cnt = 0
While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
Me.Height += 20 : cnt += 1
End While
setRead()
End If
End If
End Sub
Sub setRead()
For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
lblNewMsg.Visible = Not ST.chatMgSt_gelesen
btnBestaetigen.Enabled = Not ST.chatMgSt_bestaetigt
End If
Next
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnBestaetigen.Click
If cMessenger.cMessenger_ChatMessageStatus.STATUS_BESTAETIGEN(CHAT_MSG.chatMg_chatId, True) Then
CHAT_MSG.LOAD_STATUS()
setRead()
End If
End Sub
End Class

332
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementUmfrage.Designer.vb generated Normal file
View File

@@ -0,0 +1,332 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatElementUmfrage
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.MyRichTextBox5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.btnBestaetigen = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MyRichTextBox4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.MyRichTextBox3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlMessenger_ChatElementUmfrage_Option1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElementUmfrage_Option()
Me.UsrCntlMessenger_ChatElementUmfrage_Option2 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElementUmfrage_Option()
Me.UsrCntlMessenger_ChatElementUmfrage_Option3 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElementUmfrage_Option()
Me.UsrCntlMessenger_ChatElementUmfrage_Option4 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElementUmfrage_Option()
Me.MyRichTextBox2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.MyRichTextBox1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtChatmessage = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Controls.Add(Me.MyRichTextBox5)
Me.pnl.Controls.Add(Me.btnBestaetigen)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblDateTime)
Me.pnl.Controls.Add(Me.lblName)
Me.pnl.Controls.Add(Me.lblNewMsg)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(474, 406)
Me.pnl.TabIndex = 0
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(357, 339)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(112, 50)
Me.pic.TabIndex = 13
Me.pic.TabStop = False
'
'MyRichTextBox5
'
Me.MyRichTextBox5.BackColor = System.Drawing.Color.White
Me.MyRichTextBox5.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox5.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Underline)
Me.MyRichTextBox5.Location = New System.Drawing.Point(291, 342)
Me.MyRichTextBox5.MaxLineLength = -1
Me.MyRichTextBox5.MaxLines_Warning = ""
Me.MyRichTextBox5.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox5.Name = "MyRichTextBox5"
Me.MyRichTextBox5.ReadOnly = True
Me.MyRichTextBox5.Size = New System.Drawing.Size(73, 24)
Me.MyRichTextBox5.TabIndex = 11
Me.MyRichTextBox5.Text = "Anhang:"
'
'btnBestaetigen
'
Me.btnBestaetigen.BackColor = System.Drawing.Color.MediumSeaGreen
Me.btnBestaetigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBestaetigen.ForeColor = System.Drawing.Color.White
Me.btnBestaetigen.Location = New System.Drawing.Point(5, 342)
Me.btnBestaetigen.Name = "btnBestaetigen"
Me.btnBestaetigen.Size = New System.Drawing.Size(213, 33)
Me.btnBestaetigen.TabIndex = 12
Me.btnBestaetigen.Text = "Antwort absenden!"
Me.btnBestaetigen.UseVisualStyleBackColor = False
Me.btnBestaetigen.Visible = False
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Controls.Add(Me.MyRichTextBox4)
Me.Panel1.Controls.Add(Me.MyRichTextBox3)
Me.Panel1.Controls.Add(Me.FlowLayoutPanel)
Me.Panel1.Controls.Add(Me.MyRichTextBox2)
Me.Panel1.Controls.Add(Me.MyRichTextBox1)
Me.Panel1.Controls.Add(Me.txtChatmessage)
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(471, 332)
Me.Panel1.TabIndex = 2
'
'MyRichTextBox4
'
Me.MyRichTextBox4.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox4.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox4.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Underline)
Me.MyRichTextBox4.Location = New System.Drawing.Point(3, 4)
Me.MyRichTextBox4.MaxLineLength = -1
Me.MyRichTextBox4.MaxLines_Warning = ""
Me.MyRichTextBox4.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox4.Name = "MyRichTextBox4"
Me.MyRichTextBox4.ReadOnly = True
Me.MyRichTextBox4.Size = New System.Drawing.Size(73, 24)
Me.MyRichTextBox4.TabIndex = 10
Me.MyRichTextBox4.Text = "Umfrage"
'
'MyRichTextBox3
'
Me.MyRichTextBox3.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox3.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox3.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.MyRichTextBox3.Location = New System.Drawing.Point(3, 56)
Me.MyRichTextBox3.MaxLineLength = -1
Me.MyRichTextBox3.MaxLines_Warning = ""
Me.MyRichTextBox3.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox3.Name = "MyRichTextBox3"
Me.MyRichTextBox3.ReadOnly = True
Me.MyRichTextBox3.Size = New System.Drawing.Size(73, 40)
Me.MyRichTextBox3.TabIndex = 9
Me.MyRichTextBox3.Text = "Frage:"
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel.Controls.Add(Me.UsrCntlMessenger_ChatElementUmfrage_Option1)
Me.FlowLayoutPanel.Controls.Add(Me.UsrCntlMessenger_ChatElementUmfrage_Option2)
Me.FlowLayoutPanel.Controls.Add(Me.UsrCntlMessenger_ChatElementUmfrage_Option3)
Me.FlowLayoutPanel.Controls.Add(Me.UsrCntlMessenger_ChatElementUmfrage_Option4)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(3, 111)
Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(2)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(463, 218)
Me.FlowLayoutPanel.TabIndex = 8
'
'UsrCntlMessenger_ChatElementUmfrage_Option1
'
Me.UsrCntlMessenger_ChatElementUmfrage_Option1.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElementUmfrage_Option1.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElementUmfrage_Option1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlMessenger_ChatElementUmfrage_Option1.Name = "UsrCntlMessenger_ChatElementUmfrage_Option1"
Me.UsrCntlMessenger_ChatElementUmfrage_Option1.Size = New System.Drawing.Size(404, 48)
Me.UsrCntlMessenger_ChatElementUmfrage_Option1.TabIndex = 0
'
'UsrCntlMessenger_ChatElementUmfrage_Option2
'
Me.UsrCntlMessenger_ChatElementUmfrage_Option2.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElementUmfrage_Option2.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElementUmfrage_Option2.Location = New System.Drawing.Point(3, 57)
Me.UsrCntlMessenger_ChatElementUmfrage_Option2.Name = "UsrCntlMessenger_ChatElementUmfrage_Option2"
Me.UsrCntlMessenger_ChatElementUmfrage_Option2.Size = New System.Drawing.Size(404, 48)
Me.UsrCntlMessenger_ChatElementUmfrage_Option2.TabIndex = 1
'
'UsrCntlMessenger_ChatElementUmfrage_Option3
'
Me.UsrCntlMessenger_ChatElementUmfrage_Option3.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElementUmfrage_Option3.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElementUmfrage_Option3.Location = New System.Drawing.Point(3, 111)
Me.UsrCntlMessenger_ChatElementUmfrage_Option3.Name = "UsrCntlMessenger_ChatElementUmfrage_Option3"
Me.UsrCntlMessenger_ChatElementUmfrage_Option3.Size = New System.Drawing.Size(404, 48)
Me.UsrCntlMessenger_ChatElementUmfrage_Option3.TabIndex = 2
'
'UsrCntlMessenger_ChatElementUmfrage_Option4
'
Me.UsrCntlMessenger_ChatElementUmfrage_Option4.BackColor = System.Drawing.Color.White
Me.UsrCntlMessenger_ChatElementUmfrage_Option4.CHAT_MSG = Nothing
Me.UsrCntlMessenger_ChatElementUmfrage_Option4.Location = New System.Drawing.Point(3, 165)
Me.UsrCntlMessenger_ChatElementUmfrage_Option4.Name = "UsrCntlMessenger_ChatElementUmfrage_Option4"
Me.UsrCntlMessenger_ChatElementUmfrage_Option4.Size = New System.Drawing.Size(404, 48)
Me.UsrCntlMessenger_ChatElementUmfrage_Option4.TabIndex = 3
'
'MyRichTextBox2
'
Me.MyRichTextBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyRichTextBox2.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox2.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold)
Me.MyRichTextBox2.Location = New System.Drawing.Point(81, 55)
Me.MyRichTextBox2.MaxLineLength = -1
Me.MyRichTextBox2.MaxLines_Warning = ""
Me.MyRichTextBox2.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox2.Name = "MyRichTextBox2"
Me.MyRichTextBox2.ReadOnly = True
Me.MyRichTextBox2.Size = New System.Drawing.Size(385, 58)
Me.MyRichTextBox2.TabIndex = 7
Me.MyRichTextBox2.Text = "Sollten wir solche Umfragen machen?"
'
'MyRichTextBox1
'
Me.MyRichTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyRichTextBox1.BackColor = System.Drawing.Color.Azure
Me.MyRichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyRichTextBox1.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold)
Me.MyRichTextBox1.Location = New System.Drawing.Point(81, 27)
Me.MyRichTextBox1.MaxLineLength = -1
Me.MyRichTextBox1.MaxLines_Warning = ""
Me.MyRichTextBox1.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox1.Name = "MyRichTextBox1"
Me.MyRichTextBox1.ReadOnly = True
Me.MyRichTextBox1.Size = New System.Drawing.Size(385, 23)
Me.MyRichTextBox1.TabIndex = 6
Me.MyRichTextBox1.Text = "Name der Umfrage"
'
'txtChatmessage
'
Me.txtChatmessage.BackColor = System.Drawing.Color.Azure
Me.txtChatmessage.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtChatmessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
Me.txtChatmessage.Location = New System.Drawing.Point(3, 27)
Me.txtChatmessage.MaxLineLength = -1
Me.txtChatmessage.MaxLines_Warning = ""
Me.txtChatmessage.MaxLines_Warning_Label = Nothing
Me.txtChatmessage.Name = "txtChatmessage"
Me.txtChatmessage.ReadOnly = True
Me.txtChatmessage.Size = New System.Drawing.Size(73, 23)
Me.txtChatmessage.TabIndex = 0
Me.txtChatmessage.Text = "Thema:"
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(322, 392)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 1
Me.lblDateTime.Text = "01.01.2020 10:12:00"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblName
'
Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblName.AutoSize = True
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 392)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(155, 13)
Me.lblName.TabIndex = 0
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 392)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 3
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'usrCntlMessenger_ChatElementUmfrage
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatElementUmfrage"
Me.Size = New System.Drawing.Size(474, 406)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.FlowLayoutPanel.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents lblDateTime As Label
Friend WithEvents lblName As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents txtChatmessage As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents lblNewMsg As Label
Friend WithEvents Timer1 As Timer
Friend WithEvents MyRichTextBox1 As MyRichTextBox
Friend WithEvents MyRichTextBox2 As MyRichTextBox
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
Friend WithEvents MyRichTextBox4 As MyRichTextBox
Friend WithEvents MyRichTextBox3 As MyRichTextBox
Friend WithEvents UsrCntlMessenger_ChatElementUmfrage_Option1 As usrCntlMessenger_ChatElementUmfrage_Option
Friend WithEvents UsrCntlMessenger_ChatElementUmfrage_Option2 As usrCntlMessenger_ChatElementUmfrage_Option
Friend WithEvents UsrCntlMessenger_ChatElementUmfrage_Option3 As usrCntlMessenger_ChatElementUmfrage_Option
Friend WithEvents UsrCntlMessenger_ChatElementUmfrage_Option4 As usrCntlMessenger_ChatElementUmfrage_Option
Friend WithEvents btnBestaetigen As Button
Friend WithEvents MyRichTextBox5 As MyRichTextBox
Friend WithEvents pic As PictureBox
End Class

123
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementUmfrage.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

79
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementUmfrage.vb Normal file
View File

@@ -0,0 +1,79 @@
Imports System.Drawing
Public Class usrCntlMessenger_ChatElementUmfrage
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub setBgCOLOR(BG_COLOR)
' Me.BG_COLOR = BG_COLOR
txtChatmessage.BackColor = BG_COLOR
Panel1.BackColor = BG_COLOR
End Sub
Private Sub usrCntlMessenger_ChatElement_Load(sender As Object, e As EventArgs) Handles Me.Load
' setBgCOLOR(Color.Azure)
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_type.Contains("DEL_") Then
txtChatmessage.Text = "*gelöscht"
Else
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
txtChatmessage.Text = CHAT_MSG.chatMg_text
Dim cnt = 0
While (txtChatmessage.Size.Width - txtChatmessage.ClientSize.Width > 10) And cnt < 20 ' (txtChatmessage.Height - txtChatmessage.ClientSize.Height) > MyRTBInnerSize Or cnt > 100
Me.Height += 20 : cnt += 1
End While
setRead()
End If
End If
End Sub
Sub setRead()
For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
lblNewMsg.Visible = Not ST.chatMgSt_gelesen
btnBestaetigen.Enabled = Not ST.chatMgSt_bestaetigt
End If
Next
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnBestaetigen.Click
Dim OPT = ""
For Each o In FlowLayoutPanel.Controls
If o.GetType.ToString = GetType(usrCntlMessenger_ChatElementUmfrage_Option).ToString Then
Dim usctlOPT = DirectCast(o, usrCntlMessenger_ChatElementUmfrage_Option)
If usctlOPT.cbxOPT.Checked Then
OPT = usctlOPT.cbxOPT.Text & ";"
End If
End If
Next
If OPT.EndsWith(";") Then OPT = OPT.Substring(0, OPT.Length - 1)
If cMessenger.cMessenger_ChatMessageStatus.STATUS_BESTAETIGEN(CHAT_MSG.chatMg_chatId, True, OPT) Then
CHAT_MSG.LOAD_STATUS()
setRead()
End If
End Sub
End Class

109
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementUmfrage_Option.Designer.vb generated Normal file
View File

@@ -0,0 +1,109 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatElementUmfrage_Option
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbxOPT = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.lblDateTime = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(404, 48)
Me.pnl.TabIndex = 0
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Controls.Add(Me.cbxOPT)
Me.Panel1.Controls.Add(Me.lblDateTime)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(404, 48)
Me.Panel1.TabIndex = 2
'
'cbxOPT
'
Me.cbxOPT._date = Nothing
Me.cbxOPT._showdate = False
Me.cbxOPT._value = ""
Me.cbxOPT.AutoSize = True
Me.cbxOPT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.cbxOPT.Location = New System.Drawing.Point(12, 13)
Me.cbxOPT.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.cbxOPT.Name = "cbxOPT"
Me.cbxOPT.Size = New System.Drawing.Size(49, 24)
Me.cbxOPT.TabIndex = 2
Me.cbxOPT.Text = "JA"
Me.cbxOPT.UseVisualStyleBackColor = True
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(130, 0)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(271, 48)
Me.lblDateTime.TabIndex = 1
Me.lblDateTime.Text = "Beschreibung wofür der Wert steht!!"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'usrCntlMessenger_ChatElementUmfrage_Option
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatElementUmfrage_Option"
Me.Size = New System.Drawing.Size(404, 48)
Me.pnl.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents lblDateTime As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Timer1 As Timer
Friend WithEvents cbxOPT As MyCheckBoxValue
Friend WithEvents lblName As Label
End Class

123
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementUmfrage_Option.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

32
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatElementUmfrage_Option.vb Normal file
View File

@@ -0,0 +1,32 @@
Imports System.Drawing
Public Class usrCntlMessenger_ChatElementUmfrage_Option
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlMessenger_ChatElement_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub
End Class

157
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.Designer.vb generated Normal file
View File

@@ -0,0 +1,157 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_ChatEmoji
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblDateTime = New System.Windows.Forms.Label()
Me.lblNewMsg = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.lblDel = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.lblDel)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(378, 72)
Me.pnl.TabIndex = 0
'
'Panel1
'
Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Azure
Me.Panel1.Location = New System.Drawing.Point(2, 55)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(375, 3)
Me.Panel1.TabIndex = 3
'
'pic
'
Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(145, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(100, 50)
Me.pic.TabIndex = 2
Me.pic.TabStop = False
'
'lblDateTime
'
Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblDateTime.ForeColor = System.Drawing.Color.Black
Me.lblDateTime.Location = New System.Drawing.Point(226, 58)
Me.lblDateTime.Name = "lblDateTime"
Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
Me.lblDateTime.TabIndex = 5
Me.lblDateTime.Text = "01.01.2020 10:12:00"
Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblNewMsg
'
Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblNewMsg.AutoSize = True
Me.lblNewMsg.BackColor = System.Drawing.Color.Red
Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblNewMsg.ForeColor = System.Drawing.Color.White
Me.lblNewMsg.Location = New System.Drawing.Point(364, 58)
Me.lblNewMsg.Name = "lblNewMsg"
Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
Me.lblNewMsg.TabIndex = 6
Me.lblNewMsg.Text = "!"
Me.lblNewMsg.Visible = False
'
'lblName
'
Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblName.AutoSize = True
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblName.Location = New System.Drawing.Point(4, 58)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(155, 13)
Me.lblName.TabIndex = 4
Me.lblName.Text = "Max Mustermann (VERAG)"
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'lblDel
'
Me.lblDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDel.AutoSize = True
Me.lblDel.BackColor = System.Drawing.Color.Red
Me.lblDel.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblDel.ForeColor = System.Drawing.Color.White
Me.lblDel.Location = New System.Drawing.Point(364, 0)
Me.lblDel.Name = "lblDel"
Me.lblDel.Size = New System.Drawing.Size(15, 14)
Me.lblDel.TabIndex = 8
Me.lblDel.Text = "X"
Me.lblDel.Visible = False
'
'usrCntlMessenger_ChatEmoji
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.lblDateTime)
Me.Controls.Add(Me.lblName)
Me.Controls.Add(Me.lblNewMsg)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlMessenger_ChatEmoji"
Me.Size = New System.Drawing.Size(378, 72)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents pic As PictureBox
Friend WithEvents lblDateTime As Label
Friend WithEvents lblNewMsg As Label
Friend WithEvents lblName As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Timer1 As Timer
Friend WithEvents lblDel As Label
End Class

123
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

125
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb Normal file
View File

@@ -0,0 +1,125 @@
Imports System.Drawing
Imports System.IO
Public Class usrCntlMessenger_ChatEmoji
Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
Dim frmM As frmMessenger
'Public FI As String = ""
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(frmM As frmMessenger, CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.frmM = frmM
End Sub
Sub setBgCOLOR(BG_COLOR)
' Me.BG_COLOR = BG_COLOR
' txtChatmessage.BackColor = BG_COLOR
Panel1.BackColor = BG_COLOR
End Sub
Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ttp.SetToolTip(lblDel, "Element innerhalb 60 Sek. löschen")
init()
End Sub
Sub init()
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_type.Contains("DEL_") Then
pic.Visible = False
Else
' txtChatmessage.Text = CHAT_MSG.chatMg_text
Dim imgPath = CHAT_MSG.chatMg_text
Dim filename = New FileInfo(imgPath).Name
Dim imgPathLocal = imgPath.Replace(filename, "")
Try
'Dim frmM As frmMessenger = DirectCast(Me.Parent, frmMessenger)
'If frmM.EMOJI_PATH_LOCAL <> frmM.EMOJI_PATH_MAIN Then
' If System.IO.File.Exists(imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH_LOCAL)) Then
' imgPath = imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH_LOCAL)
' ' End If
'End If
If frmM.EMOJI_PATH_LOCAL <> imgPathLocal Then
If System.IO.File.Exists(imgPath.Replace(imgPathLocal, frmM.EMOJI_PATH_LOCAL)) Then
imgPath = imgPath.Replace(imgPathLocal, frmM.EMOJI_PATH_LOCAL)
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Try
pic.BackgroundImage = Image.FromFile(imgPath)
pic.BackgroundImageLayout = Windows.Forms.ImageLayout.Zoom
Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
End Try
lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
Dim cnt = 0
setRead()
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Timer1.Enabled = True
End If
End If
End If
End If
End Sub
Sub setRead()
For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
lblNewMsg.Visible = Not ST.chatMgSt_gelesen
End If
Next
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
If CHAT_MSG IsNot Nothing Then
Dim PATH = cDATENSERVER.GET_PDFPath_BY_DocID(CHAT_MSG.chatMg_anhang_docId, True)
'Process.Start(PATH)
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If CHAT_MSG IsNot Nothing Then
If CHAT_MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
If CHAT_MSG.chatMg_datetime > Now.AddSeconds(-60) Then
lblDel.Visible = True
Else
lblDel.Visible = False
Timer1.Enabled = False
End If
End If
End If
End Sub
Private Sub lblDel_Click(sender As Object, e As EventArgs) Handles lblDel.Click
CHAT_MSG.DELETE_MESSAGE()
usrCntlMessenger_ChatAnhang_Load(Me, New EventArgs)
lblDel.Visible = False
End Sub
End Class

125
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_Mitteilung.Designer.vb generated Normal file
View File

@@ -0,0 +1,125 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_Mitteilung
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.MyRichTextBox1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.pic)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.MyRichTextBox1)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(840, 778)
Me.pnl.TabIndex = 0
'
'MyRichTextBox1
'
Me.MyRichTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyRichTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.MyRichTextBox1.Location = New System.Drawing.Point(33, 55)
Me.MyRichTextBox1.MaxLineLength = -1
Me.MyRichTextBox1.MaxLines_Warning = ""
Me.MyRichTextBox1.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox1.Name = "MyRichTextBox1"
Me.MyRichTextBox1.Size = New System.Drawing.Size(773, 620)
Me.MyRichTextBox1.TabIndex = 15
Me.MyRichTextBox1.Text = ""
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label3.Location = New System.Drawing.Point(28, 22)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(123, 29)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Mitteilung:"
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label1.Location = New System.Drawing.Point(28, 701)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 29)
Me.Label1.TabIndex = 16
Me.Label1.Text = "Anhang:"
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(158, 683)
Me.pic.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(150, 77)
Me.pic.TabIndex = 17
Me.pic.TabStop = False
'
'usrCntlMessenger_Mitteilung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "usrCntlMessenger_Mitteilung"
Me.Size = New System.Drawing.Size(840, 778)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Timer1 As Timer
Friend WithEvents Label3 As Label
Friend WithEvents MyRichTextBox1 As MyRichTextBox
Friend WithEvents Label1 As Label
Friend WithEvents pic As PictureBox
End Class

123
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_Mitteilung.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

37
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_Mitteilung.vb Normal file
View File

@@ -0,0 +1,37 @@
Imports System.Drawing
Public Class usrCntlMessenger_Mitteilung
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub setValues(CHAT)
End Sub
Function getValues(CHAT)
End Function
End Class

196
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_Umfrage.Designer.vb generated Normal file
View File

@@ -0,0 +1,196 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlMessenger_Umfrage
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'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()
Me.pnl = New System.Windows.Forms.Panel()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.DataGridView2 = New System.Windows.Forms.DataGridView()
Me.MyRichTextBox1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.pnl.SuspendLayout()
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.MyRichTextBox1)
Me.pnl.Controls.Add(Me.DataGridView2)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(840, 778)
Me.pnl.TabIndex = 0
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label4.Location = New System.Drawing.Point(28, 257)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(109, 29)
Me.Label4.TabIndex = 12
Me.Label4.Text = "Auswahl:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label3.Location = New System.Drawing.Point(28, 22)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(268, 29)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Umfrage-Beschreibung:"
'
'DataGridView2
'
Me.DataGridView2.AllowUserToAddRows = False
Me.DataGridView2.AllowUserToDeleteRows = False
Me.DataGridView2.AllowUserToResizeColumns = False
Me.DataGridView2.AllowUserToResizeRows = False
Me.DataGridView2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.DataGridView2.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.DataGridView2.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9})
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.DataGridView2.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView2.Location = New System.Drawing.Point(33, 291)
Me.DataGridView2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.DataGridView2.Name = "DataGridView2"
Me.DataGridView2.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.DataGridView2.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.DataGridView2.RowHeadersVisible = False
Me.DataGridView2.RowHeadersWidth = 62
Me.DataGridView2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DataGridView2.Size = New System.Drawing.Size(773, 384)
Me.DataGridView2.TabIndex = 14
'
'MyRichTextBox1
'
Me.MyRichTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyRichTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.MyRichTextBox1.Location = New System.Drawing.Point(33, 55)
Me.MyRichTextBox1.MaxLineLength = -1
Me.MyRichTextBox1.MaxLines_Warning = ""
Me.MyRichTextBox1.MaxLines_Warning_Label = Nothing
Me.MyRichTextBox1.Name = "MyRichTextBox1"
Me.MyRichTextBox1.Size = New System.Drawing.Size(773, 181)
Me.MyRichTextBox1.TabIndex = 15
Me.MyRichTextBox1.Text = ""
'
'DataGridViewTextBoxColumn7
'
Me.DataGridViewTextBoxColumn7.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn7.MinimumWidth = 8
Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
Me.DataGridViewTextBoxColumn7.ReadOnly = True
Me.DataGridViewTextBoxColumn7.Visible = False
Me.DataGridViewTextBoxColumn7.Width = 150
'
'DataGridViewTextBoxColumn8
'
Me.DataGridViewTextBoxColumn8.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.DataGridViewTextBoxColumn8.HeaderText = "Wert"
Me.DataGridViewTextBoxColumn8.MaxInputLength = 50
Me.DataGridViewTextBoxColumn8.MinimumWidth = 8
Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
Me.DataGridViewTextBoxColumn8.ReadOnly = True
Me.DataGridViewTextBoxColumn8.Width = 200
'
'DataGridViewTextBoxColumn9
'
Me.DataGridViewTextBoxColumn9.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn9.HeaderText = "Beschreibung"
Me.DataGridViewTextBoxColumn9.MaxInputLength = 500
Me.DataGridViewTextBoxColumn9.MinimumWidth = 8
Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
Me.DataGridViewTextBoxColumn9.ReadOnly = True
'
'usrCntlMessenger_Umfrage
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "usrCntlMessenger_Umfrage"
Me.Size = New System.Drawing.Size(840, 778)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Timer1 As Timer
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents MyRichTextBox1 As MyRichTextBox
Friend WithEvents DataGridView2 As DataGridView
Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn
End Class

132
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_Umfrage.resx Normal file
View File

@@ -0,0 +1,132 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="DataGridViewTextBoxColumn7.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn8.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn9.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

37
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_Umfrage.vb Normal file
View File

@@ -0,0 +1,37 @@
Imports System.Drawing
Public Class usrCntlMessenger_Umfrage
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
'Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Dim ttp As New System.Windows.Forms.ToolTip
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub setValues(CHAT)
End Sub
Function getValues(CHAT)
End Function
End Class