[VB.net][MDI]fenetreS filleS unique

Salut,

donc j'ai une MDi qui me permet de voir le réultat de plusieurs versions d'un exo.
les fenetre filles apraissent ca c'est bon.
Le pb que je rencontre :
la fenetre fille 1 ouverte ne peut pas avoir de jummelle tant qu'elle est ouverte. Ca c'est bon. Mais je fermes la fenetre et je redemande l'ouverture. et c'est là mon problème. elle ne veut pas s'ouvrir à nouveau.

donc voici le code Sur frmMDI (form de la MDI) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private MDIExo1 As Frm1 'Référence frmMDI pour frm1(ExoADO1)   Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click 'ouverture d'une seule feuille de l'exoADO1 If MDIExo1 Is Nothing Then 'Si la feuille n'existe pas MDIExo1 = New Frm1 'Instancie la feuille MDIExo1.MdiParent = Me 'attribut la fenêtre conteneur MDI MDIExo1.Show() 'Affichage la fenêtre End If End Sub   Public Sub fermeExo1() 'Libère la référence lors de la fermeture de frm1 MDIExo1 = Nothing End Sub

---

et voici le closed Sur frm1 ( premier exercice) :

Code:

---

1 2 3 4 5 6 7 8

'Traitement de données   Private Sub Frm1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed   Me.MdiParent.'Là je ne sais pas comment faire pour utiliser la procédure fermeExo1   End Sub

---

comme vous pouvez le voir j'ai trouvé, en cherchant sur le net, me.mdiparent pour utiliser le form frmMDI. Mais je n'ai accès qu'au méthode de system.windows.forms.form

merci a tous.
PS:je ne vous mais qu'une seule fille mais il y en a 4 au total. Cela n'influera pas, d'après moi sur la résolution de mon problème.

procede ainsi (désolé pour la syntaxe, je suis plutot c# :wink:

Code:

---

1 2 3

TaClasseDeLaFormMdi formParent = CType(Me.MdiParent,TaClasseDeLaFormMdi) formParent.fermeExo1

---

mais il serait plus judicieux de créer un handler sur l'évenement close de ta fenetre fille au moment ou tu la créer, style..:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

... If MDIExo1 Is Nothing Then 'Si la feuille n'existe pas MDIExo1 = New Frm1 'Instancie la feuille AddHandler MDIExo1 .Close, AddressOf MDIExo1_Close MDIExo1.MdiParent = Me 'attribut la fenêtre conteneur MDI MDIExo1.Show() 'Affichage la fenêtre End If ...   Private Sub MDIExo1_Close (sender As Object, evArgs As EventArgs) fermeExo1 End Sub

---

merci bien. :D