Erreur: La propriété 'Chars' est 'ReadOnly' sous Visual Studio 2008Résolu

Question

Bonsoir voilà encore un nouveau problème que je ne comprend pas, et ne sait résoudre...
Voilà le code ça m' évitera de mal m'exprimer.

    Sub remplacer(ByVal lettre As String) 'on va dire que la lettre est : u
        'Va permettre de remplacer "*" par la lettre quand elle a été trouvé

        Dim mot As String
        Dim cacher As String
        Dim nbr As Integer
        Dim i As Integer
        Dim motTrouver As String

        cacher = TextBox2.Text ' ici le mot est une suite d'étoiles *******
        mot = reponse.Text ' on va dire que c'est : voiture
        nbr = Len(mot) - 1

        For i = 1 To nbr
            If (lettre = mot(i)) Then

                cacher(i) = lettre

            End If
        Next
        'résultat souhaité cacher=****u**
    End Sub
Je vois a peu près mon erreur car c'est un chars et moi je le considére comme un tableau (enfin de ce que j'ai pu trouver sur google...
Mais je trouve pas de solution pour l'instant..
Je précise aussi que dans mes propriété du textbox2 le readOnly est a false,si ça peut aider.

xabidof · Accepted Answer

Enfaite j'ai réussi a trouver seul le problème, je poste la solution pour d'autre personne qui aurai le même souci.

    Sub remplacer(ByVal lettre As String) 'on va dire que la lettre est : u
        'Va permettre de remplacer "*" par la lettre quand elle a été trouvé

        Dim mot As String
        Dim cacher As String
        Dim nbr As Integer
        Dim i As Integer
        Dim chaine1 As String
        Dim chaine2 As String
        cacher = TextBox2.Text ' ici le mot est une suite d'étoiles *******
        mot = reponse.Text ' on va dire que c'est : voiture
        nbr = Len(mot) - 1

        For i = 1 To nbr
            If (lettre = mot(i)) Then

                chaine1 = Mid(cacher, 1, i - 1)
                chaine2 = Mid(cacher, i + 1, nbr)
                cacher = chaine1 & lettre & chaine2

            End If
            TextBox2.Text = cacher

        Next

        cacher = TextBox1.Text

        'résultat souhaiter cacher=****u**
    End Sub

Erreur: La propriété 'Chars' est 'ReadOnly' sous Visual Studio 2008

1 réponse

Votre réponse

Discussions similaires