チュートリアル : Visual Basic による簡単なマルチスレッドコンポーネントの作成

[アーティクル]
06/09/2015

BackgroundWorker コンポーネントは、System.Threading 名前空間に代わると共に追加の機能を提供します。ただし、System.Threading 名前空間は、下位互換性を保つ目的および将来使用する目的で保持されます。詳細については、「BackgroundWorker コンポーネントの概要」を参照してください。

複数のタスクを同時に実行できるアプリケーションを作成できます。この機能は、"マルチスレッド" または "フリースレッド" と呼ばれ、プロセッサ集中型でユーザー入力の必要なコンポーネントをデザインするための強力な手段です。マルチスレッドを利用するコンポーネントの例としては、給与支払い情報を計算するコンポーネントがあります。プロセッサ集中型の給与計算を 1 つのスレッドで実行している間に、ユーザーがデータベースに入力したデータを別のスレッドで処理できます。プロセスを個別のスレッドで実行することによって、ユーザーはコンピューターの計算処理が完了するのを待たずに追加のデータを入力できます。このチュートリアルでは、複数の複雑な計算を同時に実行する簡単なマルチスレッドコンポーネントを作成します。

プロジェクトの作成

作成するアプリケーションは、1 つのフォームと 1 つのコンポーネントで構成されます。ユーザーが値を入力してコンポーネントに通知すると、計算が開始されます。フォームはコンポーネントから値を受け取り、その値をラベルコントロールに表示します。このコンポーネントはプロセッサ集中型の計算を実行し、完了時にフォームに通知します。ユーザーインターフェイスから受け取った値を保持するために、コンポーネントにパブリック変数を作成します。また、これらの変数の値に基づいて計算を実行するためのメソッドをコンポーネントに実装します。

注意

一般に、値を計算する方法としては関数が適していますが、スレッド間で引数を渡したり値を返したりできません。スレッドに値を渡したり、スレッドから値を受け取ったりするための簡単な方法は多数あります。この例では、パブリック変数を更新して、ユーザーインターフェイスに値を返します。また、スレッドが実行を完了したときに、イベントを使ってメインプログラムに通知します。

実際に画面に表示されるダイアログボックスとメニューコマンドは、アクティブな設定またはエディションによっては、ヘルプの説明と異なる場合があります。設定を変更するには、[ツール] メニューの [設定のインポートとエクスポート] をクリックします。詳細については、「Visual Studio での開発設定のカスタマイズ」を参照してください。

フォームを作成するには

新しい Windows アプリケーション プロジェクトを作成します。
アプリケーションに Calculations という名前を付けて、Form1.vb の名前を frmCalculations.vb に変更します。
Visual Studio によって、Form1 コード要素の名前を変更するように要求するメッセージが表示されたら、[はい] をクリックします。

このフォームは作成するアプリケーションのプライマリユーザーインターフェイスとして機能します。

5 つの Label コントロール、4 つの Button コントロール、および 1 つの TextBox コントロールをフォームに追加します。

Control	名前	テキスト
Label1	lblFactorial1	(空白)
Label2	lblFactorial2	(空白)
Label3	lblAddTwo	(空白)
Label4	lblRunLoops	(空白)
Label5	lblTotalCalculations	(空白)
Button1	btnFactorial1	Factorial
Button2	btnFactorial2	Factorial - 1
Button3	btnAddTwo	Add Two
Button4	btnRunLoops	Run a Loop
TextBox1	txtValue	(空白)

Calculator コンポーネントを作成するには

[プロジェクト] メニューの [コンポーネントの追加] をクリックします。
このコンポーネントに Calculator という名前を付けます。

Calculator コンポーネントにパブリック変数を追加するには

コードエディターで Calculator を開きます。
ステートメントを追加して、frmCalculations から各スレッドに値を渡すために使うパブリック変数を作成します。

