Hi,
i have a situation where I need to dynamically create objects in a loop. My
question surrounds intantiation naming in such a scenerio.
Below is a snippet that is basically hardcoding each object. My problem is
that I would like to create the objects dynamically but I can't figure out
how to do it
How would I go about dynamically creating the required objects so that I
could be using anywhere from 2 - 10 etc. ?
Thanks,
Ron
for x as integer = 1 to num
If x = 1 Then
' Create Object 1 ----------------------------
oDT1 = New DataTable
oDT1 = oDS.Tables(0).C lone
For i = min To max
oDT1.ImportRow( oDS.Tables(0).R ows(i))
Next
Dim oCompanyProcess 1 As New CompanyWorkerCl ass(oDT1, strServer, "TH1")
AddHandler oCompanyProcess 1.LineProcessed , AddressOf ClickCounter
AddHandler oCompanyProcess 1.Finished, AddressOf ThreadFinished
Dim t1 = New Thread(AddressO f oCompanyProcess 1.ProcessDataRe port)
t1.Start()
ElseIf x = 2 Then
' Create Object 2 --------------------------
oDT2 = New DataTable
oDT2 = oDS.Tables(0).C lone
For i = min To max
oDT2.ImportRow( oDS.Tables(0).R ows(i))
Next
Dim oCompanyProcess 2 As New CompanyWorkerCl ass(oDT2, strServer, "TH2")
AddHandler oCompanyProcess 2.LineProcessed , AddressOf ClickCounter
AddHandler oCompanyProcess 2.Finished, AddressOf ThreadFinished
Dim t2 = New Thread(AddressO f oCompanyProcess 2.ProcessDataRe port)
t2.Start()
ElseIf x = 3 Then
' Create Object 3 ----------------
oDT3 = New DataTable
oDT3 = oDS.Tables(0).C lone
For i = min To max
oDT3.ImportRow( oDS.Tables(0).R ows(i))
Next
Dim oCompanyProcess 3 As New CompanyWorkerCl ass(oDT3, strServer, "TH3")
AddHandler oCompanyProcess 3.LineProcessed , AddressOf ClickCounter
AddHandler oCompanyProcess 3.Finished, AddressOf ThreadFinished
Dim t3 = New Thread(AddressO f oCompanyProcess 3.ProcessDataRe port)
t3.Start()
next
i have a situation where I need to dynamically create objects in a loop. My
question surrounds intantiation naming in such a scenerio.
Below is a snippet that is basically hardcoding each object. My problem is
that I would like to create the objects dynamically but I can't figure out
how to do it
How would I go about dynamically creating the required objects so that I
could be using anywhere from 2 - 10 etc. ?
Thanks,
Ron
for x as integer = 1 to num
If x = 1 Then
' Create Object 1 ----------------------------
oDT1 = New DataTable
oDT1 = oDS.Tables(0).C lone
For i = min To max
oDT1.ImportRow( oDS.Tables(0).R ows(i))
Next
Dim oCompanyProcess 1 As New CompanyWorkerCl ass(oDT1, strServer, "TH1")
AddHandler oCompanyProcess 1.LineProcessed , AddressOf ClickCounter
AddHandler oCompanyProcess 1.Finished, AddressOf ThreadFinished
Dim t1 = New Thread(AddressO f oCompanyProcess 1.ProcessDataRe port)
t1.Start()
ElseIf x = 2 Then
' Create Object 2 --------------------------
oDT2 = New DataTable
oDT2 = oDS.Tables(0).C lone
For i = min To max
oDT2.ImportRow( oDS.Tables(0).R ows(i))
Next
Dim oCompanyProcess 2 As New CompanyWorkerCl ass(oDT2, strServer, "TH2")
AddHandler oCompanyProcess 2.LineProcessed , AddressOf ClickCounter
AddHandler oCompanyProcess 2.Finished, AddressOf ThreadFinished
Dim t2 = New Thread(AddressO f oCompanyProcess 2.ProcessDataRe port)
t2.Start()
ElseIf x = 3 Then
' Create Object 3 ----------------
oDT3 = New DataTable
oDT3 = oDS.Tables(0).C lone
For i = min To max
oDT3.ImportRow( oDS.Tables(0).R ows(i))
Next
Dim oCompanyProcess 3 As New CompanyWorkerCl ass(oDT3, strServer, "TH3")
AddHandler oCompanyProcess 3.LineProcessed , AddressOf ClickCounter
AddHandler oCompanyProcess 3.Finished, AddressOf ThreadFinished
Dim t3 = New Thread(AddressO f oCompanyProcess 3.ProcessDataRe port)
t3.Start()
next
Comment