Discussion :

[Jb-One36]

Bonjour à tous,

Je débute dans la programmation VB.Net, je suis entrain de me concevoir un petit programme mais mon soucis est sur les formulaires.

J'ai créé une fenêtre MDI (jusque là pas de problème) en revanche je ne sais pas comment faire pour créer une fenêtre fille. De plus si celle-ci est créée comment faire pour savoir si elle est ouverte OUI ou NON ?

Je vous remercie d'avance pour vos réponses.

@ +

Jb_One36

[Aspic]

Salut, essaye cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
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

[Jb-One36]

Merci pour ton code Aspic.

Je viens de le tester, il fonctionne bien sauf qu'il y a un hic. Si je ferme la fenêtre je ne peux plus ouvrir de nouveau celle-ci.

Le contrôle fonctionne si celle-ci est déjà ouverte mais en cas de fermeture je ne peux plus ouvrir celle-ci.

Merci d'avance pour ta réponse.

Jb_One36

[Aspic]

Dans l'evenement close de ta form mets ca :

Code :

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

1
2
Dim formParent As TaClasseDeLaFormMdi = CType(Me.MdiParent,TaClasseDeLaFormMdi)
formParent.fermeExo1

[Jb-One36]

Désolé Aspic,

J'essai ton code mais là à dire vrai je ne sais pas comment faire.
Dans les événements de ma fenêtre je ne trouve pas l'événement "Close" (pour info j'utilise VB 2005 Express donc peut être que je n'ai pas accès à toutes les fonctions ...). De plus je ne comprends pas ce que tu veux dire par TaClasseDeLaFormMdi enfait si tu pouvais me décrire ce que tu fais exactement ça m'aiderait beaucoup.

Merci quand même de ton aide et désolé de ne pas tout comprendre mais les début en VB.Net son relativement dure.

Jb_One36

[Aspic]

Désolé Aspic,

J'essai ton code mais là à dire vrai je ne sais pas comment faire.
Dans les événements de ma fenêtre je ne trouve pas l'événement "Close" (pour info j'utilise VB 2005 Express donc peut être que je n'ai pas accès à toutes les fonctions ...). De plus je ne comprends pas ce que tu veux dire par TaClasseDeLaFormMdi enfait si tu pouvais me décrire ce que tu fais exactement ça m'aiderait beaucoup.

Merci quand même de ton aide et désolé de ne pas tout comprendre mais les début en VB.Net son relativement dure.

Jb_One36

Salut si tu fermes ta fenetre fille, tu cliques sur le croix ou alors sur un bouton...

Ensuite pour la réouvrir tu cliques sur un bouton je suppose ?

Donc dans le code de ce bouton :

Code :

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

1
2
3
4
5
6
'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

Et puis normalement meme si tu la refermes et que tu la reouvres, tu n'auras pas d'erreur...

Sinon donne le ligne où l'erreur se produit et la description de l'erreur.