mariashark
Newcomer
- Joined
- Oct 2, 2011
- Messages
- 1
Re: Access or SQL
Split from http://www.xtremedotnettalk.com/showthread.php?t=101879
I want to catch events in my main form and change the title to match the input from the event. I'm getting errors about crossthreading. Can some one please help me get this small test program working?
Here is the whole code:
Code:
Public Class Form1
Private WithEvents Worker As New WorkerClass
Private Sub Worker_ProgressChanged(ByVal Progress As Integer) Handles Worker.ProgressChanged
Me.Text = Progress
End Sub
End Class
Code:
Public Class WorkerClass
Public Event ProgressChanged(ByVal Progress As Integer)
Private t As Threading.Thread
Public Sub New()
t = New Threading.Thread(AddressOf MainThread)
t.Name = "BackgroundThread"
t.IsBackground = True
t.Start()
End Sub
Private Sub MainThread()
Dim Progress As Integer = 0
Do Until Progress = 10
Threading.Thread.Sleep(1000)
Progress += 1
RaiseEvent ProgressChanged(Progress)
Loop
End Sub
End Class
___________________________
Watch The Ides of March Online for Free
Split from http://www.xtremedotnettalk.com/showthread.php?t=101879
I want to catch events in my main form and change the title to match the input from the event. I'm getting errors about crossthreading. Can some one please help me get this small test program working?
Here is the whole code:
Code:
Public Class Form1
Private WithEvents Worker As New WorkerClass
Private Sub Worker_ProgressChanged(ByVal Progress As Integer) Handles Worker.ProgressChanged
Me.Text = Progress
End Sub
End Class
Code:
Public Class WorkerClass
Public Event ProgressChanged(ByVal Progress As Integer)
Private t As Threading.Thread
Public Sub New()
t = New Threading.Thread(AddressOf MainThread)
t.Name = "BackgroundThread"
t.IsBackground = True
t.Start()
End Sub
Private Sub MainThread()
Dim Progress As Integer = 0
Do Until Progress = 10
Threading.Thread.Sleep(1000)
Progress += 1
RaiseEvent ProgressChanged(Progress)
Loop
End Sub
End Class
___________________________
Watch The Ides of March Online for Free
Last edited by a moderator: