Fermeture userforme et messageBox

**jijou33** · 29/07/2011, 09h10

Bonjour à tous,

Je rencontre un problème lorsque je souhaite fermer mes userformes ou mes messagebox.

En effet, j'ai plusieurs fenêtre dans mon prjet visual avec un boton suivant et un bouton précédent, c'est ce dernier qui me pose problème. Lorsque je clique dessus toutes les pages précédentes se ferment. j'utilise ce code

Me.close()

dans la fonction bouton. Je souhaiterais simplement fermer la page pour revenir à la précédente mais je reviens directement à la page d'accueil.

Idem lorsque j'utilise un messagebox, une fois que l'on a cliqué sur ok pour fermer la fenêtre toutes les pages se ferment sauf la page initial d'accueil.

Quelqu'un aurait-il une idée?

Merci d'avance pour vos réponses.

P.S. certaines messagebox fonctionnent correctement alors qu elle me semble codé sur le mm model.

**narutobaka** · 29/07/2011, 10h02

Bonjour

Je pense qu'il faut utiliser la propriété visible du formulaire.

Quand tu veux l'afficher tu verifies si ton formulaire n'existe pas déjà en mémoire et tu l'affiches en passant à true ca propriété visible, à false pour le masquer et passer à un autre formulaire.

Je sais pas si ca t'aidera

EDIT : Je viens de me rappeler que ce type de programmation s'appelle MDI
http://plasserre.developpez.com/cour...ws-forms1#LX-D

++

**Chapeau_Bas** · 29/07/2011, 10h11

Bonjour,

Utilises-tu les propriétés MDI?
Ta feuille principale doit être en "UseMdiContainer = True".
Ensuite, quand tu crée une feuille, elle doit être enfant de cette feuille principale:

Dim MdiChild as new "Feuille" (Nom de ta feuille)
MDIChild.MdiParent = Me
MDIChild.Show()

Ainsi, quand tu utilises la propriété me.close, seul la feuille enfant instancié et fermé.

En espérant t'avoir aider.
Bonne journée.

Ps: Attention a la différence entre .show et .showdialog aussi...

**narutobaka** · 29/07/2011, 10h41

plop

ah bah le temps que j'edite mon poste (s'etait la pause cafe) chapeau_bas t'as indiqué la méthodologie

++

**jijou33** · 29/07/2011, 11h48

Dsl mais ça ne fonctionne pas.

Je travail sous visual basic express 2005 pour info.

Par ailleurs, est ce que je devrais ajouter un intitulé en en-tête comme un Imports?

**Chapeau_Bas** · 29/07/2011, 12h28

Hum....

Disons que Frm_Princ est ta feuille principale.
Quand tu cliques sur Suivant de Frm_Princ, sa t'ouvres une nouvelle feuille. (Nommé Frm_1)

Dans ta fonction btn.clic tu dois avoir:

Dim Mdi1 as new Frm_1
MDI1.MdiParent = Me
MDI1.Show()

Ensuite, sur Frm_1 tu as deux boutons: Précédent et Suivant.
Suivant te permet d'ouvrir Frm_2
Dans précédent tu met :

Me.Close

Dans Suivant:

Dim Mdi2 as new Frm_2
MDI2.MdiParent = Frm_Princ
MDI2.Show()

Et ainsi de suite. Normalement, sa devrais fonctionner Il devrait te fermer que la feuille spécifié. (En ayant spécifié que Frm_princ est ta feuille principale par la propriété IisMdiContainer...)

De quel intitulé ou en-tête parles tu?

**jijou33** · 29/07/2011, 21h36

Merci de ta réponse.

VB 2005 Express ne reconnait pas la fonction MDI...

Mon code dans suivant était:

Mon code:

Dim page_suiv As New Page_suiv
page_suiv.ShowDialog()

' Dans le bouton suivant.

Ça m'ouvre correctement ma page pas de problème mais dans précédent, j'avais bien

Mon code:

Me.Close ()

' Dans le bouton précédent mais ferme l'ensemble de ttes les pages précédentes.

Le problème est que justement ça ne fonctionne pas pour toutes mes fenêtre... Sur mes trois fenêtres une effectue le précédent correctement. Idem pour les messageBox mm code et certaines ce ferme lors du clic pour les autres elles ferment l'ensemble de l'application.

Pour l'imports je pensais à une fonction du type Imports.System. ?????

Voilà je ne comprends vraiment pas dsl.

**Chapeau_Bas** · 01/08/2011, 11h13

Utilise .show à la place de .showdialog.

**jijou33** · 01/08/2011, 14h34

Ok je vais essayé avec .show

Le pb c'est que je n'ai pas accès à la bibliothèque mdi avec avec vb 2005 express... enfin la fonction n'est pas reconnue.

Par contre, il y a .Parent qui existe je vais essayé de creuser ça.

