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
A voir également:
- VB Interdire un caractère
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Caractere vide - Guide
- Caractere speciaux mac - Guide
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..
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)
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:
;o)
Change le Or par un And:
If KeyAscii >= 97 And KeyAscii <= 122 Then
MsgBox "interdit", vbOKOnly, "erreur"
End If
;o)
