Textbox numérique, décimal et aussi normal

Soyez le premier à donner votre avis sur cette source.

Vue 6 053 fois - Téléchargée 715 fois

Description

Bonjour à tous,

Comme j'en avais assez de faire des tests sur les codes ascii de mes textboxes lorsque je voulais fltrer sur un type de données je me suis fais un contrôle qui le fait une fois pour toutes. Je vous le propose en esperant que cela serve à quelqu'un.

Tant qu'à faire j'ai rajouté deux ou trois options glanées au fil de vbfrance :
+ Couleur de bordure
+ épaisseur (effet assez laid il faut l'avouer quand > 1 mais j'ai gardé quand même)
+ 2 formes de bordure (pas d'ovale, trop laid j'ai pas gardé)
+ Et toutes les propriétés habituelles que l'on peut attendre d'un texbox

Si vous avez des commentaires ou des remarques, n'hésitez pas à me les laisser (notament sur l'évènement KeyPress dans le code du controle il doit y avoir moyen de mieux faire)

Merci à FredLynx qui m'a gentillement dépanné et à tous ceux qui font tourner VBFrance.

Merci aussi à OXyGN . Les corrections sont prises en compte et mon ocx compile bien ;)

Moustachu

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Ivresse
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.
cs_moustachu
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
cs_Ivresse
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.
cs_OXyGN
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...
cs_moustachu
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012
-
Désolé pour l'oubli, j'ai fourni une mauvaise version.
JE corrige et j'update.

Quels évènements ais-je oublié?

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.