**Chapeau_Bas** · 01/08/2011, 14h54

Oui c'est vraiment étonnant.
Tu n'as pas du tout la propriété "Ismdicontainer" quand tu vas sur une feuille en mode design et sur les propriétés?

Je n'ai jamais développé avec 2005 Express donc je ne sais pas si sa change, mais sa me paraît étonnant que les MDI ne fonctionne pas. Normalement tu ne devrais pas avoir a importé des classes pour sa.

Je doute que .parent puisse t'être utile, c'est un propriété pour le contrôle et non la form il me semble. Enfin vérifie tout de même, je peux être dans l'erreur.

Bon courage.

**jijou33** · 01/08/2011, 15h14

Chapeau_Bas dsl, effectivement j'ai bien MdiParent, lorsque j'avais copier ta fonction pour test en remplaçant form1 par mon nom de formulaire il y avait eu beug.

Là ça fonctionne correctement fait les liens grâce à ton second poste mais effectivement j'ai un pb avec UseMdiContainer = True que je n'arrive pas à déclarer.

IL faut mettre Ismdicontainer= true?

Pour mes messagesbox, certains fonctionnent et d'autres non. J'ai remarqué que c'était parfois selon l'emplacement dans mes if, elseif etc... est-ce que c'est moi qui cherche des liens la ou il n'y en a pas ou est-ce que ça peut expliquer pourquoi certaines messagbox ferment l'application tte entière quand on clique sur ok et d'autres non alors que j'utilise tjrs le mm code...?

**Chapeau_Bas** · 01/08/2011, 15h28

L'utilisation de showdialog ouvre la fenêtre désirée et garde le focus quoiqu'il arrive. Cette fenêtre se ferme dès qu'il y a un clic considéré comme "ok" pour faire simple...

Pour IsMdiContainer :
Tu te met en mode design. Tu regardes dans les propriétés à droite et tu met la propriété a true.

Ou alors au chargement de ta feuille principale tu met :

Me.IsMdiContainer = True

(Cette propriété est a utilisé une seule fois, elle définie la feuille principale de ton application.)

Ensuite, en déclarant tes feuilles suivantes comme filles (voir les codes postés précédemment), et en les appelant avec .show, tu devrais avoir qu'une seule feuille qui se ferme à la fois.

Pour tes messagebox, sa dépend leurs utilisations (si c'est sur une feuille enfant ou la feuille principale. Si tu utilises me.close sur ta feuille principale, toute l'application est fermée)
Le mieux, c'est que tu postes un exemple de code je pense si tu as encore des problèmes après ce message.

**jijou33** · 01/08/2011, 15h33

Chapeau_Bas

Alors effectivement, j'avais déjà touché à la fonction IsMdicontainer mais j'avais eu un pb que je rencontre encore c'est à dire que le fond de mon formulaire est "vide" et que la page suivante s'affiche dans ce "vide" mais l'interface de ma première page reste devant...

Ces modifications agissent aussi sur mes messagebox...

Edit

Pour info j'ai correctement déf IsMdiContainer une fois et j'ai utilsé ton code "fille" pour les autres.

**Chapeau_Bas** · 01/08/2011, 15h42

Oui, normalement ta feuille principale est une feuille du genre : menu d'openoffice avec: fichier, administration, article outils, aide...

En gros, ta feuille principale sert de container aux autres pages. Elle sert d'ancrage aux autres feuilles. Normalement tu ne dois pas mettre d'interface dans cette feuille, c'est les feuilles que tu appelles qui doivent en possédés. Après sa dépend ce que tu programmes exactement....

**jijou33** · 01/08/2011, 15h49

Je n'avais pas pensais à ça du coup il faut que je mette une feuille vierge ou j'appellerai les autres feuilles dans un load?

**Chapeau_Bas** · 01/08/2011, 15h58

Hum... mouais, sa peut être une solution.

Tu met une feuille principales, une feuille type "menu" comme pour word avant d'ouvrir un fichier...

Tu peut mettre un menu en haut de type "MenuStrip" par exemple, en propriété "Dock = top". Cette feuille sera la base de ton application.

Ensuite, tu met un bouton commencer dans ton menu, et la, quand tu cliques dessus, sa ouvre ta première feuille. (En déclarant la feuille comme précédemment expliqué...) Et ensuite tu peux t'amuser à mettre autant de feuille que tu veux, elles resteront ouvertes et se fermeront une par une. les messages box seront semblables dans tout les cas normalement.

Attention, MDIForm.mdiparent = doit être toujours ta feuille principale.

C'est à dire que quand tu commences ton développement, le bouton commencer mettra

MdiForm.mdiparent = me.

Et ensuite, quand tu auras une feuille ouverte, et que par cette feuille, tu veux en ouvrir une autre:

MdiForm.mdiparent = feuilleprincipale.

Voila, en espérant que c'est assez clair et que tu approches de la solution.