Check if form exist dans le projet

Bonjour forum
Bonjour tout le monde
Svp comment faire pour verifier si par exemple Form1 exist dans le projet
Je veux lorsque un code dans MDIParent 1 load .. et des que j'ouvre MDIParent1 .. si par exemple Form1 a ete supprimee .. alors s'affichera un message ( Form1 n'existe pas )
Merci beaucoup a l'avance pour l'aide
LAIDAROS

Bonjour,

Avec le code suivant, tu peux connaitre un Form ouvert. Je ne sais pas comment pourrait-on connaître un Form qui n'est pas encore instancié ...

Code:

---

1 2 3 4

For Each F As Form In My.Application.OpenForms MessageBox.Show(F.Name) Next

---

:)

Tu peux utiliser cette fonction :

Code:

---

1 2 3 4 5 6

Function FindWin(ByVal nom As String) As Boolean For Each Frm As Form In Application.OpenForms If Frm.Name = nom Then Return True Next Return False End Function

---

Tu déclare en Public, Private ... à toi de voir
Tu appelles la fonction par le nom de la form cherchée.
Le résultat est booléen.

Merci Phil Rob
Merci Pascal_F
J'ai trouvé apres longue recherche ce code qui fonctionne tres bien

Code:

---

1 2 3 4 5 6 7 8 9

Public Function Get_Name_Form(ByVal Form_Name As String) As Form Try Dim Frm_Type = Reflection.Assembly.GetEntryAssembly.GetExportedTypes.FirstOrDefault(Function(x) x.Name = Form_Name) Dim Return_Form = TryCast(Activator.CreateInstance(Frm_Type), Form) Return TryCast(Return_Form, Form) Catch ex As Exception Return Nothing End Try End Function

---

Et puis en MDIParent1 Load :

Code:

---

1 2 3 4 5 6 7 8

Dim MyForm = Get_Name_Form("Form1") If MyForm IsNot Nothing Then MessageBox("exist") Else MessageBox("Not exist") End Exit Sub End If

---

LAIDAROS

Merci pour le feedback.
Bon week-end,
:D)))