Bonjour à tous,
Je développe actuellement une Gmao et dans ce programme j’ai un problème de freeze de formulaire.
Mon programme fonctionne de la façon suivante :
J’ai un formulaire principal (le menu) dans lequel il y a des picturesbox.
Quand je clique sur l’un picturebox j’ouvre un autre formulaire, le formulaire ouvert comporte en général beaucoup d’informations et en plus il lance des requêtes sur SQL server qui prennent aussi un certain temps.
Afin que l’utilisateur final ne pense pas qu’il est planté je veux ouvrir un petit formulaire(splash) pour afficher un GIF (cela permettrai de montrer le traitement).
J’ai utilisé plusieurs techniques mais le résultat reste pareil le formulaire avec le GIF freezer et ce rafraichis seulement quand tous les formulaires sont chargés. Ce n’est pas l’effet voulus.
dans le Load du 2éme formulaire :
Quelqu'un aurait il déjà eu le problème ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Cursor = Cursors.WaitCursor Me.Icon = Ico_IconeGmao Me.Topmost = False Int_Index = 0 Bol_ModeRafraichissement = True Me.KeyPreview = True Splash.show() Splash.topmost = True Thr_Monthread = New Thread(Sub() If Cls_Ouverture_Connexion_Sql() = True Then Application.Exit() Exit Sub End If If Cls_Ps(0, Grid_Fournisseur, True, False, 76, "Ps_xxx") = True Then Sub_Exit() If Cls_Fermeture_Connexion_Sql() = True Then Application.Exit() Exit Sub End If Sub_Rafraichissement() Bol_ModeRafraichissement = False Sub_Cursor() Splash.close() '***************************** '** on arrete le MultiTache ** '***************************** Return End Sub) Thr_Monthread.Start()
Merci d'avance.
Partager