Backgroundwoker au onload d'une form

Version imprimable

Bonjour à la communauté,

Le sujet que j'évoque à du être déjà abordé, mais je n'ai pas trouvé de réponse à ma problématique. Je souhaite afficher une form précisant 'Chargement en cours' au load d'une autre form qui charge un datagridview + des combobox.

La form d'attente s'affiche correctement, mais ne se ferme pas, l'information de stopper le thread ne semble pas être prise en compte...
Je précise que bgw_wait.workersupportscancellation est à true.

Un idée, en vous remerciant par avance.

Thierry

Ci-dessous mon code :

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Frm_menu.Hide()
 
        Bgw_wait.RunWorkerAsync()
 
        Refresh_dgv1()
 
        'Vérification si le user est en lecture seule
        Lecture_seule()
 
        If Not (user_level Like "Reader*") Then
            ' Les combobox sont alimentées exclusivement si user = writer
            'Combobox à valeurs fixes
            ' DBremplir_cbb_lot()
            DBremplir_cbb(cbb_type_reconduction, "type_reconduction")
            DBremplir_cbb_nb_reconduction()
            DBremplir_cbb_duree_reconduction()
            DBremplir_cbb(cbb_type_marche, "type_marche")
            DBremplir_cbb(cbb_titulaire, "titulaire")
            DBremplir_cbb(cbb_lot, "lot")
            DBremplir_cbb(cbb_service, "service")
 
 
            'Sélection du service par défaut si 1 seul item
            If cbb_service.Items.Count = 1 Then
                cbb_site.SelectedItem = 0
            End If
 
            'Combobox à valeurs variables
            DBremplir_cbb(cbb_origine, "origine")
            DBremplir_cbb(cbb_site, "site")
 
            'Sélection du site par défaut si 1 seul item
            If cbb_site.Items.Count = 1 Then
                cbb_site.SelectedItem = 0
            End If
 
            Dbremplir_cbb_famille()
 
            'cbb_service : Valeur par défaut du service
            If user_level <> "Admin" Then
                If cbb_service.Items.Count > 0 Then cbb_service.SelectedIndex = 0
            End If
        End If
 
        'Stop du thread appelé par bgw_wait
        Bgw_wait.CancelAsync()
 
    End Sub

Le dowork :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
#Region "Wait"
    'Affichage d'une form d'attente pendant le chargement de cette form
    Private Sub Bgw_wait_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles Bgw_wait.DoWork
        If Bgw_wait.CancellationPending Then
            e.Cancel = True
            Frm_wait.Close()
            Exit Sub
        Else
            Frm_wait.ShowDialog()
        End If
    End Sub
#End Region

28/02/2020, 18h12
youtpout978

Tu as un événement RunWorkerCompleted, c'est plutôt sur cet événement que tu devrais fermer ta form
https://docs.microsoft.com/fr-fr/dot...tframework-4.8
28/02/2020, 18h25
debian54

Rép à youtpout978

Bonsoir youtpout978,

J'ai connaissance de cet événement, ma difficulté est : Comment préciser que le travail est terminé....

Thierry
28/02/2020, 18h31
youtpout978

Citation:

Envoyé par debian54

Bonsoir youtpout978,

J'ai connaissance de cet événement, ma difficulté est : Comment préciser que le travail est terminé....

Thierry

Pas besoin de le préciser, voici ce que dit Microsoft Se produit lorsque l'opération d'arrière-plan est terminée, a été annulée ou a levé une exception.

En faite j'ai l'impression que tu utilises mal le backgroundworker, c'est dans le dowork que tu dois mettre le code qu'éxécute le backgroundworker, je pense que c'est ton code DBremplir_cbb(cbb_type_reconduction, "type_reconduction") ..
Tu n'as pas besoin d'appeler cancel; une fois arrivé au bout des instructions il s'arrete tout seul et lance levenement completed

Rép à youtpout978

Donc, je place dans le dowork :

Code:

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
32
33
34
35
36
37
38
39
40
' Chargement du datagridview
        Refresh_dgv1()
 
        'Vérification si le user est en lecture seule
        Lecture_seule()
 
        If Not (user_level Like "Reader*") Then
            ' Les combobox sont alimentées exclusivement si user = writer
            'Combobox à valeurs fixes
            ' DBremplir_cbb_lot()
            DBremplir_cbb(cbb_type_reconduction, "type_reconduction")
            DBremplir_cbb_nb_reconduction()
            DBremplir_cbb_duree_reconduction()
            DBremplir_cbb(cbb_type_marche, "type_marche")
            DBremplir_cbb(cbb_titulaire, "titulaire")
            DBremplir_cbb(cbb_lot, "lot")
            DBremplir_cbb(cbb_service, "service")
 
 
            'Sélection du service par défaut si 1 seul item
            If cbb_service.Items.Count = 1 Then
                cbb_site.SelectedItem = 0
            End If
 
            'Combobox à valeurs variables
            DBremplir_cbb(cbb_origine, "origine")
            DBremplir_cbb(cbb_site, "site")
 
            'Sélection du site par défaut si 1 seul item
            If cbb_site.Items.Count = 1 Then
                cbb_site.SelectedItem = 0
            End If
 
            Dbremplir_cbb_famille()
 
            'cbb_service : Valeur par défaut du service
            If user_level <> "Admin" Then
                If cbb_service.Items.Count > 0 Then cbb_service.SelectedIndex = 0
            End If
        End If

et dans

Code:

1
2
3
    Private Sub Bgw_wait_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles Bgw_wait.RunWorkerCompleted
        Frm_wait.Close()
    End Sub

28/02/2020, 18h48
youtpout978

Oui ca serait plus un truc comme ça.
28/02/2020, 19h13
debian54

Suite recommandations de youtpout978

Ma Dgv ne s'affiche pas, ma form d'attente reste affichée (showdialog)....
:calim2:
28/02/2020, 19h24
youtpout978

Après il faut éviter de charger des élément de design dans le BackgroundWorker il doit charger seulement les données et te les renvoyer à la fin.
L'idée c'est de charger les donnée dans le dowork et affecter les donnée chargées au élément de ta vue dans le RunWorkerCompleted
28/02/2020, 21h16
debian54

Re backgroundword

Un exemple de code ;) serait plus parlant
28/02/2020, 21h32
youtpout978

https://docs.microsoft.com/fr-fr/dot...k-4.8#examples
29/02/2020, 13h35
wallace1

Citation:

Envoyé par youtpout978

Après il faut éviter de charger des élément de design dans le BackgroundWorker il doit charger seulement les données et te les renvoyer à la fin.
L'idée c'est de charger les donnée dans le dowork et affecter les donnée chargées au élément de ta vue dans le RunWorkerCompleted

Bonjour,

C'est en partie vrai, si le traitement des données est long et que tu veux voir le chargement de tes données dans ton DGV, il est recommandé d'afficher la progression lors de l'ajout des données dans ton DGV grâce à l'event ProgressChanged. Ainsi l'utilisateur de ton programme n'a pas l'impression que ton programme ne fait rien.....
Il faudra cependant certainement faire appel à d'autres délégués (invoke, MethodInvoker, ...etc...) pour mettre à jour ton interface graphique au sein de ton DoWork.

;)

Bon codage.