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

xabidof 4 Messages postés mardi 6 mai 2008Date d'inscription 20 novembre 2009 Dernière intervention - 20 nov. 2009 à 18:23 - Dernière réponse : xabidof 4 Messages postés mardi 6 mai 2008Date d'inscription 20 novembre 2009 Dernière intervention
- 20 nov. 2009 à 19:12
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.
Afficher la suite 

1 réponse

Répondre au sujet
xabidof 4 Messages postés mardi 6 mai 2008Date d'inscription 20 novembre 2009 Dernière intervention - 20 nov. 2009 à 19:12
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de xabidof

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.