248 lines
11 KiB
VB.net
248 lines
11 KiB
VB.net
Imports System.Windows.Forms
|
|
|
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
|
Partial Class frmDatumsabfrage
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
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
|