Code du textbox
Résolu
bgm2
Messages postés
63
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
3 juin 2005
-
10 mars 2005 à 15:18
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 10 mars 2005 à 16:18
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 10 mars 2005 à 16:18
3 réponses
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
10 mars 2005 à 15:52
10 mars 2005 à 15:52
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
Christophe R
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
10 mars 2005 à 15:57
10 mars 2005 à 15:57
Regardes sinon du composant MaskEdit...qui ressemble à un TextBox mais ou tu peux definir un Masque d'entré
It@li@
It@li@
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
10 mars 2005 à 16:18
10 mars 2005 à 16:18
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
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
