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

Signaler
Messages postés
4
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
20 novembre 2009
-
Messages postés
4
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
20 novembre 2009
-
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.

1 réponse

Messages postés
4
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
20 novembre 2009

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