[vb.net] numerixbox - une textbox numérique qui gère les décimales et les arrondis

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 087 fois - Téléchargée 21 fois

Commenter

Contenu du snippet

c'est un Component à utiliser en lieu et place d'un TextBox pour gérer l'affichage des numériques.

saisie des lettres bloquées,
alignement à droite,
formatage en nombre,
arrondi à un nombre de décimales à choisir (property Decimals),

normalement tout y est.

vbnouille

Source / Exemple : 


Public Class NumericBox
    Inherits System.Windows.Forms.TextBox

    Dim _decimals As Integer = -1 ' -1 pour ne pas limiter le nombre de décimales
    Friend DecimalSeparator As String = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator

    Public Shadows Event TextChanged(ByVal Sender As Object, ByVal e As System.EventArgs) 'pour l'arrondi
    Dim isRoundUp As Boolean = False 'signifie au controle qu'il est en train d'arrondir le Text

    Public Sub New()
        MyBase.New()
        Me.TextAlign = HorizontalAlignment.Right
        Me.Name = "NumericBox"
        'Me.Text = "0"
    End Sub

    Public Property Decimals() As Integer
        Get
            Return _decimals
        End Get
        Set(ByVal Value As Integer)
            _decimals = Value
        End Set
    End Property

#Region "Form event"
' on bloque tous les caractères (keypress) 
' puis on fait une deuxième vérif au changement (TextChanged)
' enfin en dernier quand on quitte(LostFocus)

    Private Sub NumericBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
    ' Numériques + ponctuation + Ctrl sinon ne tient pas compte de l'action (évite de tout gérer sur le Handles MyBase.TextChanged)
        If Not e.KeyChar.IsDigit(e.KeyChar) And _
           Not e.KeyChar.IsPunctuation(e.KeyChar) And _
           Not e.KeyChar.IsControl(e.KeyChar) Then e.Handled = True
    ' une seule ponctuation
        If e.KeyChar.IsPunctuation(e.KeyChar) And InStr(Text, DecimalSeparator) > 0 Then e.Handled = True
    End Sub

    Private Sub NumericBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged
    'Test arrondi en cours
        If isRoundUp Then Exit Sub
    ' Test séparateur décimal   
        If Not IsNumeric(Text) And SelectionStart > -1 Then
          Dim iPos As Int16 = SelectionStart 'la position du curseur
            ReplaceSeparateurDecimal()
            SelectionStart = iPos
        End If
    ' Test Numérique (notemment dans le cas d'un copié collé douteux)
        If Len(Text) > 0 And Not IsNumeric(Replace(Text, " ", "")) Then MyBase.Undo() ' Text = ""

    ' Arrondi fait ici si le controle n'a pas le focus quand le texte change
        If Not Focus() Then Roundup()

    ' Déclenche l'event
        RaiseEvent TextChanged(sender, e)
    End Sub

    Private Sub NumericBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.LostFocus
    ' Arrondi en sortant
        Roundup()
    End Sub
#End Region

#Region "private sub & functions"
    Private Sub Roundup()
    ' test numérique
        If Not IsNumeric(Replace(Text, " ", "")) Then Exit Sub

    ' position initiale du curseur
      Dim iPos As Int16 = SelectionStart
        isRoundUp = True

    ' Arrondi au nombre de décimales choisies (_decimals = -1 pour ne pas arrondir)
        If _decimals > -1 Then
            Me.Text = Math.Round(CType(Replace(Text, " ", ""), Decimal) * 10 ^ _decimals) * 10 ^ (-_decimals)
        End If

    ' Formatage du résultat
        Me.Text = FormatNumber(Text, _decimals)

    ' Retour à la position initiale du curseur si il avait le focus (iPos > -1)
        If iPos > -1 Then SelectionStart = iPos
        isRoundUp = False
    End Sub

    Private Sub ReplaceSeparateurDecimal() 'remplace le . en ,
        Text = Replace(Text, ".", DecimalSeparator)
    End Sub
#End Region

End Class

Conclusion :


si vous avez des pistes pour améliorer le code n'hésitez pas :)

A voir également

Ajouter un commentaire Commentaires
jedry Messages postés 19 Date d'inscription vendredi 26 novembre 2010 Statut Membre Dernière intervention 10 avril 2011
23 mars 2011 à 15:33
Et j'ajoute MERCI que j'avais oublié.
jedry Messages postés 19 Date d'inscription vendredi 26 novembre 2010 Statut Membre Dernière intervention 10 avril 2011
23 mars 2011 à 15:32
Je suis débutant niveau "paquerettes", je découvre après 3 jours de recherches et de tâtonnements. Je n'ai qu'un mot à dire FABULEUX !
cs_Byrong Messages postés 224 Date d'inscription mercredi 28 septembre 2005 Statut Membre Dernière intervention 24 juillet 2013
2 mars 2011 à 10:55
lorsque j'utilise le point, ca bug

exemple 19.45

il me met 1.945,00
TeDeum Messages postés 21 Date d'inscription mercredi 8 mai 2002 Statut Membre Dernière intervention 8 janvier 2008 1
8 janv. 2008 à 11:46
Salut,

Voilà une source super intéressante !!
Merci à toi ...

De mon coté j'ai ajouté deux petite chose qui me semble intéressante et je te les soumets :
1) Afin de permettre la saisie d'un entier uniquement (et pour éviter que l'utilisateur ne saisissent un décimal), j'ai ajouté le test de Decimals dans le KeyPress :
Avant : If Char.IsPunctuation(e.KeyChar) And InStr(Text, DecimalSeparator) > 0 Then e.Handled = TrueApres : If Char.IsPunctuation(e.KeyChar) And (InStr(Text, DecimalSeparator) > 0 Or Me.Decimals 0) Then e.Handled True
2) Afin de prendre en compte les systèmes ayant le . comme séparateur décimal (Il y en a), j'ai modifié la procédure ReplaceSeparateurDecimal par :
Select Case DecimalSeparator
Case "." : Text = Replace(Text, ",", DecimalSeparator)
Case "," : Text = Replace(Text, ".", DecimalSeparator)
End Select

Voilà, dans tous les cas merci encore, c'est pratique, utile et éfficace !!
cs_chris81 Messages postés 589 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 29 avril 2008 2
7 sept. 2007 à 20:40
oui tu as raison c'etait juste des questions j'ai pas testé :)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Benouille)