変数 varTotalCalculations はコンポーネントによって実行された現在までの計算処理の合計件数を保持し、その他の変数はフォームから値を受け取ります。
```
Public varAddTwo As Integer
Public varFact1 As Integer
Public varFact2 As Integer
Public varLoopValue As Integer
Public varTotalCalculations As Double = 0
```

Calculator コンポーネントにメソッドとイベントを追加するには

コンポーネントがフォームに値を渡すために使用するイベントを宣言します。前の手順で入力した変数宣言の直後に、次のコードを入力します。

Public Event FactorialComplete(ByVal Factorial As Double, ByVal _
   TotalCalculations As Double)
Public Event FactorialMinusComplete(ByVal Factorial As Double, ByVal _
   TotalCalculations As Double)
Public Event AddTwoComplete(ByVal Result As Integer, ByVal _
   TotalCalculations As Double)
Public Event LoopComplete(ByVal TotalCalculations As Double, ByVal _
   Counter As Integer)

手順 1. で入力した変数宣言の直後に、次のコードを入力します。

' This sub will calculate the value of a number minus 1 factorial 
' (varFact2-1!).
Public Sub FactorialMinusOne()
   Dim varX As Integer = 1
   Dim varTotalAsOfNow As Double
   Dim varResult As Double = 1
   ' Performs a factorial calculation on varFact2 - 1.
   For varX = 1 to varFact2 - 1
      varResult *= varX
      ' Increments varTotalCalculations and keeps track of the current
      ' total as of this instant.
      varTotalCalculations += 1
      varTotalAsOfNow = varTotalCalculations
   Next varX
   ' Signals that the method has completed, and communicates the 
   ' result and a value of total calculations performed up to this 
   ' point
   RaiseEvent FactorialMinusComplete(varResult, varTotalAsOfNow)
End Sub

' This sub will calculate the value of a number factorial (varFact1!).
Public Sub Factorial()
   Dim varX As Integer = 1
   Dim varResult As Double = 1
   Dim varTotalAsOfNow As Double = 0
   For varX = 1 to varFact1
       varResult *= varX
       varTotalCalculations += 1
       varTotalAsOfNow = varTotalCalculations
   Next varX
   RaiseEvent FactorialComplete(varResult, varTotalAsOfNow)
End Sub

' This sub will add two to a number (varAddTwo + 2).
Public Sub AddTwo()
   Dim varResult As Integer
   Dim varTotalAsOfNow As Double
   varResult = varAddTwo + 2
   varTotalCalculations += 1
   varTotalAsOfNow = varTotalCalculations
   RaiseEvent AddTwoComplete(varResult, varTotalAsOfNow)
End Sub

' This method will run a loop with a nested loop varLoopValue times.
Public Sub RunALoop()
   Dim varX As Integer
   Dim varY As Integer
   Dim varTotalAsOfNow As Double
   For varX = 1 To varLoopValue
      ' This nested loop is added solely for the purpose of slowing
      ' down the program and creating a processor-intensive
      ' application.
      For varY = 1 To 500
         varTotalCalculations += 1
         varTotalAsOfNow = varTotalCalculations
      Next
   Next
   RaiseEvent LoopComplete(varTotalAsOfNow, varX - 1)
End Sub

コンポーネントへのユーザー入力の転送

次の手順では、ユーザーからの入力を受け取ったり、Calculator コンポーネントと値をやり取りしたりするためのコードを frmCalculations に追加します。

frmCalculations にフロントエンド機能を実装するには

[ビルド] メニューの [ソリューションのビルド] をクリックします。
Windows フォームデザイナーで frmCalculations を開きます。
[ツールボックス] の [Calculations コンポーネント] タブを探します。 Calculator コンポーネントをデザインサーフェイス上にドラッグします。
[プロパティ] ウィンドウツールバーの [イベント] をクリックします。
4 つの各イベントをダブルクリックして frmCalculations にイベントハンドラーを作成します。各イベントハンドラーが作成された後でデザイナーに戻る必要があります。

次のコードを挿入して、フォームが Calculator1 から受け取るイベントを処理します。

