Bonjour à tous,
Je voudrais trouver un code qui me permette de transformer un caractère en un autre.
Pas forcément au moment de la saisie d'ailleurs!
Merci beaucoup!

si c'est dans une chaîne tu regardes la fonction Replace:

NouvelleChaine  = Replace ( AncienneChaine, "A", "B")

au cours de la saisie, faut le faire dans l'évênement KeyPress

Daniel

Salut,
Dans le keypress, pour reprendre l'exemple de Daniel, l'équivalent serait  :

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 65 Then KeyAscii = 66
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Ca depend aussi de ce que tu veux faire.
Si c'est pour l'affichage "password", avec un caractere * ou un autre de ton choix, l'option existe dans les textbox.

Si pour un cryptage, il existe quelques fonctions classiques qui permettent deja de s'occuper. La plus simples, et donc la plus connue,  c'est le XOR (OU exclusif) avec une valeur comprise entre 1 et 254 (0 et 255 à proscrire).
Exemple :
           0100 0001 (65)         > A
XOR   0001 0100 (20)
-------------------------------------
           0101 0101 (85)         > U

J'espere que ca peut t'aider.



PrX

Merci pour toutes ces réponses.
Cependant étant donné que je débute (au sens propore du terme).
J'ai quelques jours d'experience à peine!
Il y a des trucs que je ne comprends pas.
Daniel, peux-tu me dire ce que je dois faire plus exactemen, svp?
Canislupus la touche 65, c'est laquelle?
Merci

la touche 65 c'est la touche "A"
tu peux aussi utiliser les constantes de vb:
   vbkeyA, vbkeyB,   vbKeyReturn, etc ...


la fonction Replace citée ci-dessus remplacera tous les caractères "A" par le caractère "B", elle n'est pas limitée au caractères, elle peut aussi remplacer des chaînes complètes.

'pour la saisie ça peut se présenter comme ça
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 65: KeyAscii = 66
' équivallent à  -->   Case Asc("A"):  KeyAscii = Asc("B")
        End Select
End Sub



 

Daniel

Que de bonnes réponses.......
Mais j'ai toujours un problème.
Mon programme se presente de la façon suivante :
Je rentre le texte ds 1 premier textbox.
1 bouton copi le texte dan 1 secon textbox.
Mé voila jarive pa a fr en sorte ke la copi soi modifié.
Ou fo-t-il ke je tape le code?
Merci d'avance!

Tom89

Text2.Text  = Replace (Text1.Text, "A", "B")

Daniel