Bonjour, on va dire que la programmation c'est nouveau pour moi...Trois jours que je regarde les tutos sur le VB.NET (bravo d'ailleurs à l'auteur), là bon j'ai sans doute survolé trop vite un ou deux chapitres et je me retrouve coincée...

(Mon projet là c'est une : "Application Windows Forms")

Quelqu'un pourrait-il m'aider ?

Je m'explique : Je suis entrain de faire un programme pour faire des messages codés (genre a = 1, b=2...etc), mon probleme est le suivant :

Sur une fenêtre :

J'ai deux Richtextbox. En théorie on écrit son message dans la première Richtextbox, on clique sur le bouton "crypter",le message apparaît crypté dans la seconde Richtextbox.
Si rien est écrit dans la première Richtextbox ça affiche un message d'erreur.

Actuellement, j'arrive à faire afficher le message d'erreur quand ça va pas, pas contre le texte n'est pas "crypté"...

Mon idée est d'utiliser "Replace()", le but est de remplacer une lettre par une autre dans le texte final (exemple "a" = "1-", "b" = "2-" et etc.) mais j'y arrive pas...

Si quelqu'un peut voler à ma rescousse ! Merci !

Peux-tu poster ton code?
Ca serait plus simple pour t'aider

Voilà le passage du code qui nous intéresse:

Dim strBuilder As New StringBuilder()
Dim containsDigits As Boolean = False
For Each car As Char In TXT_messagebase.Text
If Char.IsUpper(car) Then
strBuilder.AppendFormat("{0:d2}", Convert.ToInt32(car) - 64)
Continue For
ElseIf Char.IsLower(car) Then
strBuilder.AppendFormat("{0:d2}", Convert.ToInt32(car) - 96)
Continue For
ElseIf Char.IsDigit(car) Then
containsDigits = True
End If
strBuilder.AppendFormat(car)

Finalement, ça marche comme ça, cependant, j'aimerais rajouter un "-" ou un "." après chaque caractère car sinon on ne fait pas la différence entre un 2 suivi d'un 6 et 26...

Une idée ?

Tu pourrais faire plusieurs mini- rich text box dans lesquels tu mettrait les différents numéros.

Plusieurs Mini Rich TextBox? Bonjour l'interface après :s

Pourquoi pas ceci?

Dim strBuilder As New StringBuilder()
Dim containsDigits As Boolean = False

For Each car As Char In TXT_messagebase.Text
    If Char.IsUpper(car) Then
        strBuilder.AppendFormat("{0:d2}", Convert.ToInt32(car) - 64)
    ElseIf Char.IsLower(car) Then
        strBuilder.AppendFormat("{0:d2}", Convert.ToInt32(car) - 96)
    ElseIf Char.IsDigit(car) Then
        containsDigits = True
    End If
   
   strBuilder.Append(".")
Next

strBuilder.AppendFormat(car)

Bien sur il faudrait retirer le dernier "." si ça fonctionne avec la méthode SubString(ça fait des années que j'ai plus fait de VB ^^)