Private Sub Calculator1_AddTwoComplete(ByVal Result As System.Int32, ByVal TotalCalculations As System.Double) Handles Calculator1.AddTwoComplete
    lblAddTwo.Text = Result.ToString
    btnAddTwo.Enabled = True
    lblTotalCalculations.Text = "TotalCalculations are " & _
        TotalCalculations.ToString
End Sub

Private Sub Calculator1_FactorialComplete(ByVal Factorial As System.Double, ByVal TotalCalculations As System.Double) Handles Calculator1.FactorialComplete
    ' Displays the returned value in the appropriate label.
    lblFactorial1.Text = Factorial.ToString
    ' Re-enables the button so it can be used again.
    btnFactorial1.Enabled = True
    ' Updates the label that displays the total calculations performed
    lblTotalCalculations.Text = "TotalCalculations are " & _
       TotalCalculations.ToString
End Sub

Private Sub Calculator1_FactorialMinusComplete(ByVal Factorial As System.Double, ByVal TotalCalculations As System.Double) Handles Calculator1.FactorialMinusComplete
    lblFactorial2.Text = Factorial.ToString
    btnFactorial2.Enabled = True
    lblTotalCalculations.Text = "TotalCalculations are " & _
        TotalCalculations.ToString
End Sub

Private Sub Calculator1_LoopComplete(ByVal TotalCalculations As System.Double, ByVal Counter As System.Int32) Handles Calculator1.LoopComplete
    btnRunLoops.Enabled = True
    lblRunLoops.Text = Counter.ToString
    lblTotalCalculations.Text = "TotalCalculations are " & _
       TotalCalculations.ToString
End Sub

コードエディターの下部にある End Class ステートメントを探します。このステートメントの直前に、ボタンのクリックを処理する次のコードを追加します。

Private Sub btnFactorial1_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles btnFactorial1.Click
   ' Passes the value typed in the txtValue to Calculator.varFact1.
   Calculator1.varFact1 = CInt(txtValue.Text)
   ' Disables the btnFactorial1 until this calculation is complete.
   btnFactorial1.Enabled = False
   Calculator1.Factorial()
End Sub

Private Sub btnFactorial2_Click(ByVal sender As Object, ByVal e _
   As System.EventArgs) Handles btnFactorial2.Click
   Calculator1.varFact2 = CInt(txtValue.Text)
   btnFactorial2.Enabled = False
   Calculator1.FactorialMinusOne()
End Sub

Private Sub btnAddTwo_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles btnAddTwo.Click
   Calculator1.varAddTwo = CInt(txtValue.Text)
   btnAddTwo.Enabled = False
   Calculator1.AddTwo()
End Sub

Private Sub btnRunLoops_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles btnRunLoops.Click
   Calculator1.varLoopValue = CInt(txtValue.Text)
   btnRunLoops.Enabled = False
   ' Lets the user know that a loop is running.
   lblRunLoops.Text = "Looping"
   Calculator1.RunALoop()
End Sub

アプリケーションのテスト

これで、複数の複雑な計算を実行できるフォームとコンポーネントを取り込んだプロジェクトが作成されました。マルチスレッドの機能がまだ実装されていませんが、先に進む前にプロジェクトをテストして機能を検査します。

プロジェクトをテストするには

[デバッグ] メニューの [デバッグ開始] をクリックします。アプリケーションが開始され frmCalculations が表示されます。
テキストボックスに「4」と入力し、[Add two] というラベルの付いたボタンをクリックします。

"6" という数字がこのラベルの下に表示され、lblTotalCalculations に "Total Calculations are 1" と表示されている必要があります。
次に [Factorial - 1] というラベルの付いたボタンをクリックします。

"6" という数字がこのボタンの下に表示され、今度は lblTotalCalculations に "Total Calculations are 4" と表示されている必要があります。
テキストボックスの値を「20」に変更し、[Factorial] というラベルの付いたボタンをクリックします。

