Discussion :

[Aspic]

Salut à tous,

Je vais sans doute poser une question débile mais je n'arrive pas à lister toutes les forms de mon projet !

En 2.0, il y a la propriété OpenForms mais cela ne me convient pas

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub OuvrirEnigme(ByVal name As String)
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is Form Then 'vérifie que c'est une form
                If ctrl.Name = name Then
                    ctrl.Show()
                    Me.Dispose()
                Else
                    MsgBox("impossible de trouver")
                End If
            End If
        Next
    End Sub

Et j'ai remarqué que les forms ne sont pas listées, normal puisque ce ne sont pas des controles...

Voilà merci à tous

[Bluedeep]

Et j'ai remarqué que les forms ne sont pas listées, normal puisque ce ne sont pas des controles...

Si, les Form héritent de Control.
Le problème dans ton code, c'est d'où apelle tu ton "Me.Controls" ?
Tel que c'est codé, cela ne retourne rien car on ne fait pas (a priori) de Add d'une Form dans la collection Controls d'une autre.

[Aspic]

Effectivement, ce code est appelé dans une form donc il me liste seulement les controles de cette form. Or moi je souhaiterais lister toutes les forms du projets.

Merci

EDIT : J'en suis sur que la réponse se trouve dans System.Windows.Forms.FormCollection mais je ne trouve rien

[olsimare]

Bonjour.

Eh non, la réponse se trouve dans l'assembly !

Un exemple :

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
 
Imports System.Reflection
Imports System.Threading
 
...
 
        Dim a As Assembly = System.Reflection.Assembly.GetAssembly(Me.GetType)
        'Dim ad As AppDomain = Thread.GetDomain
        'For Each a As Assembly In ad.GetAssemblies
        For Each t As Type In a.GetTypes
            If GetType(Form).IsAssignableFrom(t) Then
                Console.WriteLine(t.FullName)
            End If
        Next
        'Next

Ca doit lister tout ce qui est ou hérite de form.

Je te laisse tester les lignes en commentaire, pour voir.

Si tu as plusieurs assembly faut faire le truc pour chacun évidemment.

MP : l'article sur le combobox avance, faut pas désepérer ...

Question : Ca vaut le coup en FAQ ?

Cdt.

[Aspic]

Salut,

Ton code liste effectivement toutes les forms du projet ! Le soucis est que je souhaiterais récupérer l'objet (Form) en fonction de son Nom. Or avec ton code, je n'arrive pas à récupérer l'objet Form associé...

PS : Tout dépens de toi, en fait une entrée pour les FAQs c'est généralement une question récurrente dont la réponse est relativement courte sinon ca passe dans la catégorie Source ou alors si tu souhaites t'y investir plus (commenter le code, mettre un exemple...), tu peux en faire un tutos

[SirJulio]

Salut Aspic,

as tu essayé la propriété static Application.OpenForms (qui te renverra un FormCollection d'ailleurs) ? Par contre, je ne sais pas, si la collection renvoyé liste pour le thread en cours, ou sur toute l'appli.

Bon courage. =)

Edit : pas vu que tu avais deja essayé. Cela ne convient pas ? Que cherche tu precisement ?

[Bluedeep]

Ca doit lister tout ce qui est ou hérite de form.

Euh oui ... mais visiblement ce qui l'intéresse c'est de lister les instances pas les types.

Ce serait pas mal que Aspic précise un peu plus quel est son objectif ou son besoin fonctionnel (même si il me semble évident que la réponse de Olsimare est inappropriée).

[Aspic]

Oui donc Olsimare a compris je pense, je ne cherche pas à récupérer les forms ouvertes car il y a déjà) une méthode pour ca (OpenForm dans l'espace de nom MY).

Je veux récupérer un objet (Form) de mon projet (form ouverte ou pas) en fonction de son nom

J'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim a As Assembly = System.Reflection.Assembly.GetAssembly(Me.GetType)
        For Each t As Type In a.GetTypes
            If GetType(Form).IsAssignableFrom(t) Then
                If t.FullName = name Then
                    Dim f As Object = Activator.CreateInstance(t) 'mais ca ne marche pas ici
                                        Dim f As Object = Activator.CreateInstance(GetType(Form)) 'idem
             End If
            End If
        Next

Je n'arrive pas a récupérer le Form !

Merci à tous