[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 18 626 fois - Téléchargée 19 fois

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

Messages postés
19
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
10 avril 2011

Et j'ajoute MERCI que j'avais oublié.
Messages postés
19
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
10 avril 2011

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 !
Messages postés
224
Date d'inscription
mercredi 28 septembre 2005
Statut
Membre
Dernière intervention
24 juillet 2013

lorsque j'utilise le point, ca bug

exemple 19.45

il me met 1.945,00
Messages postés
21
Date d'inscription
mercredi 8 mai 2002
Statut
Membre
Dernière intervention
8 janvier 2008
1
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 !!
Messages postés
589
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
29 avril 2008
2
oui tu as raison c'etait juste des questions j'ai pas testé :)
Afficher les 11 commentaires

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.