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

Messages postés
4
Date d'inscription
mardi 6 mai 2008
Dernière intervention
20 novembre 2009
- - Dernière réponse : xabidof
Messages postés
4
Date d'inscription
mardi 6 mai 2008
Dernière intervention
20 novembre 2009
- 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 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
4
Date d'inscription
mardi 6 mai 2008
Dernière intervention
20 novembre 2009
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

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.