Picture box et fichier texte enregistrement ... regardez

cs_mouah Messages postés 8 Date d'inscription mercredi 11 décembre 2002 Statut Membre Dernière intervention 20 mars 2010 - 11 déc. 2002 à 21:40
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 15 déc. 2002 à 15:08
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

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
12 déc. 2002 à 06:36
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
0
cs_mouah Messages postés 8 Date d'inscription mercredi 11 décembre 2002 Statut Membre Dernière intervention 20 mars 2010
12 déc. 2002 à 22:48
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:.
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
13 déc. 2002 à 07:29
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
0
cs_mouah Messages postés 8 Date d'inscription mercredi 11 décembre 2002 Statut Membre Dernière intervention 20 mars 2010
13 déc. 2002 à 16:46
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:.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
15 déc. 2002 à 15:08
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
0
Rejoignez-nous