vb.net 多线程哂

发布时间：2020-12-17 07:29:07 所属栏目：百科来源：网络整理

导读：Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String ? ?Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.2." IP If My.Computer.Network.Ping(IPAd

Imports System.IO
Imports System.Threading
Imports System.Diagnostics

Public Class Form1

Dim A(254) As String

?Function ping(ByVal IP As Integer) As String

Dim IPAddress As String
IPAddress = "10.0.2." & IP
If My.Computer.Network.Ping(IPAddress) Then
A(IP) = "OK"
Else
A(IP) = "NG"
End If
End Function

Private Sub Button1_Click_1(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

Dim mythread(254) As Thread

Dim i As Integer
‘创建线程对象

For i = 1 To 254
mythread(i) = New Thread(AddressOf ping)
Next

‘执行线程
For i = 1 To 254
mythread(i).Start(i)
Next

‘等待线程完成
For i = 1 To 254
mythread(i).Join()
TextBox1.Text?= A(i)

End Sub

End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!