cs_JMO1855
Messages postés jeudi 23 mai 2002Date d'inscription
24 juin 2018
Dernière intervention
-
18 févr. 2017 à 12:33 - Dernière réponse : Whismeril12101
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
15 octobre 2018
Dernière intervention
- 19 févr. 2017 à 21:16
Bonjour le Forum,
Lors de traitements assez lourds (création d'un fichier excel allant de 100 à 40.000 lignes, puis affichage de celles-ci dans un datagridview, je souhaite afficher un gif (sablier animé) pendant dans la durée de ces traitements.
Pour cela
Imports System.ComponentModel
Imports System.Threading
Dim bw As BackgroundWorker = New BackgroundWorker
Public Delegate Sub PictureVisibilityDelegate(ByVal visibility As Boolean)
Dim ChangePictureVisibility As PictureVisibilityDelegate
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
AddHandler bw.DoWork, AddressOf bw_DoWork
AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
ChangePictureVisibility = AddressOf ChangeVisibility
Private Sub ComboBoxSheetHost_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxSheetsHost.SelectedIndexChanged
Me.Invoke(ChangePictureVisibility, True)
'MessageBox.Show("Toutes les fiches d un contrat sélectionné")
SheetSelectFile(pathroot & "Client-" & selectedCustomer.ToString.Substring(0, 3) & ".xlsx", selectedHost.ToString)
bw.RunWorkerAsync()
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
MessageBox.Show("Done!")
End Sub
Public Sub ChangeVisibility(ByVal visibility As Boolean)
Select Case visibility
Case True
PictureBoxSheets3.Visible = True
PictureBoxSheets3.BringToFront()
Case False
PictureBoxSheets3.Visible = False
Me.BringToFront()
End Select
' MessageBox.Show("visibility.ToString = " & visibility.ToString)
End Sub
Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs)
' MessageBox.Show("Debut bw_DoWork")
'Label1.Text = "Nombre de fiche : " & CStr(datasetIDMON.Tables("HOSTS").Rows.Count.ToString)
writeExcel()
'MessageBox.Show("Fin bw_DoWork")
End Sub
Private Sub bw_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
Me.Invoke(ChangePictureVisibility, False)
Label1.Text = "Nombre de fiche : " & CStr(datasetIDMON.Tables("HOSTS").Rows.Count.ToString)
LabelSheetsCountService.Text = "Nombre de service : " & CStr(datasetIDMON.Tables("SERVICES").Rows.Count.ToString)
' MessageBox.Show("bw_RunWorkerCompleted")
End Sub
Le gif (PictureBoxSheets3) s'affiche correctement.
Par contre, dans la sub bw_DoWork, si je veux afficher Label1.Text, cette sub s'arrête, sans m'afficher le MessageBox.Show("Fin bw_DoWork") et passe à la sub bw_RunWorkerCompleted.
De même, dans la sub bw_DoWork, si je veux remplir un datagridview, il y a arrêt de cette sub.
Dans l'exemple ci-dessous, dans la sub bw_DoWork, la fonction WriteExcel s'exécute correctement, avec le gif animé en même temps, quoique le fichier excel n'est libéré qu'à la fermeture de l'application).
Auriez-vous une solution pour mon souci !!
Merci d'avance,
jean-marc
Dans le thread tu utilises backgroundWorker1.ReportProgress(Interger, ObjectATransfer)
L'entier étant la progression de 0 à 100% et l'objet soit une classe que tu auras écrit exprès pour transmettre des infos, soit une collection.
La méthode backgroundWorker1_ProgressChanged appartient au thread principal, elle reçoit Interger, ObjectATransfer en paramètres et peut les afficher.
Utiliser le dispatcher, dont le rôle est justement, les interactions entre threads. C'est un peu plus compliqué, mais plus efficace et valable quel que soit le type de thread.
Private Sub LancerLeThread()
Dim monThread As New Thread(AddressOf LaMethodeDuThread)
monThread.Start()
End Sub
Private monDispatcher As Dispatcher = Dispatcher.CurrentDispatcher
Private Sub LaMethodeDuThread()
For i As Integer = 0 To Integer.MaxValue - 1
If i Mod 1e3 = 0 Then
monDispatcher.BeginInvoke(New Action(Sub() label1.Text = i.ToString()))
End If
Thread.Sleep(1)
Next i
End Sub
Pour l'exemple j'ai fait un délégué, mais tu peux appeler une méthode, tu peux aussi choisir entre Invoke et BeginInvoke et gérer les prioritéq, là mon code envoie l'action quand il veut ce qui fait que le label peut afficher 9002 au lieu de 9000.
Quand j'étais petit, la mer Morte n'était que malade.
George Burns
Bonjour Whismeril,
Merci pour tes conseils. J'ai utilisé le BackgroundWorker car je n'ai pas trouvé la référence à ajouter pour le Dispatcher (VS 2012 Express).
Exemple avec un PictureBox, un Label et un DatagridView (2 colonnes) :
Option Strict On
Option Explicit On
Imports System.ComponentModel
Public Class Form1
Dim bw As BackgroundWorker = New BackgroundWorker
Delegate Sub SetLabel1(text As String)
Delegate Sub SetDataGridView1(ByVal row As Integer, ByVal cell As Integer)
Public Shared Sub Main()
Application.Run(New Form1())
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler bw.DoWork, AddressOf bw_DoWork
AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
Me.PictureBox1.Visible = False
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Not bw.IsBusy = True Then
Me.PictureBox1.Visible = True
bw.RunWorkerAsync()
End If
End Sub
Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
SetLabel1_Delegate("Load ...")
For i As Integer = 1 To 35000
SetDataGridView1_Delegate(i, 35001 - i)
Next
End Sub
Private Sub SetLabel1_Delegate(ByVal text As String)
Dim newtext As String = text
If Me.Label1.InvokeRequired Then
Dim d As New SetLabel1(AddressOf SetLabel1_Delegate)
Me.Invoke(d, New Object() {newtext})
Else
Label1.Text = newtext
Me.Refresh()
End If
End Sub
Private Sub SetDataGridView1_Delegate(ByVal row As Integer, ByVal cell As Integer)
If Me.DataGridView1.InvokeRequired Then
Dim d As New SetDataGridView1(AddressOf SetDataGridView1_Delegate)
Me.Invoke(d, New Object() {row, cell})
Else
Dim newrow As String() = New String() {CStr(row), CStr(cell)}
DataGridView1.Rows.Add(newrow)
End If
End Sub
Private Sub bw_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
Me.PictureBox1.Visible = False
Me.Label1.Text = "Done !!!"
End Sub
End Class
cs_JMO1855
Messages postés jeudi 23 mai 2002Date d'inscription
24 juin 2018
Dernière intervention
>
Whismeril12101
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
15 octobre 2018
Dernière intervention -19 févr. 2017 à 10:19
Whismeril12101
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
15 octobre 2018
Dernière intervention
>
cs_JMO1855
Messages postés jeudi 23 mai 2002Date d'inscription
24 juin 2018
Dernière intervention -19 févr. 2017 à 13:57
cs_JMO1855
Messages postés jeudi 23 mai 2002Date d'inscription
24 juin 2018
Dernière intervention
>
Whismeril12101
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
15 octobre 2018
Dernière intervention -19 févr. 2017 à 14:01
Whismeril12101
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
15 octobre 2018
Dernière intervention
>
cs_JMO1855
Messages postés jeudi 23 mai 2002Date d'inscription
24 juin 2018
Dernière intervention -19 févr. 2017 à 14:02
Elle est dans la framework, il suffit d'ajouter la référence à ton projet
Whismeril12101
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
15 octobre 2018
Dernière intervention -19 févr. 2017 à 21:16
0
Merci
Bon test, il y a des pièges comme ça parfois.
Le plus c*n, c'est quand ça te mets System.Io (par exemple) et que tu l'as déjà et pourtant t'as pas accès à la classe. En fait une autre assembly existe qui enrichi l'espace de nom....
Il faut donc bien regarder l'espace de nom et l'assembly