ボタンの下に "2.43290200817664E+18" という数字が表示され、今度は lblTotalCalculations に "Total Calculations are 24" と表示されます。
テキストボックスの値を「50000」に変更し、[Run A Loop] というラベルの付いたボタンをクリックします。

このボタンが再び使用できるようになるまでには、少し時間がかかります。このボタンの下のラベルに "50000" と表示され、合計計算数が "25000024" と表示されます。
テキストボックスの値を「5000000」に変更し [Run A Loop] というラベルの付いたボタンをクリックし、すぐに [Add Two] というラベルの付いたボタンをクリックします。もう一度 [Add Two] をクリックします。

ボタンおよびフォームのすべてのコントロールは、ループ処理が完了するまで応答しません。

プログラムで実行されるスレッドが 1 つだけである場合は、上の例のようなプロセッサ集中型の計算を実行すると、計算が完了するまでプログラムが拘束される傾向があります。複数のスレッドが同時に実行できるように、次のセクションでは、マルチスレッド機能をアプリケーションに追加します。

マルチスレッド機能の追加

前の例ではシングルスレッドでだけ実行されるアプリケーションの制限について説明しました。次のセクションでは、Thread クラスを使って、複数の実行スレッドをコンポーネントに追加します。

Threads サブルーチンを追加するには

コードエディターで Calculator.vb を開きます。コードの先頭付近にある Public Class Calculator 行を探します。この行の直後に、次のコードを追加します。

' Declares the variables you will use to hold your thread objects.
Public FactorialThread As System.Threading.Thread
Public FactorialMinusOneThread As System.Threading.Thread
Public AddTwoThread As System.Threading.Thread
Public LoopThread As System.Threading.Thread

このコード下部にある End Class ステートメントの直前に、次のメソッドを追加します。
```
Public Sub ChooseThreads(ByVal threadNumber As Integer)
' Determines which thread to start based on the value it receives.
   Select Case threadNumber
      Case 1
         ' Sets the thread using the AddressOf the subroutine where
         ' the thread will start.
         FactorialThread = New System.Threading.Thread(AddressOf _
            Factorial)
         ' Starts the thread.
         FactorialThread.Start()
      Case 2
         FactorialMinusOneThread = New _
            System.Threading.Thread(AddressOf FactorialMinusOne)
         FactorialMinusOneThread.Start()
      Case 3
         AddTwoThread = New System.Threading.Thread(AddressOf AddTwo)
         AddTwoThread.Start()
      Case 4
         LoopThread = New System.Threading.Thread(AddressOf RunALoop)
         LoopThread.Start()
   End Select
End Sub
```
Thread オブジェクトをインスタンス化するときは、ThreadStart オブジェクトの形式の引数が必要です。 ThreadStart オブジェクトは、スレッドを開始するサブルーチンのアドレスを指すデリゲートです。 ThreadStart オブジェクトは、パラメーターを受け取ったり、値を渡したりできないため、関数を示すことはできません。 AddressOf 演算子 (Visual Basic) は、ThreadStart オブジェクトとして機能するデリゲートを返します。実装した ChooseThreads サブルーチンが、呼び出し元のプログラムから値を受け取り、この値を使用することにより、開始する必要のある適切なスレッドを決定します。

frmCalculations にスレッドの起動コードを追加するには

コードエディターで frmCalculations.vb ファイルを開きます。 Sub btnFactorial1_Click を探します。
1. 示すように Calculator1.Factorialの直接メソッドを呼び出す行をコメントアウトします:
```
' Calculator1.Factorial
```
2. Calculator1.ChooseThreads メソッドを呼び出すため、次の行を追加します。
```
' Passes the value 1 to Calculator1, thus directing it to start the ' correct thread.
Calculator1.ChooseThreads(1)
```

他の button_click サブルーチンにも同様の変更を加えます。

注意

threads 引数の適切な値が含まれていることを確認してください。

完成したコードは次のようになります。

