Code du textbox [Résolu]

Signaler
Messages postés
63
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
3 juin 2005
-
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
-
Salut pour tout le monde;
Comment je peux spécifier les données d'un utilisateur sur un textbox.
Par exemple il doit donner un texte sous la forme: LMP 1009, CAD 1002; cad 3lettres puis espace et ensuite 4 chiffres et tout texte sous une autre forme sera compté comme erreur.
Merci.

BGM

3 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
26
Un test du style TextBox1.Text Like "[A-Z][A-Z][A-Z] [0-9][0-9][0-9][0-9]" devrait te convenir. A noter que la, seul les majuscules seront accepté ! Mettre [a-z] pour n'accepter que des minuscules ou laisser [A-Z] et mettre Ucase$(Textbox1.Text) pour accepter majuscules et minuscules combinées

Christophe R
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Regardes sinon du composant MaskEdit...qui ressemble à un TextBox mais ou tu peux definir un Masque d'entré

It@li@
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
Ou encore une autre astuce vite faite, je sais c'est pas très élégant mais ça fonctionne.
Pour tester, un form avec 2 textbox accolées (text1 et text2) et un commandbutton (command1) et ce code :

Private Sub Command1_Click()
MsgBox Text1 & " " & Text2
End Sub


Private Sub Form_Load()
' nombre de caractères max dans les texbox
Text1.MaxLength = 3
Text2.MaxLength = 4
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
' élimination des caractères autres qu'alphabériques
If KeyAscii > 31 And Not (KeyAscii > 64 And KeyAscii < 91) And Not (KeyAscii > 96 And KeyAscii < 123) Then
KeyAscii = 0
End If
' transformation des minuscules en majuscules
If KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = KeyAscii - 32
End If
' limite de saisie atteinte alors on passe à l'autre textbox
If Len(Text1) = Text1.MaxLength - 1 Then
Text2.SetFocus
End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
' contrôle si saisie de chiffres
If KeyAscii > 31 And Not (KeyAscii > 47 And KeyAscii < 58) Then
KeyAscii = 0
End If
End Sub

Loup Gris