Edmilson,
É exatamente isso, quando o progressbar começa a fazer o progresso, já a rotina de carregamento dos grids foi executada.
Fiz este código há pouco tempo, tem algumas diferenças do outro post, e só depois da progressbar chegar ao fim é que executo a rotina, mas resulta perfeitamente.
Tenho um form onde existe uma progressbar, um label status, um label com a percentagem do progresso, um botão cancelar, e um botão “trabalhar em background”.
Quando o utlizador clica num determinado botão, para, por exemplo carregar grids, antes de executar a rotina, faço este form aparecer e logo no evento load do form faço : Me.lblStatus_Status.Text = "A inicar processo..."
Depois executo o Call ArranqueWorker() e...
Private Sub ArranqueWorker()
Try
Me.lblStatus_Status.Text = "A processar..."
Me.btnCancelar_Status.Enabled = True
Worker = New System.ComponentModel.BackgroundWorker
Worker.WorkerReportsProgress = True
Worker.WorkerSupportsCancellation = True
Worker.RunWorkerAsync()
AddHandler Worker.DoWork, New DoWorkEventHandler(AddressOf InicioWork)
AddHandler Worker.RunWorkerCompleted, New RunWorkerCompletedEventHandler(AddressOf DepoisFim_do_InicioWork)
AddHandler Worker.ProgressChanged, New ProgressChangedEventHandler(AddressOf ProgressoWork)
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
_____________________________________________________________________________
Private Sub InicioWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
'Aqui a progressbar faz o seu progresso
For i = 1 To 100
Worker.ReportProgress(i, i & " %")
System.Threading.Thread.Sleep(20) 'Aqui controlas a velocidade do progressbar
Next
Try
If Worker.CancellationPending Then
e.Cancel = True
End If
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
_____________________________________________________________________________
Private Sub DepoisFim_do_InicioWork(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
'É aqui que executo a ação que desejo, no meu caso, faço executar a rotina "Processar_Enchimentos" num form mdi
DirectCast(My.Forms.Menu.ActiveMdiChild, FormArmazemSul).Processar_Enchimentos()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Try
If e.Cancelled Then
Me.lblStatus_Status.Text = "Processo cancelado."
Me.btnCancelar_Status.Enabled = False
Else
Me.lblStatus_Status.Text = "Processo concluído."
End If
Me.btnCancelar_Status.Enabled = True
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
_____________________________________________________________________________
Private Sub ProgressoWork(ByVal sender As Object, ByVal e As ProgressChangedEventArgs)
Me.ProgressBar_Status.Value = e.ProgressPercentage
Me.lblPercentagem_Status.Text = TryCast(e.UserState, String)
End Sub
_____________________________________________________________________________
O botão cancelar não pára o progresso da progressbar, apenas não executa a rotina Processar_Enchimentos
Private Sub btnCancelar_Status_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar_Status.Click
Me.btnCancelar_Status.Enabled = False
If Me.Worker.IsBusy Then
Me.Worker.CancelAsync()
End If
End Sub
Porquê não executar a rotina antes do progressbar estar concluido ? Foi a maneira que arranjei para evitar “cross threading”, pois neste caso a rotina processar_enchimentos faz disparar outras threads.
No meu caso, todo este processo é executado muito rapidamente, o que me levou a utilizar um Timer, mas não mostrei para não complicar ainda mais este código.
O código do botão “trabalhar em background”, é simplesmente : Me.WindowState = FormWindowState.Minimized
Espero ter ajudado
Abraços
