C# と VB.NET の質問掲示板

これは三日前に別のところで投稿したんですが恐らく放置です・・・

外部スレッドからの操作というジャンルだと思うのですがサンプルを見ても良くわかりませんでした
下のソースでコントロール操作をするにはどのようにすればいいのでしょうか？
よろしくお願いしますm(_ _)m

標準モジュールで表示中のForm1.Lavelを操作しようとしています

Public Sub コマンド実行の確認()
DOS_KILL = 0
  Form3.GroupBox3.Visible = True
  hProcess = System.Diagnostics.Process.Start((System.AppDomain.CurrentDomain.BaseDirectory) & "\CPU monitor\Batch folder\000.bat")
  hProcess.EnableRaisingEvents = True
  AddHandler hProcess.Exited, AddressOf DOS_Exited
End Sub

Private Sub DOS_Exited(ByVal sender As Object, ByVal e As System.EventArgs)
  Form1.Label1.Visible = False ←これがうまくいきません
End Sub

環境
VB.NET 2008 EE
Windows XP HOME

> Private Sub DOS_Exited(ByVal sender As Object, ByVal e As System.EventArgs)
>     Form1.Label1.Visible = False ←これがうまくいきません
> End Sub
ここの Form1 は表示している Form1 と別インスタンスの Form1 かもしれません。
VB2005 から既定のインスタンスという機能が備わっています。
このせいでフォームのクラス名を直接書いた場合に、勝手にインスタンス化されてしまいます。

どのようにして Form1 のインスタンスを生成して、表示したかが記載されていませんのでわかりませんが、
My.Forms.Form1 の Label1 に対して非表示にすればうまくいくのではないでしょうか。

うまくいかない可能性が高いので、（たぶんダメ）
その場合は表示している Form1 のインスタンスに対して Label1 を非表示にしていください。

My.Forms についてはこちらを参照してください。
    My.Forms オブジェクト
    http://msdn2.microsoft.com/ja-jp/library/87y2hdsf.aspx

> AddHandler hProcess.Exited, AddressOf DOS_Exited
この部分を完全に無視していました。（すみません）

Exited イベントは非同期（別スレッド）で通知されるため、
My.Forms.Form1 の Label1 に対して非表示にしても、
意図した動きになりません。

コントロールにアクセスするためには、
そのコントロールを作成したスレッドからアクセスしなければいけない、という決まりがあります。
今回の場合は Form1 を作成したスレッドと DOS_Exited メソッドが動作しているスレッドが別なため、
表示されている Form1 の Label1 にアクセスできていません。

コントロールを作成したスレッドからコントロールにアクセスするためには
Control.Invoke メソッドを使用します。

    Control.Invoke メソッド (Delegate)
    http://msdn2.microsoft.com/ja-jp/library/zyzhdc6b.aspx

次のようにすれば Label1 は非表示になると思います。

モジュールのコード-------

	Private uiControl  As Control
	
	Public Sub コマンド実行の確認(c As Control)
	    uiControl = c
	    DOS_KILL = 0
        Form3.GroupBox3.Visible = True
        hProcess = System.Diagnostics.Process.Start((System.AppDomain.CurrentDomain.BaseDirectory) & "\CPU monitor\Batch folder\000.bat")
        hProcess.EnableRaisingEvents = True
	    AddHandler hProcess.Exited, AddressOf DOS_Exited
	End Sub

    Private Sub DOS_Exited(ByVal sender As Object, ByVal e As System.EventArgs)
        uiControl.Invoke(New MethodInvoker(AddressOf Invokeから呼ばれるメソッド))
    End Sub

    Private Sub Invokeから呼ばれるメソッド()
        Form1.Label1.Visible = False
    End Sub

-------

Invoke メソッドを使用するためのコントロールを
「コマンド実行の確認」関数の引数で受け取っています。
そのコントロールの Invoke メソッドから「Invokeから呼ばれるメソッド」関数を呼んでいます。
こうすることで「Invokeから呼ばれるメソッド」関数は
uiControl が作成されたコントロールのスレッドから呼び出すことができます。

もし、別スレッドでなければ My.Forms.Form1 で最初に表示されているフォームにアクセス可能です。
My.Forms を付けるか付けないかは関係ありません。

> すいません、いままでCall~~で呼ぶことしかしなかったので「Public Sub コマンド実行の確認(c As Control)
> 」の呼び方がわかりません、
> 色々試しましたがﾀﾞﾒでした、どのように呼び出すのでしょうか？

引数という言葉は聞いたことはありますか。
Process.Start メソッドに渡しているファイルパスも引数です。
ここら辺は入門書などで勉強された方がいいと思います。
お勧めの本などはわかりません。

引数を指定した呼び方ですが () の中に引数を指定します。
お好きな呼び出し方で呼んでください。お勧めは一番目です。

    Module1.コマンド実行の確認(My.Forms.Form1.Label1)
    Call コマンド実行の確認(My.Forms.Form1.Label1)
    コマンド実行の確認(My.Forms.Form1.Label1)

本当に入門書などを読んで学ぶことをお勧めします。
その方が早く確実に身に付けることが出来ると思います。
そしてその中でわからないことがあれば、
Web 検索するなり、質問するなりすればいいと思います。

今年もカウントダウンに入ってきましたが、こちらの掲示板に投稿しておられる
皆様はプログラミングの強者とお見受けしました。

来る2008年にぜひ作ってみたいプログラム、あるいはチャレンジしたいテクニックなどを紹介していただけたらと思います。ぜひぜひお聞かせください。(^_^)/