多线程编程示例

多线程编程示例
以下示例演示了如何在Vb中使用Thread类实现多线程编程：

Imports System.Threading

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建Thread对象
        Dim thread1 As New Thread(AddressOf ThreadFunction)

        ' 启动线程
        thread1.Start()

        ' 等待线程结束
        thread1.Join()

        ' 显示结果
        MessageBox.Show("线程执行完毕！")
    End Sub

    Private Sub ThreadFunction()
        ' 线程要执行的代码
        For i As Integer = 1 To 10
            Debug.WriteLine("线程执行第" & i & "次")
            Thread.Sleep(1000)
        Next
    End Sub
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
在上述示例中，通过点击Button1按钮启动线程，ThreadFunction函数中的代码将会在一个新的线程中执行。线程执行完毕后，使用Join方法等待线程结束，然后##### 5.1.1 使用Thread类创建多线程
—