Discussion :

[nuhuruine]

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 :

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

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 :

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

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.

[del-dongo]

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

Code :

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

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 :

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

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

[nuhuruine]

merci bien.