Public Class Form1
Delegate Sub testDelegate() '第一步:老板心目中经理的样子
Dim testThread As New Thread(AddressOf testdelegateSub) '第甲步:定义了一个线程,并且给这个线程找个干活的小弟。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
testThread.Start() ' 万恶的源头,就是他触发了一连串的干活。两个实际干活的小弟,还有一个欺小媚上的死经理
End Sub
Private Sub testdelegateSub() '第乙步:定义一个小弟,这个小弟将在一个独立的线程里面干活,累的要死。
Dim testDelegate1 As New testDelegate(AddressOf testSub) '第二步和第四步:一个活生生经理 并且给这个经理分配了一个小弟(testSub)
Invoke(testDelegate1) '第五步:大老板命令这个经理干事情。(背地里经理找了其他人做事)
End Sub
Private Sub testSub() '第三步 :这是一个小弟
For j = 1 To 3000
Label1.Text = "线程启动,当前循环次数为:" & j
Thread.CurrentThread.Sleep(1000)
Me.Refresh()
Next
End Sub
End Class
线程和委托:在VB.net里面实现
最新推荐文章于 2024-03-21 16:35:44 发布