为了能够灵活地创建线程，我们可以通过多种方法来实现，在众多方法中，使用类将线程包装可谓是最有效的。而这也正发挥了 VB.NET 完全面向对象的特点。
(二) 线程封装
为了封装线程，我们先创建一个类，并为这个类定义三个内部变量，一个构造方法，两个成员方法（其中一个为私有方法），来看代码：
Imports System.Threading
Module Module1
Sub Main()
Dim thA As New MyThreadClass(1,100)
Dim thB As New MyThreadClass(2,100)
thA.Start()
thB.Start()
Console.Read()
End Sub
End Module
Public Class MyThreadClass
Private _ID As Integer
Private _LoopCount As Integer
Private _thread As Threading.Thread
Public Sub New(ByVal Id As Integer,ByVal LoopCount As Integer)
Me._ID = Id
Me._LoopCount = LoopCount
Me._thread = New Threading.Thread(New ThreadStart(AddressOf Me.Run))
End Sub
Public Sub Start()
Me.Run()
End Sub
Private Sub Run() '该方法为私有方法
Dim intCount As Integer
For intCount = 0 To Me._LoopCount
Console.WriteLine("第 {0} 个线程正在执行 {1} ...",Me._ID,intCount)
Next
End Sub
End Class
|
通过这样的封装，我们在创建线程的时候，就可以灵活地给出相应的参数。当然，上述代码仅是一个简单的例子，在实际应用中，我们可以根据自己的需求来包装线程。
下一节，我们将会了解线程的控制。
