Imports System.Windows.Forms Partial Class usrCntlMessenger_Umfrage 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 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