Discussion :

[zentaf]

Bonjour,

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 ; 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.

[La Praline]

Veuillez me corriger ce problème SVP.

Avec du code ca serait plus faisable...


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

[OhMonBato]

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.

[zentaf]

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?

[OhMonBato]

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 ?

[zentaf]

Voici une partie du code (application MDI):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é...

[OhMonBato]

Dans MSDN, on peut lire ça :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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

[OhMonBato]

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.

[ThierryAIM]

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

[Delbeke]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et dans la feuille mere

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[zentaf]

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