3 réponses
Sub Text1_Change
If Text1.Text = "" Then Exit Sub
z$ = Text1.Text
For a = 1 To Len(z$)
t$ = Mid$(z$, a, 1)If UCase$(t$) "A" Then t$ "@"If UCase$(t$) "S" Then t$ "§"If UCase$(t$) "C" Then t$ "©"
Mid$(z$, a, 1) = t$
Next
Text1.Text = z$
Text1.SelStart = Len(Text1.Text)
end Sub
C'est un exemple, comme un autre.
Int19h
If Text1.Text = "" Then Exit Sub
z$ = Text1.Text
For a = 1 To Len(z$)
t$ = Mid$(z$, a, 1)If UCase$(t$) "A" Then t$ "@"If UCase$(t$) "S" Then t$ "§"If UCase$(t$) "C" Then t$ "©"
Mid$(z$, a, 1) = t$
Next
Text1.Text = z$
Text1.SelStart = Len(Text1.Text)
end Sub
C'est un exemple, comme un autre.
Int19h
Vous pouvez utiliser l'événement KeyPress associé au TextBox text1.
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Vous pouvez écrire ici le code que
'vous désirez pour pour changer les
'caractères
KeyAscii = 0
End Sub
N.B: Le principe de fonctionnement est
que l'événement KeyPress n'écris pas directement dans le textBox, mais il nous permet d'intercepter la touche pressée, qu'on pourra analyser pour faire tout ce qu'on veux. Bonne Chance.
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Vous pouvez écrire ici le code que
'vous désirez pour pour changer les
'caractères
KeyAscii = 0
End Sub
N.B: Le principe de fonctionnement est
que l'événement KeyPress n'écris pas directement dans le textBox, mais il nous permet d'intercepter la touche pressée, qu'on pourra analyser pour faire tout ce qu'on veux. Bonne Chance.