日期:2014-05-18 浏览次数:21252 次
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