在VB.net裡面實現 :執行緒和委託的混合程式設計
阿新 • • 發佈:2019-02-08
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