Thread Question

[Hinder]

Can anyone tell me why this doesn't work?

Imports System.Threading

Shared Sub MsgError(ByVal InStr As String)
MsgBox(InStr)
End Sub

Private Sub Start()
Try
...some code...
Catch ex As Exeption
Dim T As New Thread(AddressOf MsgError(ex.Message))
T.Start()
End Try
End Sub

'I basically want to pass errors to a messagebox sub in it's own thread, It seems to not like the arguments being passed in the MsgError, almost like it doesn't accepts anything but the address??

[Edneeis]

That is true it does only accept the address. You can't pass parameters in an AddressOf statement.

[Hinder]

Ah darn, oh well thanks for responding, Ill just have to find another way

[burbakei]

first remove the parameter from the line

Dim T As New Thread(AddressOf MsgError(ex.Message))

AddressOf needs only the name of the method.

second, by removing the parameter your code doesn't still compile
because the signature of MsgError isnot the same as ThreadStart delegate. ThreadStart has no parameter.

[Edneeis]

You could use a delegate to process it on another thread and still pass in parameters.

Public Delegate Sub DoMsgError(ByVal InStr As String)
 
    Shared Sub MsgError(ByVal InStr As String)
        MsgBox(InStr)
    End Sub
 
    Private Sub Start()
        Try
            Dim x As Integer = 1
            x = x / 0
        Catch ex As Exception
            Dim del As New DoMsgError(AddressOf MsgError)
            del.BeginInvoke(ex.Message, Nothing, Nothing)
        End Try
    End Sub
 
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Start()
        MsgBox("done")
    End Sub

[burbakei]

your code works fine. but in Hinder code it was
Dim T As New Thread ...
and still has that problem with.

[Edneeis]

Thats true but BeginInvoke will start the method on a new thread which is what he/she is trying to do.

[Hinder]

Ah very nicely put, thank you.. will put that to good use