Callbacks? slightly confused.....

[crispin]

guys, consider the following:


Public Type editstream
dwCookie As Long
dwError As Long
pfnCallback As Long
End Type


the pfnCallback has to be the address of an application defined callback function, how do I go about pushing this in, this is how far I got....


Dim iResult&
eStream.dwCookie = 9
eStream.dwError = 0&
eStream.pfnCallback = AddressOf EditStreamCallback


I know this is incorrect - I just need some pointers here (scuse the pun :) )

[KENNNY]

yeah, addressof only is valid as a parameter to a function unfortunately :(
so you can't put Addressof Myfunc directly into the type
but there's a simple workaround:

Function ReturnAddress(Byval FuncPtr as long) as long

ReturnAddress = FuncPtr

End function

so:

Dim iResult&
eStream.dwCookie = 9
eStream.dwError = 0&
eStream.pfnCallback = ReturnAddress(AddressOf EditStreamCallback)

[Lord Orwell]

if you get this to work, can you email me? Im currently trying to get the em_streamout and em_streamin messages to work also. They both use that type declaration.

[crispin]

Lord Orwell

Thats why I put the post out, If I get it working i'll post a new thread for ya!