- Sub LanceThread()
- Dim Thread1 As New System.Threading.Thread(AddressOf OtherThread)
- Thread1.Start() ' Démarrer le nouveau thread.
- End Sub
-
- Sub OtherThread()
- MsgBox("Me voilà, le nouveau Thread !")
- End Sub
-
- Private Sub rechercherButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rechercherButton.Click
-
- Cursor.Current = Cursors.WaitCursor
- LanceThread()
-
- 'ici : ma fonction qui dure longtemp.
- DoSomeThing()
-
- Cursor.Current = Cursors.Default
-
- End Sub
Sub LanceThread()
Dim Thread1 As New System.Threading.Thread(AddressOf OtherThread)
Thread1.Start() ' Démarrer le nouveau thread.
End Sub
Sub OtherThread()
MsgBox("Me voilà, le nouveau Thread !")
End Sub
Private Sub rechercherButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rechercherButton.Click
Cursor.Current = Cursors.WaitCursor
LanceThread()
'ici : ma fonction qui dure longtemp.
DoSomeThing()
Cursor.Current = Cursors.Default
End Sub