2002年05月04日 土

VB.NET Tips。

VB.NETってスレッドが簡単に扱えるようになってるんだね。感動♪

Imports System
Imports System.Threading

Module modMain
  Private count As Long

  Sub Main()
    'ThreadStart デリゲートを作成する
    Dim tStart As ThreadStart = New ThreadStart(AddressOf StartCounting)

    'スレッドを作成する
    Dim t1 As Thread = New Thread(tStart)
    Dim t2 As Thread = New Thread(tStart)

    'スレッドの開始
    t1.Start()
    t2.Start()

    Console.Read()  'キーボードの入力があるまで待機

    'スレッドの終了
    t1.Abort()
    t2.Abort()
  End Sub

  Sub StartCounting()
    Do
      '別のスレッドが同じ変数にアクセスしている場合は、
      'Interlocked.Increment を使用する
      Interlocked.Increment(count)
      Console.WriteLine("After incrementing count is : {0}", count)
      Thread.Sleep(200)
    Loop
  End Sub
End Module

このページにリンクを張りたい人はご自由にどうぞ。
疑問・感想・要望・不満・文句・愚痴等々ありましたら↓までメール下さいましm(_ _)m