Imports System.Windows.Forms Partial Class frmDatumsabfrage 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.components = New System.ComponentModel.Container() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.pnlKunde = New System.Windows.Forms.Panel() Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.dtp_date = New System.Windows.Forms.DateTimePicker() Me.btnClose = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() Me.lbl = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.cbxKunden = New System.Windows.Forms.CheckBox() Me.MyPanel1.SuspendLayout() Me.pnlKunde.SuspendLayout() Me.SuspendLayout() ' 'MyPanel1 ' Me.MyPanel1.BackColor = System.Drawing.Color.White Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.MyPanel1.Controls.Add(Me.pnlKunde) Me.MyPanel1.Controls.Add(Me.dtp_date) Me.MyPanel1.Controls.Add(Me.btnClose) Me.MyPanel1.Controls.Add(Me.btn) Me.MyPanel1.Controls.Add(Me.lbl) 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, 84) Me.MyPanel1.TabIndex = 3 ' 'pnlKunde ' Me.pnlKunde.Controls.Add(Me.cbxKunden) Me.pnlKunde.Controls.Add(Me.cboKundenkreis) Me.pnlKunde.Location = New System.Drawing.Point(16, 47) Me.pnlKunde.Name = "pnlKunde" Me.pnlKunde.Size = New System.Drawing.Size(169, 32) Me.pnlKunde.TabIndex = 26 Me.pnlKunde.Visible = False ' 'cboKundenkreis ' Me.cboKundenkreis._allowedValuesFreiText = Nothing Me.cboKundenkreis._allowFreiText = False Me.cboKundenkreis._value = "" Me.cboKundenkreis.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cboKundenkreis.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboKundenkreis.DropDownWidth = 400 Me.cboKundenkreis.Enabled = False Me.cboKundenkreis.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboKundenkreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboKundenkreis.FormattingEnabled = True Me.cboKundenkreis.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.cboKundenkreis.Location = New System.Drawing.Point(33, 1) Me.cboKundenkreis.Name = "cboKundenkreis" Me.cboKundenkreis.Size = New System.Drawing.Size(133, 28) Me.cboKundenkreis.TabIndex = 4 ' 'dtp_date ' Me.dtp_date.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtp_date.Location = New System.Drawing.Point(16, 24) Me.dtp_date.Name = "dtp_date" Me.dtp_date.Size = New System.Drawing.Size(100, 20) Me.dtp_date.TabIndex = 25 ' '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.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(197, 48) Me.btn.Margin = New System.Windows.Forms.Padding(0) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(57, 22) Me.btn.TabIndex = 2 Me.btn.Text = "OK" Me.btn.UseVisualStyleBackColor = True ' 'lbl ' Me.lbl.AutoSize = True Me.lbl.Location = New System.Drawing.Point(13, 5) Me.lbl.Name = "lbl" Me.lbl.Size = New System.Drawing.Size(215, 13) Me.lbl.TabIndex = 0 Me.lbl.Text = "Bitte geben Sie das Abrechnungsdatum an: " ' 'Label1 ' Me.Label1.ForeColor = System.Drawing.Color.Red Me.Label1.Location = New System.Drawing.Point(122, 29) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(132, 18) Me.Label1.TabIndex = 6 ' 'cbxKunden ' Me.cbxKunden.AutoSize = True Me.cbxKunden.Location = New System.Drawing.Point(12, 9) Me.cbxKunden.Name = "cbxKunden" Me.cbxKunden.Size = New System.Drawing.Size(15, 14) Me.cbxKunden.TabIndex = 5 Me.cbxKunden.UseVisualStyleBackColor = True ' 'frmDatumsabfrage ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(264, 84) Me.Controls.Add(Me.MyPanel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "frmDatumsabfrage" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmDatumsabfrage" Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.PerformLayout() Me.pnlKunde.ResumeLayout(False) Me.pnlKunde.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 lbl As Label Friend WithEvents Label1 As Label Friend WithEvents dtp_date As DateTimePicker Friend WithEvents pnlKunde As Panel Public WithEvents cboKundenkreis As VERAG_PROG_ALLGEMEIN.MyComboBox Public WithEvents cbxKunden As CheckBox End Class