_ Partial Class usrCntlMessenger_ListNewChats Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ 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. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'dgvChats ' Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvChats.AllowUserToAddRows = False Me.dgvChats.AllowUserToDeleteRows = False Me.dgvChats.AllowUserToResizeColumns = False Me.dgvChats.AllowUserToResizeRows = False Me.dgvChats.BackgroundColor = System.Drawing.Color.White DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvChats.ColumnHeadersVisible = False DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle14 Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvChats.Location = New System.Drawing.Point(0, 0) Me.dgvChats.Name = "dgvChats" Me.dgvChats.ReadOnly = True DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.dgvChats.RowHeadersVisible = False Me.dgvChats.RowHeadersWidth = 62 DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle16 Me.dgvChats.RowTemplate.Height = 30 Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvChats.Size = New System.Drawing.Size(307, 374) Me.dgvChats.TabIndex = 1 ' 'TimerNEW_MESSAGE ' Me.TimerNEW_MESSAGE.Enabled = True Me.TimerNEW_MESSAGE.Interval = 5000 ' 'usrCntlMessenger_ListNewChats ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.dgvChats) Me.Name = "usrCntlMessenger_ListNewChats" Me.Size = New System.Drawing.Size(307, 374) CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents dgvChats As MyDatagridview Friend WithEvents TimerNEW_MESSAGE As Windows.Forms.Timer End Class