Discussion :

[Papy33]

Bonjour,

Mon problème est simple mais j'ai du mal à trouver...

Je voudrais depuis une feuille MDI Parent modifier des propriétés de contrôles d'une ou de toutes les feuilles MDI Enfants.

Mon problème est que si j'arrive bien à lire et à modifier les propriétés des feuilles elles-mêmes, par exemple pour afficher les noms des feuilles ouvertes dans la console :

Code :

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

1
2
3
4
5
6
7
8
 
        ' exemple récupération des nom des feuilles dans la console
        Dim nom As String
        For Each ChildForm As Form In Me.MdiChildren
            nom = ChildForm.Text
            Console.Write(nom & "Jusque là, ça va..." & vbCrLf)
        Next
        ' et ça marche....

Par contre je n'arrive pas à accéder aux propriétés des contrôles contenus dans les feuilles enfants...
Par exemple, si j'ai une ligne de menu appelée menuEnregistrer et que je veut le rendre inaccessible dans toutes les feuilles ouvertes

Code :

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

1
2
3
4
5
 
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.menuEnregistrer.enabled = True
        Next
        ' et ça ne marche pas....

Bien entendu, c'est le même problème avec les autres contrôles...

Code :

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

1
2
3
4
5
 
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.Label1.text = "Rien ne va plus...!"
        Next
        '  raté !....

ne marcherait pas davantage

Comment faire ?

Merci d'avance pour vos conseils avisés...

[Papy33]

Bon, désolé de vous avoir ennuyé pour rien, mais j'ai fini par trouver une solution sans trop comprendre pourquoi il aura fallu que j'en passe par là :

En rajoutant un objet feuille avec Ctype, ça marche...

Code :

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

1
2
3
4
5
6
7
 
        Dim Feuille As Form1
        For Each ChildForm As Form In Me.MdiChildren
            Feuille = CType(ChildForm, Form1)
            Feuille.Label1.Text = "Enfin, ça marche. Youpii !"
        Next
        ' et ce coup ci, ça marche.

Donc je réponds "résolu" mais s'il y en a qui connaissent d'autres trucs pour y parvenir, je reste preneur.

Bonne nuit