</pre><pre name="code" class="vb">Imports System.Threading
Public Class Form1
Private td1 As Thread
Private td2 As Thread
Dim i, j, a As Long
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
i = 0
j = 0
a = 0
td1 = New Thread(AddressOf thread1)
td2 = New Thread(AddressOf thread2)
td1.Start()
td2.Start()
End Sub
Public Sub Thread1()
While True
i = i + 1
End While
End Sub
Public Sub Thread2()
While True
j = j + 1
End While
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
a = 1 + a
Label3.Text = a
Label2.Text = j
Label1.Text = i
End Sub
End Class
笔记:Multi-Thread
最新推荐文章于 2022-06-29 17:36:36 发布