Discussion :

[LAIDAROS]

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

[Phil Rob]

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 :

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

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

[Pascal_F]

Tu peux utiliser cette fonction :

Code :

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

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.

[LAIDAROS]

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

Code :

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

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 :

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

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

[Phil Rob]

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