Faire un masque de saisie

Question

Bonjour,

Je voudrai faire un masque de saisie pour une testbox du genre "UR########" dont # est numérique.

Je ne vois pas comment l'aborder

merci a tous

oo7jb5 · Answer

Salut, tu peux utiliser des controls déjà tout fait. Dans ton cas tu dois utiliser le controle MaskedTextbox qui gére déjà tout cela. Voila.

cyberall80 · Answer

Merci de te pencher sur mon problème.

Mais débutant oblige, je le trouve ou ce controle, c'est un composant a installer ?

Merci

oo7jb5 · Answer

Derien c'est normal alors ce contrôle se situe quelques lignes plus haut que la textbox dans la partie nommée "Common Controls" dans la Toolbox. C'est un controle comme les autres donc tu n'as qu'à le faire glisser sur ta form (en mode design)ensuite tu accèdes au masque en cliquant sur la petite flèche située juste au dessus du control que tu auras ajouté sur ta form. Voila

cyberall80 · Answer

On parle bien en VB6 car je ne la vois pas dans ma toolbox, on parle bien de la boite à outils, moi j'ai juste général et en dessous, l'icone fleche, l'icone picture, et dessous l'icone label et textbox.


 


Merci de ton aide

oo7jb5 · Answer

Désolé moi j'utilise Vb .Net, c'est pour cela que tu ne retrouves pas. Mais normalement tu dois pouvoir la trouver sous le nom de MaskedBox. Par contre, elle doit être dans ta toolbox où je ne sais pas. Encore désolé, en plus j'avais lu VB6 mais je suis parti sur vb.net.

cyberall80 · Answer

Pas grave, oui j'ai bien trouvé MaskedBox mais apparement c'est comme une textbox et moi je suis en combo pour remplissage de liste donc je pense que je vais être obligé de passer par le code.

Merci a toi

oo7jb5 · Answer

Ah tu avais mis textbox, tu as changé d'idée ? Tu utilises un combobox ?

cyberall80 · Answer

Excuse moi, me suis trompé j'ai une combo box.

j'ai fait ce code là qui limite ma saisie a U ou R ainsi que du numérique

Select Case KeyAscii
            Case 1 To 7, 9 To 47, 58 To 81, 83, 84, 86 To 255
                KeyAscii = 0: Beep
 End Select

maintenant je cherche comment bloquer ma zone de saisie a 10 car c'est une combo avec liste mais je peux aussi saisir un nouveau nom par exemple.

Merci

oo7jb5 · Answer

Ce n'est pas grave, pour bloquer la taille de ta combobox tu peux utiliser le paramètre Maxlength et le fixer à 10 donc. Voila !

jrivet · Answer

Salut,
lors de l'événement Keypress , test la longueur du texte contenu dans la combo avec Len()

Tu pourras donc ainsi annuler tout les appuis 

@+: Ju£i€n
Pensez: Réponse acceptée

cyberall80 · Answer

Ben j'arrive pas a faire fonctionner ce foutu Maxlength car il ne me le trouve pas dans les propietes de ma combo

Merci

oo7jb5 · Answer

Tiens j'ai trouvé deux liens sur code source :

http://www.vbfrance.com/codes/COMBOBOX-NUMERIQUE-LONGUEUR-LIMITE_200.aspx

http://www.vbfrance.com/codes/LIMITER-NOMBRE-CARACTERES-MAXIMUM-COMBOBOX_7638.aspx

Sinon la méthode de jrivet marche bien normalement!

LIBRE_MAX · Answer

Salut,


Le combo n' a pas de MaxLenght.
Le MaskEdit n' est pas un simple TextBox.
Il faudra configurer ses propriétés:
Format , Mask et MaxLenght.


(click droit/Propriétés)





<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

cyberall80 · Answer

Merci beaucoup a tous et un grand merci a oo7jb5 car tes liens sont terribles

Ai résolu mon histoire de masque

cyberall80 · Answer

Je mets le code au cas ou ça intéresse quelqu'un

Ce petit bout de code vous permet de controler le nombre de caractères maximum d'un ComboBox , d'afficher un Msgbox pour prevenir l'utilisateur , puis de retablir le nombre de caractères maxi (efface ce qui se trouve apres)
--------------------------------------------------------
Private Sub Combo1_Change()
If Len(Combo1.Text) > 10 Then ' Nombre maxi de caractères
   Check = MsgBox("CombBox limité à 10 caractères !", vbExclamation + vbOKOnly, "Attention")
   Combo1.Text = Left(Combo1.Text, 10) ' Efface les caractères en trop
   Combo1.SelStart = Len(Combo1) ' Replace le curseur à la fin
End If
End Sub

Merci a tous

Faire un masque de saisie

15 réponses

Votre réponse

Discussions similaires