Imports System.Drawing
Imports System.ComponentModel
 
Namespace Controls
 
    <ToolboxBitmap(GetType(Windows.Forms.TextBox))> <Description("Lässt nur" & _
      "numerische Eingaben zu")> _
    Public Class ZahlenBox
        Inherits Windows.Forms.TextBox
 
#Region "Variablen und Eigenschaften"
        Private ErrEingabe As New Windows.Forms.ErrorProvider
 
        Public Enum Wert As Integer
            Gleich = 0
            GrösserGleichNull = 1
            GrösserNull = 2
            KleinerGleichNull = 3
            KleinerNull = 4
        End Enum
 
        Public Enum Formatierung As Integer
            Keine = 0
            Zahl = 1
            Währung = 2
        End Enum
 
        <Description("Die eingetippte Zahl")> _
        Public Property Zahl() As Decimal
            Get
                If Me.Text = String.Empty Then
                    Return 0
                Else
                    Return CDec(Me.Text)
                End If
            End Get
            Set(ByVal value As Decimal)
                Me.Text = value.ToString
            End Set
        End Property
 
        Dim booZahlGanz As Boolean
        <DefaultValue(False)> <Description("Sollen nur Ganzzahlen zugelassen" & _
          "werden?")> _
        Public Property ZahlGanz() As Boolean
            Get
                Return booZahlGanz
            End Get
            Set(ByVal value As Boolean)
                booZahlGanz = value
            End Set
        End Property
 
        Private enuZahlWert As Wert
        <DefaultValue(Wert.Gleich)> <Description("Welchen Wert sollen die" & _
          "zugelassenen Zahlen haben?")> _
        Public Property ZahlWert() As Wert
            Get
                Return enuZahlWert
            End Get
            Set(ByVal value As Wert)
                enuZahlWert = value
            End Set
        End Property
 
        Private booZahlZwingend As Boolean
        <DefaultValue(False)> <Description("Muss zwinged eine Zahl" & _
          "eingegeben werden?")> _
        Public Property ZahlZwingend() As Boolean
            Get
                Return booZahlZwingend
            End Get
            Set(ByVal value As Boolean)
                booZahlZwingend = value
            End Set
        End Property
 
        Private booFehlerAnzeigen As Boolean
        <DefaultValue(True)> <Description("Soll bei falscher Eingabe ein" & _
          "Fehler (Ausrufezeichen) am Rand der Box angezeigt werden?")> _
        Public Property FehlerAnzeigen() As Boolean
            Get
                Return booFehlerAnzeigen
            End Get
            Set(ByVal value As Boolean)
                booFehlerAnzeigen = value
            End Set
        End Property
 
        Private objFehlerPosition As Windows.Forms.ErrorIconAlignment
        <DefaultValue(Windows.Forms.ErrorIconAlignment.MiddleRight)> _
          <Description("Wo soll der Fehler (Ausrufezeichen) angezeigt werden?")> _
        Public Property FehlerPosition() As Windows.Forms.ErrorIconAlignment
            Get
                Return objFehlerPosition
            End Get
            Set(ByVal value As Windows.Forms.ErrorIconAlignment)
                objFehlerPosition = value
            End Set
        End Property
#End Region