Backgroundworke r questions

[AAaron123]

Is the following OK in Backgroundworke r:

Private Sub backgroundWorke r1_DoWork(ByVal sender As Object, ByVal e As
DoWorkEventArgs ) Handles backgroundWorke r1.DoWork

Static index As Integer = 700

Dim filename As String

filename = "Image_" & index.ToString( "D4")

'NOTE THE CONTROL WebBrowser1 IS USED

Dim bmp As Drawing.Bitmap = SomeMethod(WebB rowser1.Handle)
bmp.Save("C:\Si teShow\" & filename & ".bmp",
System.Drawing. Imaging.ImageFo rmat.Bmp)

index += 1

End Sub

or do I need to call something like this.

Private Sub SetText(ByVal [text] As String)
If Me.textBox1.Inv okeRequired Then
Dim d As New SetTextCallback (AddressOf SetText)
Me.Invoke(d, New Object() {[text]})
Else
Me.textBox1.Tex t = [text]
End If
End Sub
although it's not clear to me how to adapt the above!

if I want to do it repeatedly can I in a Timer click event do:
Private Sub Timer1_Tick(... ) Handles Timer1.Tick

If Me.backgroundWo rker1.IsBusy Then

Exit Sub

Else

Me.backgroundWo rker1.RunWorker Async()

End If

End Sub

Thanks for any help at all

[Stanimir Stoyanov]

I personally prefer the "Is invoke required?" approach. I primarily use it
in (database) projects where tasks have to be threaded and the UI usable all
the time and updated regularly.

Best Regards,
Stanimir Stoyanov | www.stoyanoff.info

"AAaron123" <aa*******@road runner.comwrote in message
news:%2******** **********@TK2M SFTNGP06.phx.gb l...

Is the following OK in Backgroundworke r:

Private Sub backgroundWorke r1_DoWork(ByVal sender As Object, ByVal e As
DoWorkEventArgs ) Handles backgroundWorke r1.DoWork

Static index As Integer = 700

Dim filename As String

filename = "Image_" & index.ToString( "D4")

'NOTE THE CONTROL WebBrowser1 IS USED

Dim bmp As Drawing.Bitmap = SomeMethod(WebB rowser1.Handle)
bmp.Save("C:\Si teShow\" & filename & ".bmp",
System.Drawing. Imaging.ImageFo rmat.Bmp)

index += 1

End Sub

or do I need to call something like this.

Private Sub SetText(ByVal [text] As String)
If Me.textBox1.Inv okeRequired Then
Dim d As New SetTextCallback (AddressOf SetText)
Me.Invoke(d, New Object() {[text]})
Else
Me.textBox1.Tex t = [text]
End If
End Sub
although it's not clear to me how to adapt the above!

if I want to do it repeatedly can I in a Timer click event do:
Private Sub Timer1_Tick(... ) Handles Timer1.Tick

If Me.backgroundWo rker1.IsBusy Then

Exit Sub

Else

Me.backgroundWo rker1.RunWorker Async()

End If

End Sub

Thanks for any help at all