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.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.Label2 = New System.Windows.Forms.Label() Me.lbLaender = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.btnKeine = New System.Windows.Forms.Button() Me.btnAlle = New System.Windows.Forms.Button() Me.pnlKunde = New System.Windows.Forms.Panel() Me.cbxKunden = New System.Windows.Forms.CheckBox() 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.MyPanel1.SuspendLayout() Me.MyPanel2.SuspendLayout() Me.pnlKunde.SuspendLayout() Me.SuspendLayout() ' 'MyPanel1 ' Me.MyPanel1.AutoSize = True Me.MyPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.MyPanel1.BackColor = System.Drawing.Color.White Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.MyPanel1.Controls.Add(Me.MyPanel2) 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(286, 84) Me.MyPanel1.TabIndex = 3 ' 'MyPanel2 ' Me.MyPanel2.AutoSize = True Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.MyPanel2.Controls.Add(Me.Label2) Me.MyPanel2.Controls.Add(Me.lbLaender) Me.MyPanel2.Controls.Add(Me.btnKeine) Me.MyPanel2.Controls.Add(Me.btnAlle) Me.MyPanel2.Location = New System.Drawing.Point(3, 82) Me.MyPanel2.Name = "MyPanel2" Me.MyPanel2.Size = New System.Drawing.Size(253, 364) Me.MyPanel2.TabIndex = 49 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(22, 3) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(40, 13) Me.Label2.TabIndex = 50 Me.Label2.Text = "Länder" ' 'lbLaender ' Me.lbLaender._value = "" Me.lbLaender.FormattingEnabled = True Me.lbLaender.Location = New System.Drawing.Point(25, 16) Me.lbLaender.Name = "lbLaender" Me.lbLaender.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple Me.lbLaender.Size = New System.Drawing.Size(225, 316) Me.lbLaender.TabIndex = 46 ' 'btnKeine ' Me.btnKeine.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnKeine.Location = New System.Drawing.Point(150, 338) Me.btnKeine.Margin = New System.Windows.Forms.Padding(0) Me.btnKeine.Name = "btnKeine" Me.btnKeine.Size = New System.Drawing.Size(100, 26) Me.btnKeine.TabIndex = 47 Me.btnKeine.Text = "Keine" Me.btnKeine.UseVisualStyleBackColor = True ' 'btnAlle ' Me.btnAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAlle.Location = New System.Drawing.Point(25, 338) Me.btnAlle.Margin = New System.Windows.Forms.Padding(0) Me.btnAlle.Name = "btnAlle" Me.btnAlle.Size = New System.Drawing.Size(100, 26) Me.btnAlle.TabIndex = 48 Me.btnAlle.Text = "Alle" Me.btnAlle.UseVisualStyleBackColor = True ' '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 ' '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 ' '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(253, 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(219, 52) 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 ' 'frmDatumsabfrage ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSize = True Me.ClientSize = New System.Drawing.Size(286, 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.MyPanel2.ResumeLayout(False) Me.MyPanel2.PerformLayout() Me.pnlKunde.ResumeLayout(False) Me.pnlKunde.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() 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 Friend WithEvents btnAlle As Button Friend WithEvents lbLaender As MyListBox Friend WithEvents btnKeine As Button Friend WithEvents MyPanel2 As MyPanel Friend WithEvents Label2 As Label End Class