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
|
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartArchive.Click
Try
Me.lblStatus.Text = "données en cours..."
'Démarage du processus 1
Me.bwProg1.RunWorkerAsync()
Application.DoEvents()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur")
lblStatus.Text = "Erreur"
End Try
Private Sub bwProg1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwArchive.RunWorkerCompleted
Try
'Démarrage du processus 2
Me.bwProg2.RunWorkerAsync()
Application.DoEvents()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur")
End Try
End Sub |
Partager