Thread, give me the parameter!!!

How can I set the initial parameters of a thread? For example:

VB Code:

private sub eheheheh()
    param1=0
    param2=4
    Dim x As New Threading.Thread(AddressOf DoOperation)
    x.Start()
end sub
Private sub DoOperation
    Result=param1+param2
    'Do your stuff...
end sub

Notice that I don't want to wait for this operation to finish, I want only to set the initial parameters of the thread. And I don't want to use local variables because sub eheheheh can be called several times...
Any ideas?

Thx,
Xmas79

VB Code:

[COLOR=BLUE]Dim[/COLOR] param1 [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Integer
Dim[/COLOR] param2 [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Integer
 
Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Button1_Click([COLOR=BLUE]ByVal[/COLOR] sender [COLOR=BLUE]As[/COLOR] System.Object, [COLOR=BLUE]ByVal[/COLOR] e [COLOR=BLUE]As[/COLOR] System.EventArgs) [COLOR=BLUE]Handles[/COLOR] Button1.Click
    eheheheh(1, 4)
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub
 
Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] eheheheh([COLOR=BLUE]ByVal[/COLOR] paramVal1 [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Integer[/COLOR], [COLOR=BLUE]ByVal[/COLOR] paramVal2 [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Integer[/COLOR])
    param1 = paramVal1
    param2 = paramVal2
    [COLOR=BLUE]Dim[/COLOR] x [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]New[/COLOR] Threading.Thread([COLOR=BLUE]AddressOf[/COLOR] DoOperation)
    x.Start()
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub
Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] DoOperation()
    [COLOR=BLUE]Dim[/COLOR] Result [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Integer[/COLOR] = param1 + param2
    MessageBox.Show(Result)
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

not sure if that helps.

Quote:

---

Originally posted by Xmas79
... I want only to set the initial parameters of the thread. And I don't want to use local variables because sub eheheheh can be called several times...

---

The above code uses local variables, and it's not good, as this code can be executed several times. There's a chance to get these parameters changed by a "second" thread while the "first" is being executed...

Any other suggestions?

Thx

You are gonna have to do it asynchrously. That the only way you are going to set parameters or get the results back from a thread.

Done... The idea is to create a new class, and put the thread in this new class:

VB Code:

Private Class ThreadClass
    Public param1 as Integer
    Public param2 as Integer
    ....
    Public Sub ThreadManager()
        ' Thread subroutine
        MsgBox(param1+param2)
        ' Do your stuff
        ' ...
    End Sub
End Class
 
Private Sub eheheheh()
    Dim x as New ThreadClass()
    x.Param1=0
    x.Param2=0
 
    Dim t as New Threading.Thread(AddressOf x.ThreadManager)
    t.start()
End Sub

You can use a delegate to do threading with parameters.

VB Code:

'make delegate with same signature
Public Delegate Sub DoOperationHandler(param1 as integer,param2 as integer)
 
'with params
Private Sub DoOperation(param1 as integer,param2 as integer)
    Result=param1+param2
    'Do your stuff...
End Sub
 
'you don't need this sub to fire the threaded method
Private Sub eheheheh()
    Dim x As New DoOperationHandler(AddressOf DoOperation)
    x.BeginInvoke(1,4,Nothing,Nothing)
End Sub