VB.NET メッセージ出力

Question

前提・実現したいこと

Windows Formアプリケーションを作成しています。
VB6からVB.NETへの変換を行っています。VB6の時に動かしていた状態の機能をそのままでは再現できない為、マルチスレッド化を進めています。

処理をマルチスレッドにて動かす場合の、同一フォームへのメッセージ出力について、出力できずに困っています。

また、VBのマルチスレッドの扱い方についての理解がイマイチ進まない為、ご教授頂きたいと思います。よろしくお願いいたします。

発生している問題・エラーメッセージ

ThreadStateException: 現在のスレッドはシングル スレッド アパートメントでないため、ActiveX コントロール xxxx をインスタンス化できません。

該当のソースコード

MainFrom：メインフォーム

Private MyThred As Thread

Private Sub MainFrom_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

        'スレッドスタート.
        MyThred = New Thread(AddressOf Thread1) 
        MyThred .IsBackground = True
        MyThred .Start()

End Sub
 ・
 ・
 ・
 ・

'メインスレッド
Sub Thread1()
 Do
  'ErrModOut("xxxx") '<- 元の処理（Moduleへ)
  ErrMesOut("xxxxx")
 Loop
End Sub

'エラー出力用
Private Sub ErrMesOut(ByRef s As String)
  ErrDispText.Text = "エラー:" & s
End Sub

　
下記がModuleの処理

Module SubMod
 ・
 ・
 Sub ErrModOut(ByRef s As String)
   MainFrom.ErrDispText.Text = "エラー:" & s
 End Sub
 ・
 ・
End Module

試したこと

１）別Moduleからは、Fromにアクセスしない方が良いと考え、Form内にメッセージ出力用のメソッドを用意（現在の状態）※実際にはModuleでは別の処理もある

下記を参考に、自分のフォームに処理を追加
https://www.atmarkit.co.jp/ait/articles/0504/20/news111_2.html

２）エラーメッセージを検索したら、下記MSフォーラムが出てきた。
回避策として、<MTAThread()>を追加すると記載があった。
https://support.microsoft.com/ja-jp/help/841295/you-receive-a-system-threading-threadstateexception-exception-when-you

補足情報（FW/ツールのバージョンなど）

OS：Windows10
開発環境:Visual Studio2017 / .NetFramwerk4.6.1

Answer 1

提示されたコードのみでは、細部がはっきりしないのでアドバイスしづらいですが、一つだけ確実なのは別スレッドからフォームのコントロールに対してアクセスする(関数経由でも同じ)ことはできません。

今アクセス関数を作っているのであれば、その関数に対してデリゲート宣言をして、スレッド内の処理からInvoke関数を使って、デリゲートオブジェクトを呼び出してやる、ということをする必要があります。

Invoke,Delegate,スレッドなどのキーワードで検索すれば、非同期処理について詳しく解説しているサイトが見つかると思います。そちらを参考にされると良いと思います。

Comments

[TEC_S]

情報が少ない中（申し訳ありません）ありがとうございます。

フォームのコントロールに対しては、スレッド内の処理からInvoke関数を使って、デリゲートオブジェクトを呼び出す。というのが、処理の方法なのですね。

＞別スレッドからフォームのコントロールに対してアクセスする(関数経由でも同じ)ことはできません。

　→　勘違いしていました。ありがとうございます。

Moduleからでも、Invoke関数を呼び出せば、可能という事でしょうか。。
例えば、下記のようなコード。

```VBNET

Module SubMod
・
・
Private Delegate Function Del
Sub ErrModOut(ByRef s As String)
　If MainFrom.InvokeRequired Then
Return MainFrom.Invoke(New Del(Function() ErrModOut(s)))
　End If
MainFrom.ErrDispText.Text = "エラー:" & s
End Sub
・
・
End Module
```
参考：https://codezine.jp/article/detail/139

このコードだと、MainFromがNothingだと言われます。
MainFormのコントロールプロパティにInvokeRequired があると思っていますが、Nothingという事は、初期化するべきでしょうか。

根本的に何か・・・勘違いをしていますでしょうか。。
申し訳ありません。ご教授頂けますと幸いです。

[KoichiSugiyama]

VBそれほど詳しくないのですが、VB6でよくあったフォーム名を直接指定して操作する、というやり方はVB.netでも一応使える場面もあるそうですが、通常はあまり推奨されていません。アプリケーションのメインフォームにアクセスしたいのであれば、WindowsFormsApplicationBase.MainForm プロパティを使ってメインフォームを取得すればよいと思います。

[TEC_S]

ありがとうございます。
頂いたご意見（MainFormプロパティを取得させれば）が参考になり、解決となりました。

Answer 2

メインフォームから、ModuleへMainFromのインスタンスを渡した

Private Sub MainFrom_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

        'スレッドスタート.
        SubMod.MainFrom = Me '<- 追加：Fromのインスタンスを渡す
        MyThred = New Thread(AddressOf Thread1) 
        MyThred .IsBackground = True
        MyThred .Start()

End Sub

　
Module

Module SubMod
　Property MainFrom
 ・
 ・
Private Delegate Function Del
Sub ErrModOut(ByRef s As String)
　If MainFrom.InvokeRequired Then
   Return MainFrom.Invoke(New Del(Function() ErrModOut(s)))
　End If
  MainFrom.ErrDispText.Text = "エラー:" & s
 End Sub
 ・
 ・
End Module