Help with delegate addressOf

[john]

Hello,

I am trying to convert from vb6 to vb.net and I have an issue with the
addressOf function. Below is the code any help would be greatly appreciated.
Thanks in advance.

code erroring here
'UPGRADE_WARNIN G: Add a delegate for AddressOf ViewFinderCallb ackFunc Click
for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?ke yword="vbup1048 "'

err_Renamed = CDStartViewfind er(m_hSource, 1, AddressOf
ViewFinderCallb ackFunc, 0)

Function

Public Function ViewFinderCallb ackFunc(ByVal pBuf As Integer, ByVal Size As
Integer, ByVal Format_Renamed As Integer, ByVal Context As Integer) As
Integer

m_VFDataPtr = pBuf

ViewFinderCallb ackFunc = cdOK

End Function

[Ken Tucker [MVP]]

Hi,

Maybe this will help.
http://www.elitevb.com/content/01,0075,01/04.aspx

Ken
---------------------
"john" <jo*********@ho tmail.com> wrote in message
news:Ok******** *****@tk2msftng p13.phx.gbl...

Hello,

I am trying to convert from vb6 to vb.net and I have an issue with the
addressOf function. Below is the code any help would be greatly
appreciated.
Thanks in advance.

code erroring here
'UPGRADE_WARNIN G: Add a delegate for AddressOf ViewFinderCallb ackFunc
Click
for more:
'ms-help://MS.VSCC/commoner/redir/redirect.htm?ke yword="vbup1048 "'

err_Renamed = CDStartViewfind er(m_hSource, 1, AddressOf
ViewFinderCallb ackFunc, 0)

Function

Public Function ViewFinderCallb ackFunc(ByVal pBuf As Integer, ByVal Size
As
Integer, ByVal Format_Renamed As Integer, ByVal Context As Integer) As
Integer

m_VFDataPtr = pBuf

ViewFinderCallb ackFunc = cdOK

End Function

[john]

Ken,

Thanks for the reply. I did that and it resolved one of the four
AddressOf issues. The other three now have the following issue.

Method 'Public Function CamEventCallbac kFunc(eventID As Integer, pData As
Integer, DataSize As Integer, Context As Integer) As Integer' does not have
the same signature as delegate 'Delegate Function
DelegateCDRegis terEventCallbac kFunction(hSour ce As Integer, pFunc As
Integer, Context As Integer, ByRef hFunc As Integer) As Integer'.

Delegate Function DelegateCDRegis terEventCallbac kFunction(ByVal hSource As
Integer, ByVal pFunc As Integer, ByVal Context As Integer, ByRef hFunc As
Integer) As Integer

Declare Function CDRegisterEvent CallbackFunctio n Lib "CDSDK.dll" (ByVal
hSource As Integer, ByVal pFunc As DelegateCDRegis terEventCallbac kFunction,
ByVal Context As Integer, ByRef hFunc As Integer) As Integer

err_Renamed = CDRegisterEvent CallbackFunctio n(m_hSource, AddressOf
CamEventCallbac kFunc, 100, m_hFunc)
"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:ua******** ******@TK2MSFTN GP10.phx.gbl...

Hi,

Maybe this will help.
http://www.elitevb.com/content/01,0075,01/04.aspx

Ken
---------------------
"john" <jo*********@ho tmail.com> wrote in message
news:Ok******** *****@tk2msftng p13.phx.gbl...

Hello,

I am trying to convert from vb6 to vb.net and I have an issue with the addressOf function. Below is the code any help would be greatly
appreciated.
Thanks in advance.

code erroring here
'UPGRADE_WARNIN G: Add a delegate for AddressOf ViewFinderCallb ackFunc
Click
for more:
'ms-help://MS.VSCC/commoner/redir/redirect.htm?ke yword="vbup1048 "'

err_Renamed = CDStartViewfind er(m_hSource, 1, AddressOf
ViewFinderCallb ackFunc, 0)

Function

Public Function ViewFinderCallb ackFunc(ByVal pBuf As Integer, ByVal Size
As
Integer, ByVal Format_Renamed As Integer, ByVal Context As Integer) As
Integer

m_VFDataPtr = pBuf

ViewFinderCallb ackFunc = cdOK

End Function