Private Sub btnFactorial1_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles btnFactorial1.Click
   ' Passes the value typed in the txtValue to Calculator.varFact1.
   Calculator1.varFact1 = CInt(txtValue.Text)
   ' Disables the btnFactorial1 until this calculation is complete.
   btnFactorial1.Enabled = False
   ' Calculator1.Factorial()
   ' Passes the value 1 to Calculator1, thus directing it to start the
   ' Correct thread.
   Calculator1.ChooseThreads(1)
End Sub

Private Sub btnFactorial2_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles btnFactorial2.Click
   Calculator1.varFact2 = CInt(txtValue.Text)
   btnFactorial2.Enabled = False
   ' Calculator1.FactorialMinusOne()
   Calculator1.ChooseThreads(2)
End Sub

Private Sub btnAddTwo_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles btnAddTwo.Click
   Calculator1.varAddTwo = CInt(txtValue.Text)
   btnAddTwo.Enabled = False
   ' Calculator1.AddTwo()
   Calculator1.ChooseThreads(3)
End Sub

Private Sub btnRunLoops_Click(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles btnRunLoops.Click
   Calculator1.varLoopValue = CInt(txtValue.Text)
   btnRunLoops.Enabled = False
   ' Lets the user know that a loop is running.
   lblRunLoops.Text = "Looping"
   ' Calculator1.RunALoop()
   Calculator1.ChooseThreads(4)
End Sub

コントロールのマーシャリング呼び出し

ここでは、フォームの表示を円滑に更新できるようにします。コントロールは常にメインの実行スレッドによって所有されるため、従属スレッドからコントロールを呼び出すには "マーシャリング" 呼び出しが必要です。マーシャリングは、スレッド境界を越えて呼び出しを移動する方法で、リソースの観点から考えるとたいへんコストがかかります。マーシャリングの発生する回数を最小限にし、呼び出しをスレッドセーフな方法で行うには、BeginInvoke を使用して、メインの実行スレッドでメソッドを呼び出します。これにより、スレッドの境界を越えたマーシャリングの発生を必要最小限にできます。このような呼び出しは、コントロールを操作するメソッドを呼び出すときに必要です。詳細については、「方法 : スレッドからコントロールを操作する」を参照してください。

コントロールを呼び出すプロシージャを作成するには

コードエディターで frmCalculations を開きます。宣言セクションに次のコードを追加します。
```
Public Delegate Sub FHandler(ByVal Value As Double, ByVal _
   Calculations As Double)
Public Delegate Sub A2Handler(ByVal Value As Integer, ByVal _
   Calculations As Double)
Public Delegate Sub LDhandler(ByVal Calculations As Double, ByVal _
   Count As Integer)
```
Invoke と BeginInvoke では、適切なメソッドへのデリゲートが引数として必要です。これらの行では、適切なメソッドを呼び出すために BeginInvoke によって使用されるデリゲートのシグネチャを宣言します。

コードに次の空のメソッドを追加します。

Public Sub FactHandler(ByVal Factorial As Double, ByVal TotalCalculations As _
   Double)
End Sub
Public Sub Fact1Handler(ByVal Factorial As Double, ByVal TotalCalculations As _
   Double)
End Sub
Public Sub Add2Handler(ByVal Result As Integer, ByVal TotalCalculations As _
   Double)
End Sub
Public Sub LDoneHandler(ByVal TotalCalculations As Double, ByVal Counter As _
   Integer)
End Sub

[編集] メニューの [切り取り] と [貼り付け] を使って、Sub Calculator1_FactorialComplete のすべてのコードを切り取り、FactHandler に貼り付けます。
Calculator1_FactorialMinusComplete と Fact1Handler、Calculator1_AddTwoComplete と Add2Handler、および Calculator1_LoopComplete と LDoneHandler について前の手順を繰り返します。

終了すると、Calculator1_FactorialComplete、Calculator1_FactorialMinusComplete、Calculator1_AddTwoComplete、および Calculator1_LoopComplete に残されたコードはなく、これらに含まれていたすべてのコードは適切な新しいメソッドに移動されています。

BeginInvoke メソッドを呼び出して、メソッドを非同期的に呼び出します。 BeginInvoke は、フォーム (me) またはフォーム上の任意のコントロールから呼び出すことができます。

Private Sub Calculator1_FactorialComplete(ByVal Factorial As System.Double, ByVal TotalCalculations As System.Double) Handles Calculator1.FactorialComplete
   ' BeginInvoke causes asynchronous execution to begin at the address
   ' specified by the delegate. Simply put, it transfers execution of 
   ' this method back to the main thread. Any parameters required by 
   ' the method contained at the delegate are wrapped in an object and 
   ' passed. 
   Me.BeginInvoke(New FHandler(AddressOf FactHandler), New Object() _
      {Factorial, TotalCalculations })
End Sub

Private Sub Calculator1_FactorialMinusComplete(ByVal Factorial As System.Double, ByVal TotalCalculations As System.Double) Handles Calculator1.FactorialMinusComplete
   Me.BeginInvoke(New FHandler(AddressOf Fact1Handler), New Object() _
      { Factorial, TotalCalculations })
End Sub

Private Sub Calculator1_AddTwoComplete(ByVal Result As System.Int32, ByVal TotalCalculations As System.Double) Handles Calculator1.AddTwoComplete
   Me.BeginInvoke(New A2Handler(AddressOf Add2Handler), New Object() _
      { Result, TotalCalculations })
End Sub

Private Sub Calculator1_LoopComplete(ByVal TotalCalculations As System.Double, ByVal Counter As System.Int32) Handles Calculator1.LoopComplete
   Me.BeginInvoke(New LDHandler(AddressOf Ldonehandler), New Object() _
      { TotalCalculations, Counter })
End Sub

一見すると、イベントハンドラーは単純に次のメソッドを呼び出しているように見えます。実際には、イベントハンドラーは処理のメインスレッド上のメソッドを呼び出しています。この方法によりスレッドの境界を越えた呼び出しを減らし、ロックアップの発生を抑えながらマルチスレッドアプリケーションを効率的に実行できます。マルチスレッド環境でコントロールを使用する方法の詳細については、「方法 : スレッドからコントロールを操作する」を参照してください。

作業内容を保存します。
[デバッグ] メニューの [デバッグ開始] をクリックしてソリューションをテストします。
1. テキストボックスに「10000000」と入力し [Run A Loop] をクリックします。
  
  このボタンの下のラベルに "Looping" と表示されます。このループの実行にはかなり時間がかかります。完了が早すぎる場合は、数字の大きさを適宜変更してください。
2. まだ選択可能な 3 つのボタンを連続してクリックします。すべてのボタンが入力に応答することがわかります。 [Add Two] の下のラベルが最初に結果を表示します。その後、[factorial] ボタンの下のラベルに結果が表示されます。 10,000,000 の階乗から返される数値は大きすぎて倍精度の変数には入りきらないため、これらの結果は無限になります。最後に少し遅れて、結果が [Run A Loop] ボタンの下に表示されます。
  
  以上の結果から、4 つの異なる計算のセットが 4 つの異なるスレッドで同時に実行されました。ユーザーインターフェイスは入力に応答し続け、各スレッドの完了後に結果が返されました。

スレッドの調整

マルチスレッドアプリケーションを扱い慣れている方なら、入力したコードに不備があることにお気付きかもしれません。 Calculator の計算を実行する各サブルーチンのコード行を思い出してください。

varTotalCalculations += 1
varTotalAsOfNow = varTotalCalculations

これらの 2 行のコードでは、パブリック変数 varTotalCalculations をインクリメントし、ローカル変数 varTotalAsOfNow をこの値に設定します。次に、この値は frmCalculations に返され、ラベルコントロールに表示されます。ところで、返された値は正しいでしょうか。シングルスレッドの実行によって動作している場合に限っては、確実に正しい値が返されます。しかし、複数のスレッドが実行されている場合は、正しい値が返されることは保証されません。各スレッドは、変数 varTotalCalculations をインクリメントできます。あるスレッドによってこの変数がインクリメントされた後、インクリメントされた値が varTotalAsOfNow にコピーされる前に、別のスレッドによってインクリメントされ、変数の値が変更されてしまう可能性があります。つまり、実際には、各スレッドが正しくない結果をレポートしている可能性があります。 Visual Basic には、スレッドの同期を可能にし、各スレッドが常に正確な結果を返すようにするための SyncLock ステートメントが用意されています。 SyncLock の構文は次のとおりです。

SyncLock AnObject
   Insert code that affects the object
   Insert some more
   Insert even more
' Release the lock
End SyncLock

SyncLock ブロックが入力されると、指定された式の実行は、指定されたスレッドが対象のオブジェクトを排他ロックするまでブロックされます。上記の例では、実行は AnObject に対してブロックされます。 SyncLock は、値ではなく参照を返すオブジェクトで使用します。このようにして、実行が他のスレッドによって干渉されることなく 1 つのブロックとして続行されます。 1 つの単位として実行されるステートメントのセットは、分割不可能であることになります。 End SyncLock を検出すると、式が解放され、スレッドは通常どおりに実行されます。

アプリケーションに SyncLock ステートメントを追加するには

コードエディターで Calculator.vb を開きます。
次のコードが記述されたすべての場所を探します。
```
varTotalCalculations += 1
varTotalAsOfNow = varTotalCalculations
```
計算メソッドごとに 1 つずつ、このコードの 4 つのインスタンスが必要です。

コードを次のように変更します。

SyncLock Me
   varTotalCalculations += 1
   varTotalAsOfNow = varTotalCalculations
End SyncLock

作業内容を保存し、前の例と同様にテストします。

プログラムのパフォーマンスにわずかな影響があることがわかります。これはコンポーネントに排他ロックがかけられるときにスレッドの実行が停止するために起こります。この方法によって、正確さは保証されますが、複数のスレッドによって得られるパフォーマンス上の利点が若干損なわれます。スレッドのロックは、必要かどうかを慎重に検討して、不可欠な場合にだけ実装してください。

参照

チュートリアル : Visual Basic による簡単なマルチスレッドコンポーネントの作成

プロジェクトの作成

フォームを作成するには

Calculator コンポーネントを作成するには

Calculator コンポーネントにパブリック変数を追加するには

Calculator コンポーネントにメソッドとイベントを追加するには

コンポーネントへのユーザー入力の転送

frmCalculations にフロントエンド機能を実装するには

アプリケーションのテスト

プロジェクトをテストするには

マルチスレッド機能の追加

Threads サブルーチンを追加するには

frmCalculations にスレッドの起動コードを追加するには

コントロールのマーシャリング呼び出し

コントロールを呼び出すプロシージャを作成するには

スレッドの調整

アプリケーションに SyncLock ステートメントを追加するには

参照

処理手順

関連項目

概念

その他の技術情報

その他のリソース

チュートリアル : Visual Basic による簡単なマルチスレッド コンポーネントの作成

プロジェクトの作成

フォームを作成するには

Calculator コンポーネントを作成するには

Calculator コンポーネントにパブリック変数を追加するには

Calculator コンポーネントにメソッドとイベントを追加するには

コンポーネントへのユーザー入力の転送

frmCalculations にフロントエンド機能を実装するには

アプリケーションのテスト

プロジェクトをテストするには

マルチスレッド機能の追加

Threads サブルーチンを追加するには

frmCalculations にスレッドの起動コードを追加するには

コントロールのマーシャリング呼び出し

コントロールを呼び出すプロシージャを作成するには

スレッドの調整

アプリケーションに SyncLock ステートメントを追加するには

参照

処理手順

関連項目

概念

その他の技術情報

その他のリソース

チュートリアル : Visual Basic による簡単なマルチスレッドコンポーネントの作成