[VB.NET] NUMERIXBOX - UNE TEXTBOX NUMÉRIQUE QUI GÈRE LES DÉCIMALES ET LES ARROND

Signaler
Messages postés
5487
Date d'inscription
dimanche 4 août 2002
Statut
Modérateur
Dernière intervention
20 juin 2013
-
Messages postés
19
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
10 avril 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/43936-vb-net-numerixbox-une-textbox-numerique-qui-gere-les-decimales-et-les-arrondis

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 !!
Afficher les 11 commentaires