Changer l'arrière plan des forms dans une application MDI

Bonjour,:D

Pour mon projets sous VB6(application MDI), j'ai réalisé deux sous-menu : "img1" et "img2" dans la form principale, cocher l'un des deux = affecter une image unique (en exécution) à la propriété picture de toutes les forms (mère et enfants).

Le problème c'est que quand je coche l'un des deux toutes les forms sont chargées :cry: ; moi, je veux changer l'arrière plan des forms sans que ces dernières apparaissent.

Veuillez me corriger ce problème SVP.;)

Sincères salutations. :)

Citation:

---

Envoyé par zentaf

Veuillez me corriger ce problème SVP.;)

---

Avec du code ca serait plus faisable...


~~ La Praline ~~
... un choco aboulle ton code mec' !

Alors le truc hyper compliqué :

Quand tu cliques sur ton menu1 tu affectes à une variable (public si possible) le nom de ton image1 et quand tu cliques sur ton menu2 tu affectes à cette variable le nom de ton image2

Et quand tu charges une feuille tu affectes à la propriété picture le nom contenu dans la variable.

C'est pas ça le problème ; Le problème est le suivant:
Quand je clique sur l'un des sous-menu toutes les feuilles concernées se chargent alors que moi je ne veux pas les faire apparaitre à ce moment... Compris?

Plutot que de me demander si j'ai compris, dis toi que si on ne résoud pas ton problème c'est parce que tu ne donnes pas les clés pour qu'on le fasse. Pas un exemple de code, rien. ON DOIT TOUT DEVINER ?

Voici une partie du code (application MDI):

Code:

---

1 2 3 4 5 6 7 8 9 10 11

if menu1.checked=true then mère.picture=loadpicture("c:\img1.jpg") enf1.picture=loadpicture("c:\img1.jpg") enf2.picture=loadpicture("c:\img1.jpg") end if   if menu2.checked=true then mère.picture=loadpicture("c:\img2.jpg") enf1.picture=loadpicture("c:\img2.jpg") enf2.picture=loadpicture("c:\img2.jpg") end if

---

Je veux à tout instant(quelque soit la form active) pouvoir changer l'arrière plan de toutes les fenêtres.(mère et enfants).

Mon problème c que quand une fenêtre quelconque est active et je change l'arrière plan par un clic sur l'un des deux sous-menu, il y aura un changement mais les forms autres que l'active s'affichent... Moi, je ne veux pas ça : je veux que l'arrière plan change sans l'apparition des fenêtres autres que l'active.

Je pense que j'ai tout détaillé...;)

Dans MSDN, on peut lire ça :

Citation:

---

Lorsque vous faites référence dans le code à une propriété d'une feuille non chargée, celle-ci se charge automatiquement mais elle n'est pas systématiquement visible, à moins que la propriété MDIChild n'ait la valeur True.

---

Donc ne t'étonnes pas trop que tes feuilles apparaissent...

Il va donc à priori falloir trouver autre chose, un moyen possible (je ne dis pas que ce soit le seul) est donc de stocker dans des variables publiques le nom de l'image que tu veux afficher et le fait qu'une feuille soit chargée ou non (Il y a peut etre d'autres moyens de savoir si une feuille est chargée ou pas mais cette méthode est simple à comprendre...)


Les variables publiques doivent bien sur etre déclarées dans un module séparé. Là encore je fais pas dans l'élgant, je mets une variable par feuille, y'a évidemment moyen de rendre le truc plus léger mais mon but n'est pas de faire tout le code à ta place..

Code:

---

1 2 3 4 5 6

Option Explicit   Public Feuille1Chargee As Boolean Public Feuille2Chargee As Boolean Public ImageDeco As String

---

Dans ta feuille MDI tu peux donc avoir ce code, avec 2 menus qui provoquent l'affichage d'une image differente :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub menu1_Click() ImageDeco = "Image1.jpg" If Feuille1Chargee = True Then Frm1.Picture = LoadPicture(ImageDeco) End If If Feuille2Chargee = True Then Frm2.Picture = LoadPicture(ImageDeco) End If End Sub   Private Sub menu2_Click() ImageDeco = "Image2.jpg" If Feuille1Chargee = True Then Frm1.Picture = LoadPicture(ImageDeco) End If If Feuille2Chargee = True Then Frm2.Picture = LoadPicture(ImageDeco) End If End Sub

---

Dans tes feuilles filles tu auras un truc comme ça pour mettre en mémoire que la feuille est chargée ou non et pour charger l'image si nécessaire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Private Sub Form_Load() Feuille1Chargee = True Me.Picture = LoadPicture(ImageDeco) End Sub   Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Feuille1Chargee = False End Sub

---

Je pense que, si une feuille est chargée mais non visible, on doit pouvoir la modifier sans qu'elle apparaisse.

Oui, mais si c'est une feuille fille MDI si tu la charges elle est visible de suite. Il faudrait alors charger toutes les feuilles filles en début de programme et les rendre invisibles immédiatement. C'est faisable bien sur mais en focntion du nombre de feuilles filles, ca peut en faire beaucoup de chargées pour rien.

utiliser la collection Forms + l'astuce de monbateau au début de ce topic, c'est pas sorcier ;)

Et si , dans l'evenement form_load des toutes les feuilles filles tu faisais

Code:

---

1 2 3

Private sub Form_Load() Me.Picture=mère.Picture End sub

---

et dans la feuille mere

Code:

---

1 2 3 4 5 6 7 8 9 10

if menu1.checked=true then mère.picture=loadpicture("c:\img1.jpg") else mère.picture=loadpicture("c:\img2.jpg") end if 'mettre à jour les feuilles dèjà chargées dim frm As Form for each frm in Forms frm.pciture = me.picture next

---

ca serait pas plus simple ?

Delbeke> Dans quel évt inscris-je le code de la form mère?