VB Interdire un caractère
Résolu
Jane02
-
Jane02 -
Jane02 -
A voir également:
- VB Interdire un caractère
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Caractere vide - Guide
- Vb - Télécharger - Langages
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)
