E.B.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'Fonction lancer à partir de l'écran de départ Function Lancer_DossierRecent(ByVal LibelleMenu As String) As Boolean Dim NouveauMDIEnfant As New FormDossier Dim FormChargerDossier As New FormChargerDossier 'Ecran affiché permettant de patientez FormChargerDossier.MdiParent = FormDepart.ActiveForm FormChargerDossier.Show() 'Ecran assez long à charger NouveauMDIEnfant.MdiParent = FormDepart.ActiveForm NouveauMDIEnfant.Show() End Function 'Chargement de l'écran assez long Private Sub FormDossier_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim FormChargerDossier As New FormChargerDossier 'J'essaie de changer la valeur de progresse barre, mais ca ne marche pas. FormChargerDossier.ProgresseBarre.Value = 50 FormChargerDossier.ProgresseBarre.Refresh() 'Chargement de FormDossier ou bcp de données sont chargées. End Sub