VB.NET线程池应用实例

最新推荐文章于 2016-06-16 10:36:23 发布

xjnzhidao

最新推荐文章于 2016-06-16 10:36:23 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： vb-net 文章标签： vb.net 线程池

本文链接：https://blog.youkuaiyun.com/xjnzhidao/article/details/47446957

这篇博客展示了如何将VB.NET线程池应用于一个WinForm应用中，用于检测局域网内IP地址的可达性。通过文本框输入起始和结束IP，程序会显示哪些IP可以Ping通。然而，目前的代码存在如何优雅地停止线程池工作的问题，作者期待解决方案。

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

这是一个利用线程池测试局域网中哪些IP地址可以Ping通的例子，原作者文章参见http://hi.baidu.com/xjnzhidao/blog/item/a0cec53c66e062a9d1a2d377.html。原作者提供的代码是控制台代码，博主改为WinForm代码。

新建一个WinForm，然后在窗体上放置两个文本框，命名为IpBox1和IpBox2，一个多行文本框和两个按钮，如图：
这里写图片描述
下面是代码：

Imports System.Threading
Public Class Form1

    Private myThread As Thread
    Shared ExitFlag As Boolean = False

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        myThread = New Thread(AddressOf WorkStart)
        myThread.Start()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ExitFlag = True
        MsgBox("线程终止！")
    End Sub

    Private Sub WorkStart()
        Dim I As Integer, J As String = ""
        Dim lStart As Long, lEnd As Long
        Dim iCount As Integer = 0
        Dim sResult As String
        Dim NumOfHost As Integer
        Try
            NumOfHost = Convert.ToInt16(Split(IpBox2.Text, <