TEXTBOX NUMÉRIQUE, DÉCIMAL ET AUSSI NORMAL

Signaler
Messages postés
6
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
27 mars 2003
-
Messages postés
2
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
7 juillet 2004
-
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/6556-textbox-numerique-decimal-et-aussi-normal

Messages postés
2
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
7 juillet 2004

C'est l'informatique qui est source d'ivresse.
Tu devrais mettre ton code à jour. On peut préférer un code à celui d'un autre. Nous avons tous notre style.
Bon courage.
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012

Ivresse tu vas me faire tourner la tête !!

Tu as tout à fait raison, mon tort est de ne pas avoir mis à jour mon code source depuis... Vu les contrôles du même style que d'autres ont posté depuis..

Merci beaucoup pour ton commentaire !

Moustachu
Messages postés
2
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
7 juillet 2004

J'aime beaucoup.
Il faut juste harmoniser la situation pour le cas où vous fournissez une valeur avec un séparateur décimal différent de celui configuré :

'--Relatives au TextBox
Public Property Let Text(ByVal New_Text As String)
If m_TypeBox <> Normal And m_DecimalPoint Point Then New_Text Replace(New_Text, ",", ".")
txtBox.Text() = New_Text
PropertyChanged "Text"
End Property

Pardon à l'auteur, c'est toujours plus facile de proposer une amélioration...

Cordialement.
Messages postés
6
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
27 mars 2003

Pas grave...tu as oublié les évènements relatifs à une textbox comme OnChange, OnClick, OnKeyPress, etc...
Afficher les 9 commentaires