Sub Main() FrmIdentify.ShowDialog FrmPrincipale.ShowDialog End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim forms_du_projet_a_ouvrir() As String = {"frmIdentity", "frmPrincipale"} Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly() Dim types As Type() = myAssembly.GetTypes() For Each myType In types If myType.BaseType.FullName = "System.Windows.Forms.Form" Then If forms_du_projet_a_ouvrir.Contains(myType.Name) Then Select Case myType.Name Case "frmIdentity" Dim nf As New frmIdentify nf.Show() Case "frmPrincipale" Dim nf As New frmPrincipale nf.Show() '... End Select End If End If Next