Discussion :

[redwire]

Bonjour,

Je souhaiterai faire un bouton (ça fastoche) qui va ouvrir telle ou telle Form selon une variable qui contient le Type de la fenêtre à ouvrir.
Comment faire pour qu'au clic, il ouvre le bon Formulaire selon la variable? comment faire le cast en dynamique? Est ce possible de faire sans?
Je ne sais pas si c'est clair... Merci de vos réponses

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Public Class WinForm1
    End Class 
 
Public Class WinForm2
    End Class 
 (...)
Public Class WinFormX
    End Class 
 
 
 
Class Progamm
 
Dim typeAOuvrir as Type
 
Sub new (oType as Type)
 typeAOuvrir = oType
end sub
 
Private Sub SplValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SplValider.Click
 
 ' Instance dynamique de la fenêtre
            Dim objFenetreAOuvrir As Object = System.Activator.CreateInstance(typeAOuvrir ) 
 
'après que faire pour ouvrir WinForm1, WinForm2, WinFormX... ou ?...
'comment faire le cast en dynamique?
 
 
End sub
 
End class

[mactwist69]

Bonjour, il suffit de déclarer ta variable en type "mère", c'est à dire de type Forms.
Grâce à la magie de l'héritage, ça fonctionne bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim MaFrom as Form
 
Select Case MonType
 
     case "type1"
            MaFrom = new Formtype1
 
 
End Select
 
MaFrom.show()

Edit : a j'avais mal lu et que tu voulais typer dynamiquement....

[EDIT 2]
Du coup, si tu veux obtenir un type a partir d'un nom, il faudra surement creuser du côté de la réflexion.

[redwire]

Merci pour la réponse mais oui effectivement, mon objectif est justement d'éviter le select case.
Et je souhaite passer le type (system.type) de la fenêtre en variable

[mactwist69]

En fait tu y étais... T'avais un problème car tu n'as pas déclarer ta variable en Form... Ce qui t’empêchais d’ouvrir la fenêtre.
Tu peux essayer ça :

Code :

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

1
2
3
4
Dim objFenetreAOuvrir As Form 
objFenetreAOuvrir  = CType(System.Activator.CreateInstance(typeAOuvrir),Form)
 
objFenetreAOuvrir  .Show()

[redwire]

bah oui, tout bête...
ok merci!

[mactwist69]

Oubli pas de passer la discussion en résolu !

[redwire]

oui, oui, voilà voilà.. le temps de tester un peu

Dynamically Launching A WinForm Via Object Factory:
https://msdn.microsoft.com/en-us/library/ee794614.aspx