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 ?

[SaumonAgile]

J'ai du mal à saisir ton besoin, tu veux lister les formulaires ouverts à un moment donné ou bien tu veux connaitre tous les formulaires contenus dans le projet ?
Si c'est la deuxième méthode, le code d'olsimare fonctionne, il faut simplement faire un Activator.CreateInstance en lui passant le type du formulaire pour en obtenir une instance.

[olsimare]

Bonjour.

Aspic, ca peut se faire via reflection avec assembly.createinstance(nom complet de l'instance).

Au besoin je te mets un exemple ce soir (je suis au boulot et j'ai pas VS !).

Cdt.

[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

[SaumonAgile]

Tu pourrais être plus précis que "ça marche pas" stp ?
Qu'est ce que tu entends par "Je n'arrive pas a récupérer le Form !" ?

[Aspic]

J'ai enfin réussi, je suis très bête, c'était un problème dans ma condition

Voici le code complet et fonctionnel qui fera bientôt une entrée dans la FAQ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Private Sub OpenTest(ByVal name As String)
        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.Name = name Then
                    Dim f As Form = CType(Activator.CreateInstance(t), Form)
                    f.Show() 'affiche la form en question
                End If
            End If
        Next
    End Sub

Merci à tous ! (En particulier à Olsimare)

[SaumonAgile]

Merci à tous ! (En particulier à Olsimare)

Maieuuh, moi aussi j'ai aidé, c'est moi qu'ai dit pour le Activator.CreateInstance en premier

Je plaisante. Tant mieux si c'est résolu

[Aspic]

Maieuuh, moi aussi j'ai aidé, c'est moi qu'ai dit pour le Activator.CreateInstance en premier

Je plaisante. Tant mieux si c'est résolu

C'est vrai Je suis injuste

[olsimare]

Bonjour.

Saumon, je l'avais même pas vu en plus !

Je ne voudrais pas être taxé de plaggia quand même !

EDIT : tiens d'ailleurs aprés vérif, moi j'utilise ni assembly.createinstance, ni activator.createinstance !

Dans ce cas, j'ai juste une remarque : la boucle n'est pas utile :

Code :

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

1
2
3
4
5
6
 
   Public Sub OpenTest(ByVal IClassName As String)
        Dim a As System.Reflection.Assembly = System.Reflection.Assembly.GetAssembly(Me.GetType)
        Dim f As Form = CType(Activator.CreateInstance(a.GetType(IClassName)), Form)
        f.Show()
    End Sub

Le probléme de cette méthode à mon sens est qu'elle nécessite de passer le nom de la class avec le namespace...

Donc dans mon framework perso, j'utilise plutôt le AppDomain.CurrentDomain.CreateInstance.

Cdt.

[Aspic]

Ok c'est à prendre comme infos