Discussion :

[nicolast]

Bonjour,

Je développe une application avec de nombreux formulaires (sous Visual Studio) et j'aimerai savoir s'il existe un moyen de lister tous les formulaires d'un projet afin d'ouvrir celui dont on connait le nom.

Je sais que l'on peut lister les formulaires ouverts avec

Code :

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

 Application.OpenForms.Count

et qu'on peut ouvrir un formulaire en faisant

Code :

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

monform = New nomduformulairetype

Mais comme j'ai pas mal de formulaires j'aimerai passé de

Code :

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

1
2
3
4
5
6
If nom = "f_arbre" Then
monform = New f_arbre
ElseIf nom = "f_maison" Then
monform = New f_maison
'etc ...
End If

à quelque chose comme ça

Code :

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

1
2
3
4
5
6
For Each form In ????
If form.name = nom Then
monform = New form
Exit For
End If
Next

J'ai cherché sur le Net mais je n'ai pas trouvé ce qui pourrait correspondre aux "?????"

Est ce que seulement c'est possible ou faut-il que je continue avec mes If/ElseIf (que je vais passé en Select Case) en incrémentant chaque nouveau formulaire ?

Cordialement

Nicolas

[François DORIN]

Bonjour,

Le plus simple est d'utiliser la réflexion. Tu peux utiliser Type.GetType pour récupérer des informations sur une classe en particulier (ici, une form). Ensuite, à partir de ces informations, tu peux instancier ton formulaire en utilisant Activator.CreateInstance.

[nicolast]

Merci pour ton aide, je ne connaissais pas la réflexion.
En suivant tes pistes et en fouillant sur le Net je suis arrivé à ce bout de code qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim lassembly As Reflection.Assembly
Dim objType() As Type
Dim ftest as Form
lassembly = Reflection.Assembly.GetExecutingAssembly()
objType = lassembly.GetTypes()
For Each objet As Type In objType
If objet.Name = nomduformulaire Then
ftest = CType(Activator.CreateInstance(objet), Form)
Exit For
End If
Next

Bonne journée