Textbox numérique, décimal et aussi normal
Soyez le premier à donner votre avis sur cette source.
Vue 6 106 fois - Téléchargée 748 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
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
- Textbox numérique, décimal et aussi normal
- [vb.net] numerixbox - une textbox numérique qui gère les décimales et les arrondis - Codes sources - Visual Basic / VB.NET (Control)
- Visual Basic / VB.NET : Textbox numerique - CodeS SourceS - Guide
- Textbox numérique (le + simple) version amélioré avec backspace qui fonctionne - Codes sources - Visual Basic / VB.NET (Texte)
- Textbox numerique avec des api - Codes sources - Visual Basic / VB.NET (API)
- Textbox numerique - Codes sources - Visual Basic / VB.NET (API)
Commentaires
Tu devrais mettre ton code à jour. On peut préférer un code à celui d'un autre. Nous avons tous notre style.
Bon courage.
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
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.
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.