Creating an array of objects when the object type is not known at design time

[StuartJ]

Hi,

I'm trying to create a generic threading application where you can pass
in any object and a number of threads, most of it is working but I'm
having trouble creating multiple instances of the object handed down.

The code that I've supplied should simply create msgbox with 10
different messages, but it the ProcessID gets incremented for all the
threads everytime a new object is created.

Can anyone point me in the right direction.....

Thanks in advance
Sub Main()
Dim myThreadRunner As New Threader.Thread er
Dim obj As New inherSimpleObj
myThreadRunner. ThreadRunner(10 , obj)
End Sub

~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~
Public Class Threader
Public Function ThreadRunner(By Val nT As Integer, ByVal myProcess As
Object)

Dim myobj As Object
myobj = myProcess

Dim t(nT - 1) As Threading.Threa d
Dim stiThreads(nT - 1) As clsSimpleObject
Dim X As Integer = 0
Do Until X = (nT)
Dim myNewObj As New object
myNewObj = DirectCast(myPr ocess, clsSimpleObject )
stiThreads(X) = myNewObj
stiThreads(X).P rocessID = X + 1
t(X) = New Threading.Threa d(AddressOf stiThreads(X).E xecute)
X += 1
Loop

For Each thrd As Threading.Threa d In t
thrd.Start()
System.Threadin g.Thread.Sleep( 100)
Next
End Function
End Class

~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~
Public Class inherSimpleObj
Inherits clsSimpleObject
Overrides Sub Execute()
MsgBox(ProcessI D)
End Sub
End Class

~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~

Public Class clsSimpleObject
Private PID As Integer

Overridable Sub Execute()

End Sub

Public Property ProcessID() As Integer
Get
Return PID
End Get
Set(ByVal Value As Integer)
PID = Value
End Set
End Property

End Class

[Cor Ligthert [MVP]]

Stuart,

Did you visit this newsgroup before and have read some question.

In my idea comes your question almost one or two times a day.

The answers are mostly in it shortest format, it is not easily to get to the
UI in a workerthread.

I know it is not much maybe it helps having this information.

Cor

"StuartJ" <st************ **@egg.comschre ef in bericht
news:11******** **************@ h44g2000cwa.goo glegroups.com.. .

Hi,

I'm trying to create a generic threading application where you can pass
in any object and a number of threads, most of it is working but I'm
having trouble creating multiple instances of the object handed down.

The code that I've supplied should simply create msgbox with 10
different messages, but it the ProcessID gets incremented for all the
threads everytime a new object is created.

Can anyone point me in the right direction.....

Thanks in advance
Sub Main()
Dim myThreadRunner As New Threader.Thread er
Dim obj As New inherSimpleObj
myThreadRunner. ThreadRunner(10 , obj)
End Sub

~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~
Public Class Threader
Public Function ThreadRunner(By Val nT As Integer, ByVal myProcess As
Object)

Dim myobj As Object
myobj = myProcess

Dim t(nT - 1) As Threading.Threa d
Dim stiThreads(nT - 1) As clsSimpleObject
Dim X As Integer = 0
Do Until X = (nT)
Dim myNewObj As New object
myNewObj = DirectCast(myPr ocess, clsSimpleObject )
stiThreads(X) = myNewObj
stiThreads(X).P rocessID = X + 1
t(X) = New Threading.Threa d(AddressOf stiThreads(X).E xecute)
X += 1
Loop

For Each thrd As Threading.Threa d In t
thrd.Start()
System.Threadin g.Thread.Sleep( 100)
Next
End Function
End Class

~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~
Public Class inherSimpleObj
Inherits clsSimpleObject
Overrides Sub Execute()
MsgBox(ProcessI D)
End Sub
End Class

~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~

Public Class clsSimpleObject
Private PID As Integer

Overridable Sub Execute()

End Sub

Public Property ProcessID() As Integer
Get
Return PID
End Get
Set(ByVal Value As Integer)
PID = Value
End Set
End Property

End Class