Imports System.Windows.Forms Partial Class frmTimasabfrage Inherits System.Windows.Forms.Form 'Das Formular ü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.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel() Me.cbxSchalterID = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.rbHO = New System.Windows.Forms.RadioButton() Me.rbBuero = New System.Windows.Forms.RadioButton() Me.Button1 = New System.Windows.Forms.Button() Me.cboTyp = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.btnClose = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.lblSchalter = New System.Windows.Forms.Label() Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' 'MyPanel1 ' Me.MyPanel1.BackColor = System.Drawing.Color.White Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.MyPanel1.Controls.Add(Me.lblSchalter) Me.MyPanel1.Controls.Add(Me.cbxSchalterID) Me.MyPanel1.Controls.Add(Me.rbHO) Me.MyPanel1.Controls.Add(Me.rbBuero) Me.MyPanel1.Controls.Add(Me.Button1) Me.MyPanel1.Controls.Add(Me.cboTyp) Me.MyPanel1.Controls.Add(Me.btnClose) Me.MyPanel1.Controls.Add(Me.btn) Me.MyPanel1.Controls.Add(Me.Label1) Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.MyPanel1.Location = New System.Drawing.Point(0, 0) Me.MyPanel1.Name = "MyPanel1" Me.MyPanel1.Size = New System.Drawing.Size(264, 103) Me.MyPanel1.TabIndex = 3 ' 'cbxSchalterID ' Me.cbxSchalterID._allowedValuesFreiText = Nothing Me.cbxSchalterID._allowFreiText = False Me.cbxSchalterID._value = "" Me.cbxSchalterID.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cbxSchalterID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cbxSchalterID.DropDownWidth = 50 Me.cbxSchalterID.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cbxSchalterID.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxSchalterID.FormattingEnabled = True Me.cbxSchalterID.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"}) Me.cbxSchalterID.Location = New System.Drawing.Point(3, 34) Me.cbxSchalterID.Name = "cbxSchalterID" Me.cbxSchalterID.Size = New System.Drawing.Size(58, 28) Me.cbxSchalterID.TabIndex = 10 Me.cbxSchalterID.Visible = False ' 'rbHO ' Me.rbHO.AutoSize = True Me.rbHO.Location = New System.Drawing.Point(76, 46) Me.rbHO.Name = "rbHO" Me.rbHO.Size = New System.Drawing.Size(79, 17) Me.rbHO.TabIndex = 9 Me.rbHO.TabStop = True Me.rbHO.Text = "Homeoffice" Me.rbHO.UseVisualStyleBackColor = True ' 'rbBuero ' Me.rbBuero.AutoSize = True Me.rbBuero.Location = New System.Drawing.Point(76, 23) Me.rbBuero.Name = "rbBuero" Me.rbBuero.Size = New System.Drawing.Size(47, 17) Me.rbBuero.TabIndex = 8 Me.rbBuero.TabStop = True Me.rbBuero.Text = "Büro" Me.rbBuero.UseVisualStyleBackColor = True ' 'Button1 ' Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) Me.Button1.Location = New System.Drawing.Point(6, 71) Me.Button1.Margin = New System.Windows.Forms.Padding(0) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(57, 22) Me.Button1.TabIndex = 7 Me.Button1.Text = "OK" Me.Button1.UseVisualStyleBackColor = True ' 'cboTyp ' Me.cboTyp._allowedValuesFreiText = Nothing Me.cboTyp._allowFreiText = False Me.cboTyp._value = "" Me.cboTyp.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cboTyp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboTyp.DropDownWidth = 224 Me.cboTyp.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboTyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboTyp.FormattingEnabled = True Me.cboTyp.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"}) Me.cboTyp.Location = New System.Drawing.Point(201, 33) Me.cboTyp.Name = "cboTyp" Me.cboTyp.Size = New System.Drawing.Size(58, 28) Me.cboTyp.TabIndex = 4 Me.cboTyp.Visible = False ' 'btnClose ' Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnClose.BackColor = System.Drawing.Color.Red Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White Me.btnClose.FlatAppearance.BorderSize = 0 Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) Me.btnClose.ForeColor = System.Drawing.Color.White Me.btnClose.Location = New System.Drawing.Point(231, 0) Me.btnClose.Name = "btnClose" Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.btnClose.Size = New System.Drawing.Size(31, 20) Me.btnClose.TabIndex = 5 Me.btnClose.Text = "X" Me.btnClose.UseVisualStyleBackColor = False ' 'btn ' Me.btn.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) Me.btn.Location = New System.Drawing.Point(178, 71) Me.btn.Margin = New System.Windows.Forms.Padding(0) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(76, 22) Me.btn.TabIndex = 2 Me.btn.Text = "Abbrechen" Me.btn.UseVisualStyleBackColor = True ' 'Label1 ' Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText Me.Label1.Location = New System.Drawing.Point(3, 2) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(222, 18) Me.Label1.TabIndex = 6 ' 'lblSchalter ' Me.lblSchalter.AutoSize = True Me.lblSchalter.Location = New System.Drawing.Point(3, 20) Me.lblSchalter.Name = "lblSchalter" Me.lblSchalter.Size = New System.Drawing.Size(46, 13) Me.lblSchalter.TabIndex = 11 Me.lblSchalter.Text = "Schalter" Me.lblSchalter.Visible = False ' 'frmTimasabfrage ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(264, 103) Me.Controls.Add(Me.MyPanel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "frmTimasabfrage" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmDatumsabfrage" Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.PerformLayout() Me.ResumeLayout(False) End Sub Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel Friend WithEvents btnClose As Button Friend WithEvents btn As Button Friend WithEvents Label1 As Label Public WithEvents cboTyp As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Button1 As Button Friend WithEvents rbHO As RadioButton Friend WithEvents rbBuero As RadioButton Public WithEvents cbxSchalterID As MyComboBox Friend WithEvents lblSchalter As Label End Class