VB.NET 多线程

17 Mar 2025 | 5 分钟阅读

什么是 VB.NET 线程？

当程序中同时执行两个或多个进程时，该过程称为多线程。每个进程的执行被称为线程。单个线程用于在应用程序中执行单个逻辑或任务。默认情况下，每个应用程序都有一个或多个线程来执行每个进程，该线程被称为主线程。

要在线程类中创建和访问新线程，我们需要导入 System.Threading 命名空间。当 VB.NET 中程序的执行开始时，会自动调用 Main 线程来处理程序逻辑。如果我们创建另一个线程在 Thread 类中执行该过程，则新线程将成为主线程的子线程。

创建一个新线程

在VB.NET中，我们可以通过扩展 Thread 类并传递 ThreadStart 委托作为 Thread 构造函数的参数来创建一个线程。 ThreadStart() 是由新线程执行的方法。我们需要调用 Start() 方法来启动新线程的执行，因为它最初处于未启动状态。 PrintInfo 参数包含在创建新线程时执行的可执行语句。

' Create a new thread
Dim th As Thread = New Thread( New ThreadStart(PrintInfo)
' Start the execution of newly thread
th.Start()  

让我们编写一个程序来在 Thread 类中创建和访问线程。

create_Thread.vb

Imports System.Threading 'Imports the System.Threading namespace. 
Module create_Thread
    Sub Main(ByVal args As String())
        ' create a new thread 
        Dim th As Thread = New Thread(New ThreadStart(AddressOf PrintInfo))
        ' start the newly created thread
        th.Start()
        Console.WriteLine(" It is a Main Thread")
    End Sub
    Private Sub PrintInfo()
        For j As Integer = 1 To 5
            Console.WriteLine(" value of j is {0}", j)
        Next j
        Console.WriteLine(" It is a child thread")
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

输出

在上面的程序中，主线程和子线程同时开始执行。主线程的执行在完成其功能后停止，但子线程将继续执行直到其任务完成。

VB.NET 线程方法

以下是 Thread 类中最常用的方法。

方法	描述
Abort()	顾名思义，它用于终止线程的执行。
AllocateDataSlot()	它用于在所有线程上为未命名数据创建一个插槽。
AllocateNamedDatsSlot()	它用于在所有线程上为已定义数据创建一个插槽。
Equals()	它用于检查当前和定义的线程对象是否相等。
Interrupt()	它用于中断处于 Wait、sleep 和 join 线程状态的线程。
Join()	它是一种同步方法，它会停止调用线程，直到执行线程完成。
Resume()	顾名思义，Resume() 方法用于恢复已暂停的线程。
Sleep()	它用于将当前执行的线程挂起指定的时间。
Start()	它用于启动线程的执行或更改正在进行的实例的状态。
Suspend()	它用于停止当前正在执行的线程。

VB.NET 线程生命周期

在 VB.NET 多线程中，每个线程都有一个生命周期，该生命周期在使用 Thread 类创建新对象时开始。一旦线程类定义的任务完成，线程的生命周期就会结束。

VB.NET 编程中线程周期有一些状态。

国家	描述
未启动	当我们创建一个新线程时，它最初处于未启动状态。
Runnable	当我们调用 Start() 方法来准备线程运行时，会出现可运行的情况。
运行中 (Running)	Running 状态表示当前线程正在运行。
不可运行	它表示线程不处于可运行状态，这意味着线程处于 sleep() 或 wait() 或 suspend() 中，或者被 I/O 操作阻止。
已死 (Dead)	如果线程处于死亡状态，则线程已完成其工作或已中止。

让我们创建一个程序，通过使用 Thread 类的各种方法来管理线程。

Thread_cycle.vb

Imports System.Threading
Module Thread_cycle
    Sub Main(ByVal args As String())
        Dim s As Stopwatch = New Stopwatch()
        s.Start()
        Dim t As Thread = New Thread(New ThreadStart(AddressOf PrintInfo))
        t.Start()
        ' Halt another thread execution until the thread execution completed
        t.Join()
        s.[Stop]()
        Dim t1 As TimeSpan = s.Elapsed
        Dim ft As String = String.Format("{0}: {1} : {2}", t1.Hours, t1.Minutes, t1.Seconds)
        Console.WriteLine(" Total Elapsed Time : {0}", ft)
        Console.WriteLine("Completion of Thread Execution ")
        Console.WriteLine("Press any key to exit...")
        Console.ReadKey()
    End Sub
    Private Sub PrintInfo()
        For j As Integer = 1 To 6
            Console.WriteLine(" Halt Thread for {0} Second", 5)
            ' It pause thread for 5 Seconds
            Thread.Sleep(5000)
            Console.WriteLine(" Value of i {0}", j)
        Next
    End Sub
End Module

输出

在上面的示例中，我们使用了 Thread 类的不同方法，例如 Start() 方法来启动线程的执行，Join() 方法用于停止线程的执行，直到线程的执行完成。 Sleep() 方法用于暂停线程的执行 5 秒。

多线程

当在程序中执行两个或多个进程以同时执行多个任务时，该过程称为多线程。

当我们执行应用程序时，将自动调用 Main 线程以同步执行编程逻辑，这意味着它会依次执行一个进程。这样，第二个进程必须等到第一个进程完成，这需要时间。为了克服这种情况，VB.NET 引入了一个新概念 Multithreading，通过在程序中创建多个线程来同时执行多个任务。

让我们编写一个多线程程序，以便在 VB.NET 应用程序中同时执行多个任务。

Multi_thread.vb

 Imports System.Threading
Module Multi_thread
    Sub Main(ByVal arg As String())
        Dim th As Thread = New Thread(New ThreadStart(AddressOf PrintInfo))
        Dim th2 As Thread = New Thread(New ThreadStart(AddressOf PrintInfo2))
        th.Start()
        th2.Start()
        Console.ReadKey()
    End Sub
    Private Sub PrintInfo()
        For j As Integer = 1 To 5
            Console.WriteLine(" value of j is {0}", j)
            Thread.Sleep(1000)
        Next
        Console.WriteLine(" Completion of First Thread")
    End Sub
    Private Sub PrintInfo2()
        For k As Integer = 1 To 5
            Console.WriteLine(" value of k is {0}", k)
        Next
        Console.WriteLine(" Completion of First Thread")
    End Sub
End Module

输出

在上面的示例中，我们创建了两个线程（th, th2）来同时执行 PrintInfo 和 PrintInfo2 方法。当执行开始时，两个线程同时执行。但是执行了 PrintInfo 方法的第一条语句，然后它会等待下一条语句，直到 PrintInfo2 方法在程序中完成。

下一个主题VB.NET 异常处理

VB.NET 多线程

什么是 VB.NET 线程？

创建一个新线程

VB.NET 线程方法

VB.NET 线程生命周期

多线程

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

VB.NET 教程

VB.NET 多线程

什么是 VB.NET 线程？

创建一个新线程

VB.NET 线程方法

VB.NET 线程生命周期

多线程

相关帖子

VB.NET 定时器控件

VB.NET HashTable

For Each 循环

文件处理

RadioButton 控件

VB.NET List

ProgressBar 控件

如何在 Visual Studio 中格式化代码

DateTimePicker 控件

ListBox 控件

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器