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

名前

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

本文

ご指摘有難うございます。

BackgroundWorkerを使用したのですが、Label1には何も表示されません。
BackgroundWorker1_ProgressChangedは別スレッド扱いなのでしょうか。

Imports System
Imports System.Threading
Public Class Form1
    Dim ss As New Class1
    Private Sub form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ss.Run()
        BackgroundWorker1.RunWorkerAsync()
    End Sub
    Private Sub BackgroundWorker1_ProgressChanged _
        (sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) _
        Handles BackgroundWorker1.ProgressChanged

Debug.Print(e.ProgressPercentage)
        Label1.Text = e.ProgressPercentage
    End Sub
End Class

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

Public Sub MyClock(o As Object)
        Form1.BackgroundWorker1.WorkerReportsProgress = True
        Form1.BackgroundWorker1.ReportProgress(CInt(DateTime.Now.Second))
    End Sub
End Class

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

戻る