Discussion :

[Sebcaen]

Bonjour,
J'essaye dans mon programme de faire apparaître une fenêtre "modal". Voici un extrait du code:

Code :

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

1
2
3
4
 
recupPrivilege 'Procédure simple
frm_Delegation.Show 1 'Appel de la fenêtre *
Load Frm_Mail 'Form suivante

J'essaye donc d'ouvrir la fentre en seconde ligne (*) et le problème c'est que le code se poursuit après que les évènements dans le Form_load() de celle ci, soient terminés, et charge la fenêtre suivant (Frm_Mail). Note: le code ci dessus se déroule dans un module.

Merci de votre aide.

[Le Pharaon]

Et si tu chargeais Frm_Mail dans l'évenement activate ou load de frm_Delegation ?

[Sebcaen]

C'est pas si simple, j'ai simplifié le code mais il y a des tests avant et après. De plus même si le Load Frm_Mail serait chargé dans la fenetre que je veux modale, le code continuerait après encore.

[Delbeke]

Fais un msgbox juste avant la ligne

Code :

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

Load Frm_Mail

Je suis certain que le messagebox ne sera declenché que quand la feuille frmdelegation sera fermée ou masquée (soit unload me soit me.hide)

Si la feuill frm_mail se charge avant le msgbox , c'est que le code dans frmdelegation reference la feuille form_mail quelque part, impliquant son chargement

[Sebcaen]

Non la msgbox s'affiche, et je suis certain qu'aucune référence n'est faite à frm_mail dans le code de frmdelegation.

Ne serait-ce pas du à des propriétés de la feuille delegation (MDI child, ou quelque chose dans ce genre?)

edit:Oui c'était bien une histoire de mdi child à vrai...

[sovo]

J'essaye donc d'ouvrir la fentre en seconde ligne (*) et le problème c'est que le code se poursuit après que les évènements dans le Form_load() de celle ci, soient terminés, et charge la fenêtre suivant (Frm_Mail).

Tout a fait normal, car ne lui demande que d'afficher frm_Delegation et une fois charger tu lui demande de passer a l'instruction suivante, ce qu'il fait.

Si je devine bien, tu voudrais arreter l'execution du code pour executer des fonctions (ou procedures) de frm_Delegation avant de passer a Frm_Mail ?? si tel est le cas alors voila une procedure qui poura resoudre ton probleme.

tu declares une variable (public).
tu lui donnes une valeur
tu modifis ca valeur a la fin des taches de frm_Delegation
ensuite dans ton code (module) tu fait

Code :

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

1
2
3
4
5
6
recupPrivilege 'Procédure simple
frm_Delegation.Show 1 'Appel de la fenêtre *
while valeur_Non_Changer
    DoEvents
wend
Load Frm_Mail 'Form suivante

Ca devrais attendre la fin de l'execution des taches de frm_Delegation ensuite continuer a executer la suite du code (charger Frm_Mail)

[Delbeke]

Fais un petit exemple
Dans un projet tu ajoutes deux feilles et un module
dans le module colle le code ci-dessous

Code :

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

1
2
3
4
5
Sub main()
  Form1.Show 1 ' on peut utiliser la constante de vb VbModal à la place de 1
  MsgBox "ok"
  Form2.Show
End Sub

Dans les propriétés de ton projet, met Sub Main comme objet de démarrage
Quand tu executes, le messagebox ne s'affichera que lorsque form1 sera fermée, pas avant

Maintenant, modife la sub main comme suit

Code :

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

1
2
3
4
5
Sub main()
  Form1.Show 
  MsgBox "ok"
  Form2.Show
End Sub

Dans ce cas, la form1 s'affiche et le messagebox est declenché en même temps.

la deuxieme feuille s'affichera apres fermeture du messagebox

[Delbeke]

Oups , je n'avais pas vu ton edit