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