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

cs_Bidou
Messages postés
5487
Date d'inscription
dimanche 4 août 2002
Statut
Membre
Dernière intervention
20 juin 2013
- 4 sept. 2007 à 09:27
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
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

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é :)
Afficher les 11 commentaires