This commit is contained in:
2020-03-23 22:33:56 +01:00
parent 00c51ba4a4
commit a8840a7dcd
10 changed files with 629 additions and 144 deletions

View File

@@ -0,0 +1,119 @@
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.pnl = 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.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
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
'
'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(258, 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)"
'
'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)
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
End Class