VB Interdire un caractère
Résolu
Jane02
-
Jane02 -
Jane02 -
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
-
Bonjour,
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) -
Bonjour,
Change le Or par un And:
If KeyAscii >= 97 And KeyAscii <= 122 Then MsgBox "interdit", vbOKOnly, "erreur" End If
;o) -
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 ??? -
