VB Interdire un caractère
Résolu
Bonjour,
Je suis nouvelle en programmation VB... Je souhaite interdire les majuscules dans un groupe de contrôles (textbox).
J'y arrive déjà pour une seule textbox par contre:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 Or KeyAscii <= 122 Then
MsgBox "interdit", vbOKOnly, "erreur"
End If
End Sub
Si quelqu'un pouvait m'aider...
Merci d'avance !
Jane
Je suis nouvelle en programmation VB... Je souhaite interdire les majuscules dans un groupe de contrôles (textbox).
J'y arrive déjà pour une seule textbox par contre:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 Or KeyAscii <= 122 Then
MsgBox "interdit", vbOKOnly, "erreur"
End If
End Sub
Si quelqu'un pouvait m'aider...
Merci d'avance !
Jane
4 réponses
-
Merci beaucoup ! :-)
-
t es sur que c est Key press l evenement qui correpond.
C est quand la touche est relachée il me semble. En VB ??? -
Bonjour,
Change le Or par un And:
If KeyAscii >= 97 And KeyAscii <= 122 Then MsgBox "interdit", vbOKOnly, "erreur" End If
;o) -
ContributeurBonjour,
Tu est en VB6 ? je pense que oui.
Alors met tout tes TextBox avec le même nom et un index.
Comme cela tu pourras tout traiter dans une seule sub qui deviendrait..Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii >= 97 And KeyAscii <= 122 Then MsgBox "interdit", vbOKOnly, "erreur" If Len(Text1(Index).Text) > 1 Then Text1(Index).Text = Left(Text1(Index).Text, Len(Text1(Index).Text) - 1) Else Text1(Index).Text = "" End If End If End Sub
Avec en plus la suppression du caractère interdit
A+
Edit : Bonjour Polux, j'avais pas remarqué l'erreur !!
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
