_ Partial Class frmRechnungsdatum 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.lbl = New System.Windows.Forms.Label() Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.btnClose = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' 'lbl ' Me.lbl.AutoSize = True Me.lbl.Location = New System.Drawing.Point(13, 8) Me.lbl.Name = "lbl" Me.lbl.Size = New System.Drawing.Size(207, 13) Me.lbl.TabIndex = 0 Me.lbl.Text = "Bitte geben Sie das Rechnungsdatum an: " ' 'MyTextBox1 ' Me.MyTextBox1._DateTimeOnly = False Me.MyTextBox1._numbersOnly = False Me.MyTextBox1._numbersOnlyKommastellen = "" Me.MyTextBox1._Prozent = False Me.MyTextBox1._ShortDateNew = True Me.MyTextBox1._ShortDateOnly = False Me.MyTextBox1._TimeOnly = False Me.MyTextBox1._value = "" Me.MyTextBox1._Waehrung = False Me.MyTextBox1._WaehrungZeichen = True Me.MyTextBox1.ForeColor = System.Drawing.Color.Black Me.MyTextBox1.Location = New System.Drawing.Point(16, 28) Me.MyTextBox1.MaxLength = 10 Me.MyTextBox1.MaxLineLength = -1 Me.MyTextBox1.MaxLines_Warning = "" Me.MyTextBox1.MaxLines_Warning_Label = Nothing Me.MyTextBox1.Name = "MyTextBox1" Me.MyTextBox1.Size = New System.Drawing.Size(174, 20) Me.MyTextBox1.TabIndex = 1 ' 'MyPanel1 ' Me.MyPanel1.BackColor = System.Drawing.Color.White Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.MyPanel1.Controls.Add(Me.btnClose) Me.MyPanel1.Controls.Add(Me.btn) Me.MyPanel1.Controls.Add(Me.MyTextBox1) 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(262, 69) Me.MyPanel1.TabIndex = 2 ' '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(229, 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(193, 27) 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 ' 'Label1 ' Me.Label1.ForeColor = System.Drawing.Color.Red Me.Label1.Location = New System.Drawing.Point(13, 51) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(237, 13) Me.Label1.TabIndex = 6 ' 'frmRechnungsdatum ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(262, 69) Me.Controls.Add(Me.MyPanel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "frmRechnungsdatum" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "frmRechnungsdatum" Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.PerformLayout() Me.ResumeLayout(False) End Sub Friend WithEvents lbl As Label Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel Friend WithEvents btn As Button Friend WithEvents btnClose As Button Friend WithEvents Label1 As Label End Class