1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim moi As New Thread(AddressOf Lui)
moi.Start()
Me.Invoke(New dLui(AddressOf Lui))
End Sub
Delegate Sub dLui()
Sub Lui()
Button2.Text = "cool ici c est un thread"
ListBox1.Items.Add("avec le thread")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Text = "ok"
ListBox1.Items.Add("sans le thread")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class |