Control textcompt 1.0 (final)

Soyez le premier à donner votre avis sur cette source.

Vue 3 103 fois - Téléchargée 285 fois

Description

Ce controle permet d'insérer facilement un nombre dans un textbox. Il est muni de 2 boutons pour incrémenter/décrémenter, etc.

Voilà d'un coup l'évolution du control jusqu'à la version 4 grace à Post'It.

31/07/2004 : Version 1.0

-------

Version 2 par Post'It utilisant un controle up/down à la place des boutons :
- Simplification du code
- Passage d'Integer en Long pour la valeur, meilleur gestion de la valeur par Val() (c'est rien d'le dire)
- Propriété 'AutoSelect' : autoselection du text lors du focus
- Propriétés 'Page' : saut de la valeur par les touches 'PageUp' et 'PageDown'
- Prise en charge des touches 'Home' et 'End'
- Etc...

-------

Version 3 par Post'It (utilise des boutons cette fois) :
- Propriété UNIT : permet d'afficher l'unité de mesure affichée !
- Accélération de l'incrémentation/décrémentation lors de l'appuie sur les boutons UP/DOW !
- Etc... Etc....

-------

Version 4 par moi-même : (je n'ai fait que paufiner...)
- Les touches '+' et '-' change directement le signe du nombre (positif/négatif)
- Les flèches 'haut' et 'bas' gèrent à la place l'incrémentation/décrémentation
- Propriétés 'Value' affecte/renvoie la valeur du compteur en Long (normal)
- Propriétés 'ValueStr' affecte/renvoie la valeur du compteur en String
- Etc.

-------

Version 4a :
- Regle un blem mineur dans Min/Max/Value/ValueStr (PropertyChanged)

A faire :
- Gestion correcte de la propriété 'Font'

-------

Version 1.0 (final)

- TabStop des 2 boutons à false pour avoir un TabStop uniquement sur le contrôle
- Prise en charge de la propriétés Font pour le TextBox et l'unité
- Redimensionnement automatique de la Textbox et du reste suivant la taille de la Font

Conclusion :


Le projet du control utilisateur est dans le zip avec les toutes les versions, ainsi qu'une form pour les tester.
Les sources sont bien rangées et bien commentées.

N'hésitez pas à me laisser un message si vous l'améliorez, si vous avez des idées, etc.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

tmcuh
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
je voulais spécifier que moi c dans le cas où y'a pas de bouton et pas de controle des touches, ...uniquement une case pour integer... ben sinon ouech tu pourrais l'améliorer en mettant par exemple la roulette de la souris en action ;-) maintenant la virgule n'as rien de bien en soi, par contre tu pourrais rajouter un option pour integer ou pour entier car si je veux un compteur de précision, il marche pas ton truc... tu pourrais utiliser la fonction val(chiffre)...pour ce type d'application, il ne reconnait que le point. voilà bonne amusement :)
huelce
Messages postés
45
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
28 juillet 2004
1 -
Les flèches Haut (38) et Bas (40) permettent de monter ou descendre le nombre. Les flèches droite/gauche doivent garder leur rôle pour bouger le curseur d'insertion, que veux-tu dire, je ne comprends pas.

La touche supp (del) ? je ne comprends pas non plus.

Quand à la virgule, je ne capte pas non plus. J'ai fais ce contrôle pour un projet ou je n'ai besoin que d'un nombre entier, j'ai donc mis un Integer pour Value. Maintenant, le projet est facilement personnalisable pour utiliser des nombres décimaux.

La version de ce zip n'est pas top, je mettrai bientôt une version finale.
gandalfkhorne
Messages postés
70
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 octobre 2004
-
tu oublis les valeur telles que les fleches directionnelles (37 à 40), le del (8) la touche suppr et UNE virgule (44).
tmcuh
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
pa bien compliqué à mettre en oeuvre, mais bien penser, je sais pas si y'a d'autres sources à peu près pareil...mais bon pour ma part je mets 10 car cà vient souvent à point et perso je le fais souvent maison

Private Sub Text_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then: KeyAscii = 0
End Sub

j'ai pas regardé ton code donc dis pas, j'ai fait le meme loOol...
cs_Warning
Messages postés
517
Date d'inscription
samedi 3 février 2001
Statut
Modérateur
Dernière intervention
24 octobre 2006
1 -
fo dire que ta bien choisi le numero sur la capture ;)

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.