Threadプログラム

■Threadプログラムを作る

.NETによるスレッドプログラムは意外と簡単だ
MSのサンプル
http://msdn.microsoft.com/ja-jp/library/system.threading.thread.aspx

Imports System
Imports System.Threading
Module Thread1

    'Class ThreadExample
    Sub ThreadProc()
        Dim i As Integer
        For i = 0 To 9
            Console.WriteLine("ThreadProc: {0}", i)
            Thread.Sleep(0)
        Next
    End Sub
    'End Class



    Sub Main()
        Dim t As New Thread(AddressOf ThreadProc)

        t.Start()
        'Thread.Sleep(0)

        Dim i As Integer
        For i = 1 To 4
            Console.WriteLine("Main thread: Do some work.")
            Thread.Sleep(0)
        Next

        Console.WriteLine("Main thread: Call Join(), to wait until ThreadProc ends.")
        t.Join()
        Console.WriteLine("Main thread: ThreadProc.Join has returned.  Press Enter to end program.")
        Console.ReadLine()

    End Sub

End Module

Start命令でスレッドが起動する
Join命令は呼び出し元をブロックする
結果は次の通り、Joinの呼び出しでブロックされるため、スレッド部分のみ動く

ThreadProc: 0
Main thread: Do some work.
ThreadProc: 1
Main thread: Do some work.
ThreadProc: 2
Main thread: Do some work.
ThreadProc: 3
Main thread: Do some work.
ThreadProc: 4
Main thread: Call Join(), to wait until ThreadProc ends.
ThreadProc: 5
ThreadProc: 6
ThreadProc: 7
ThreadProc: 8
ThreadProc: 9
Main thread: ThreadProc.Join has returned.  Press Enter to end program.