VS VB.NET 多线程之插入线程

Sera 山山

于 2020-02-17 10:19:29 发布

阅读量366

点赞数

CC 4.0 BY-SA版权

分类专栏： VB.net

本文链接：https://blog.youkuaiyun.com/lc7181/article/details/104353658

VB.net 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个使用Visual Basic.NET实现的双线程控制两个进度条的示例代码。当第一个进度条达到20%时，第二个进度条开始运行，直至完成，然后第一个进度条继续运行。此代码展示了如何在Windows窗体应用程序中使用线程和进度条。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'在窗体中添加进度条ProgressBar1 and ProgressBar2.编辑代码如下，实现进度条1运动到20%时运行进度条2然后再运行进度条1.

Imports System
Imports System.Threading '添加进程的命名空间
Public Class Form1

    Dim t1 As Thread  '定义线程
    Dim t2 As Thread
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False   '实现线程间调用窗体的控件-进度条
        t1 = New Thread(New ThreadStart(AddressOf pro1)) '实例化线程的对象
        t1.Start()                                       '启动线程
        t2 = New Thread(New ThreadStart(AddressOf pro2))
        t2.Start()
    End Sub

    Sub pro1()
        Dim count As Integer = 0
        While (True)
            ProgressBar1.PerformStep()
            count += ProgressBar1.Step
            Thread.Sleep(100)
            If count = 20 Then
                t2.Join()  ' 插入线程
            End If
        End While

    End Sub

    Sub pro2()
        Dim count As Integer = 0
        While (True)
            ProgressBar2.PerformStep()
            count += ProgressBar2.Step
            Thread.Sleep(100)
            If count = 100 Then
                Exit Sub
            End If
        End While
    End Sub
End Class