HOW TO: Declare DLL functions at run time only

[M. Angelo]

Anyone know how to do something like this:

Private Delegate Function Tick() As Integer
Private Sub MySub()
Dim MyExternalFunc As Tick
'???????? what to write here to declare the equivalent of:
'MyExternalFunc = AddressOf Function GetTickCount Lib "kernel32"
Alias "GetTickCount" () As Integer
Me.Text = MyExternalFunc()
End Sub

 

[Cor Ligthert]

Hi M.

When you do not know exactly know how to use a DLL function, why than not
first look to managed code which will do run your program a lot more save.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndotnet/html/win32map.asp

The tickcount is one of the most easy ones in dotNet
Dim MyTick As Integer = Environment.TickCount

Just my thought

Cor

 

[M. Angelo]

Please don't answer a question that you don't understand, OK?

 

[Bismark Prods]

Personnaly, I understand exactely what you would like to do but ... Is it
really necessary ? First you need the same signature of GetTickCount and
your Delegate Tick no ? And second why would you not like to declare the API
function before ? You could declare all functions and in a switch case you
could select which one you want to use ... It is not useful to declare on
the fly. It's my opinion.

Bismark

 

[Armin Zingler]

Please don't answer a question that you don't understand, OK?

Please write a question that can be understood.
I'd given the same answer.



--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

 

[Cor Ligthert]

Hi Bismark,

I am in doubt, where does declare a delegate function is different from
declaring an Api function?

It declares in my opinon different types (or whatever you name it).

Cor

 

[Herfried K. Wagner [MVP]]

Anyone know how to do something like this:

Private Delegate Function Tick() As Integer
Private Sub MySub()
Dim MyExternalFunc As Tick
'???????? what to write here to declare the equivalent of:
'MyExternalFunc = AddressOf Function GetTickCount Lib "kernel32"
Alias "GetTickCount" () As Integer

Me.Text = MyExternalFunc()
End Sub

<URL:http://www.msjogren.net/dotnet/eng/samples/dotnet_dynpinvoke.asp>

 

[Herfried K. Wagner [MVP]]

Please don't answer a question that you don't understand, OK?

Please do not post the same question twice.