スレッド間のエラーを解消するには (ID:148130)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

「有効ではないスレッド間の操作: コントロールが作成されたスレッド以外のスレッドからコントロール・・・」とエラーが出て対処法がわからずに困って降ります。

流れとしては、
クラスを作成してそこに別スレッドで1秒毎にイベントを発生させています。
この発生したイベントをメインスレッドのイベントとして使用したいのです。
どうすれば良いのか解からず困っています。
どうか、御教授願えませんでしょうか。

Imports System
Imports System.Threading

Public Class Class1
    Public Event GetMow(ByVal sender As Object, ByVal e As EventArgs)

Public Sub Run()
        Dim timerDelegate As TimerCallback _
          = New TimerCallback(AddressOf MyClock)
        Dim timer As Timer _
          = New Timer(timerDelegate, Nothing, 0, 1000)

Console.ReadLine() ' キーが押されるまで待機
    End Sub

Public Sub MyClock(o As Object)
        Console.WriteLine(DateTime.Now)
        RaiseEvent GetMow(Me, New EventArgs)
    End Sub

End Class

Public Class form1
    Dim WithEvents ss As New Class1
    Private Sub ss_GetMow(ByVal sender As Object, ByVal e As System.EventArgs) Handles ss.GetMow
        ProgramTimer.Label1.Text = Now.Minute
    End Sub
    Private Sub form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ss.Run()
    End Sub

End Class

よろしくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る