_ Partial Class usrcntlUnterposEntry Inherits System.Windows.Forms.UserControl 'UserControl ü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.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblBezeichnung = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'txtAnzahl ' Me.txtAnzahl._DateTimeOnly = False Me.txtAnzahl._numbersOnly = True Me.txtAnzahl._numbersOnlyKommastellen = "" Me.txtAnzahl._Prozent = False Me.txtAnzahl._ShortDateNew = False Me.txtAnzahl._ShortDateOnly = False Me.txtAnzahl._TimeOnly = False Me.txtAnzahl._value = "" Me.txtAnzahl._Waehrung = False Me.txtAnzahl._WaehrungZeichen = True Me.txtAnzahl.Location = New System.Drawing.Point(3, 0) Me.txtAnzahl.MaxLength = 4 Me.txtAnzahl.MaxLineLength = -1 Me.txtAnzahl.MaxLines_Warning = "" Me.txtAnzahl.MaxLines_Warning_Label = Nothing Me.txtAnzahl.Name = "txtAnzahl" Me.txtAnzahl.Size = New System.Drawing.Size(41, 20) Me.txtAnzahl.TabIndex = 106 ' 'lblBezeichnung ' Me.lblBezeichnung.AutoSize = True Me.lblBezeichnung.Location = New System.Drawing.Point(45, 3) Me.lblBezeichnung.Name = "lblBezeichnung" Me.lblBezeichnung.Size = New System.Drawing.Size(28, 13) Me.lblBezeichnung.TabIndex = 107 Me.lblBezeichnung.Text = "TXT" ' 'usrcntlUnterposEntry ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.txtAnzahl) Me.Controls.Add(Me.lblBezeichnung) Me.Name = "usrcntlUnterposEntry" Me.Size = New System.Drawing.Size(200, 20) Me.ResumeLayout(False) Me.PerformLayout() End Sub Public WithEvents txtAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox Public WithEvents lblBezeichnung As System.Windows.Forms.Label End Class