Imports System
Imports System.Threading

'準(zhǔn)備在主線程外再啟動(dòng)第2線程運(yùn)行ThreadProc()方法
Public Class ThreadExample
    ' ThreadProc()方法將會(huì)在第2線程啟動(dòng)后被調(diào)用
    ' 它將會(huì)循環(huán)10次,，并把結(jié)果輸出到控制臺(tái),，也就是Dos模式下顯示 
    ' 運(yùn)行結(jié)果后,，剩余的時(shí)間讓線程掛前指定的時(shí)間,，也就是Thread.Sleep(500),，500代表毫秒,，1000毫秒=1秒
    Public Shared Sub ThreadProc()
        Dim i As Integer
        For i = 1 To 10
            Console.WriteLine("ThreadProc方法正在第2線程辦第  {0} 件事", i)
            ' 控制臺(tái)顯示了以上信息后，接下來就是讓當(dāng)前線程掛前指定的時(shí)間
            Thread.Sleep(500)
        Next
    End Sub

'更多原創(chuàng)VB.Net學(xué)習(xí)筆記 來自lob.cn樂博網(wǎng),，大家一起來討論

    Public Shared Sub Main()

        Console.WriteLine("主線程:準(zhǔn)備啟動(dòng)第2線程啦.")
        ' 在線程類的結(jié)果中需要委派讓線程啟動(dòng),；VB.Net提供的AddressOf操作可以完成這個(gè)任務(wù)
        Dim t As New Thread(AddressOf ThreadProc) '記住，這里調(diào)用的方法不能帶參數(shù)的

       '需要在方法中帶參數(shù),可以在樂博網(wǎng)搜索其他文章有詳細(xì)說明

        ' 在t.Start()新線程開始后,，可以調(diào)用個(gè)Thread.Sleep(5000),，掛起時(shí)間自定，看看有什么不同
        t.Start()
        Thread.Sleep(50)

        Dim i As Integer
        For i = 1 To 4
            Console.WriteLine("主線程:這個(gè)時(shí)候主線程也可以做點(diǎn)事啦,，不能閑著.")
            Thread.Sleep(10)
        Next

        Console.WriteLine("主線程: 調(diào)用Join()方法,判斷第2線程程調(diào)用ThreadProc方法是不是已經(jīng)結(jié)束了.")
        t.Join()
        Console.WriteLine("主線程: Join方法答復(fù)：完工啦,，可以退出了.")
       Console.ReadLine()
    End Sub
End Class