Picture box et fichier texte enregistrement ... regardez

Messages postés
8
Date d'inscription
mercredi 11 décembre 2002
Statut
Membre
Dernière intervention
20 mars 2010
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Salut a tout ceux qui viendront voir ce message .... j'ai un gros probleme en visual basic : j'ai une form qui contient deux picturebox , jusque la ok ... a ces picturebox j'associe a chacune une commondialog pour selection de couleurs qui remplacera la couleur de fond de la picture box , c'est toujours ok . Mais le pb c'est que j'essai de faire depuis trois jours c'est d'enregistré (lorsque je quitte ma form )
la couleurs de fond des pictures box dans un fichier texte de façon a ce que quand je quitte le prog et que j'y retourne , la form ouvre les fichier texte et y prend les donées qui fera que les pictures box seront a la couleur quand j'ai quitté le prog...!!!!!!!!!!!!! vous avez compris ?? si oui .. comment faire ?????? ce serait vraiment cool de m'aider car la j'suis au bout :'(
Merci beaucoup :)

Vb c'est comme la télé , j'arrete pas d'y pensée =) .:MouAH:.

5 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Il te suffit de taper ceci dans Form_Unload :

Open App.path & "\sauvegarde.txt" for output as #1

Print #1, Picture1.backcolor, Picture2.backcolor

Close #1

Et tape ceci dans form_load :

Dim STR_Couleur(1) as String

Open app.path & "\sauvegarde.txt" for input as #1

Input #1, LNG_Couleur(0), LNG_Couleur(1)

Picture1.backcolor = Clng(STR_Couleur(0))
Picture2.backcolor = Clng(STR_Couleur(1))

Close #1

Normalement ca doit marcher, mais comme je fais ca de tête, on ne sait jamais, réponds si ca ne marche pas.

DARK SIDIOUS
Messages postés
8
Date d'inscription
mercredi 11 décembre 2002
Statut
Membre
Dernière intervention
20 mars 2010

Merci beaucoup pour cette reponse...mais ça ne marche pas , peux tu testé et me dire ce qui va pas???????
Vb c'est comme la télé , j'arrete pas d'y pensée =) .:MouAH:.
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Oui exact, je me suis trompé dans les variables voilà la fonction corrigée (dans form_load :

Dim str_couleur(1) As Long

Open app.path & "\sauvegarde.txt" For Input As #1

Input #1, str_couleur(0), str_couleur(1)

Picture1.BackColor = CLng(str_couleur(0))
Picture2.BackColor = CLng(str_couleur(1))

Close #1

DARK SIDIOUS
Messages postés
8
Date d'inscription
mercredi 11 décembre 2002
Statut
Membre
Dernière intervention
20 mars 2010

merci mais il me met une erreur d'execution n°62 l'entrée depasse la fin du fichier , tu serais comment y remedier???? merci de repondre
Vb c'est comme la télé , j'arrete pas d'y pensée =) .:MouAH:.
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Ah ben ca c'est bizarre, puisqu'il marche très bien chez moi ce code... Va voir dans le fichier sauvegarde.txt ce qu'il y a marqué, et vérifie qu'il y a deux nombres...

DARK SIDIOUS