269 lines
13 KiB
VB.net
269 lines
13 KiB
VB.net
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
|