日期:2014-05-18 浏览次数:21104 次
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim t As Thread t = New Thread(AddressOf 长循环1) t.Start() Dim t2 As Thread t2 = New Thread(AddressOf 长循环2) t2.Start() end sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ThreadPool.QueueUserWorkItem(AddressOf 长循环1) ThreadPool.QueueUserWorkItem(AddressOf 长循环2) end sub