Ahh
You can create a delegate, however, I wouldn't free thread it using AddressOf.
What does your threading code look like? Do you have it yet?
i.e.
Dim myThread as new System.Threading.Thread(AddressOf myFunctionCall)
Now, you can't pass parameters to Threading start calls...
So,if your myFunctionCall is in another class, you have to instantiate it and set the proper "parameter" values... i.e using properties and then the myFunctionCall (which actually starts the execution on a new thread)
such that
Dim myObject as New myObject
myObject.Parameter1 = [a paramter]
myObject.Parameter2 = [another parameter]
Dim myThread as System.Threading.Thread
myThread = new System.Threading.Thread (AddressOf myObject.MyThreadStarterFunction)
myThread.Start()
' do some stuff - new thread executes its stuff, you do whatever else you want... Join
'just shuts the thread down (read about thread states).
myThread.join()
"Simon Verona" <ne**@aphroditeuk.com> wrote in message news:ux**************@tk2msftngp13.phx.gbl...
I'm getting very confused.
I think the code that you've put in is the code to construct the object in the first place - I have very similar code that does this.
I can't work out how to write the code that is used when creating the thread:
ie in my code:
Dim Customer As Object
Dim dmsobj As New DmsObjects.Functions
Customer = dmsobj.LoadMeByName("DMSCustomer.dll", "DMSCustomer.Customer", Nothing)
Customer.Customer = dms.data("ActivityLog", 5, RowNo)
Dim t As New Threading.Thread(AddressOf Customer.DisplayCustomer)
t.Start()
I need to know what to put in place of the AddressOf Customer.DisplayCustomer when creating the thread. I'm sure that the reflection class allows you to create a delegate pointer to a specific method, but I can't work out how! It's getting very frustrating.
Out of interest, the function dmsobj.LoadMeByName is as follows:
Public Shared Function LoadMeByName(ByVal vstrAssemblyName As String, ByVal vstrClassName As String, ByVal vArgs() As Object) As Object
'************************************************* ***********************************
'dynamically load object from assembly for late binding purpose
' ************************************************** ***********************************
Dim objAssembly As Reflection.Assembly
Dim objtemp As Object
Dim Params() As Object
'MsgBox(Application.StartupPath)
If Dir(Application.StartupPath & "\" & vstrAssemblyName).Equals("") Then
Err.Raise(-1, "LoadMeByName", "assembly could not found, wrong assembly name given ")
Exit Function
End If
objAssembly = objAssembly.LoadFrom(Application.StartupPath & "\" & vstrAssemblyName)
objtemp = objAssembly.CreateInstance(vstrClassName, True, Reflection.BindingFlags.CreateInstance, Nothing, vArgs, Nothing, Nothing)
If objtemp Is Nothing Then
Err.Raise(-1, "LoadMeByName", "assembly could not found, wrong assembly name given ")
Exit Function
End If
' LoadMeByName = objtemp
Return objtemp
End Function
Hopefully, somebody will take pity on me on a Friday!!
Many thanks in advance,
Simon
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message news:bq*************@ID-208219.news.uni-berlin.de...
* "Simon Verona" <ne**@aphroditeuk.com> scripsit: Thanks for the pointer.. Unfortunately, I can't quite work out the syntax for using this.
For example (there are many other ways to use 'CreateInstance'):
\\\
Private Function CreateClassByName( _
ByVal PartialAssemblyName As String, _
ByVal QualifiedClassName As String _
) As Object
Return _
Activator.CreateInstance( _
[Assembly].LoadWithPartialName( _
PartialAssemblyName _
).GetType(QualifiedClassName) _
)
End Function
///
Usage:
\\\
Dim c As Control = _
DirectCast( _
CreateClassByName( _
"System.Windows.Forms", _
"System.Windows.Forms.Button" _
), _
Control _
)
With c
.Location = New Point(10, 10)
.Size = New Size(80, 26)
.Text = "Hello World"
End With
Me.Controls.Add(c)
///
--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>
