G
Guest
Hi,
I've read several articles regarding the above error, but still can't get it
to work. I upgraded an app that was running in VB6 that has a lot of errors
when upgrading to VB.NET. Here's what I have associated with the error.
'UPGRADE_WARNING: Add a delegate for AddressOf EnumAcctListEntriesCB Click
for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1048"'
iRC = EntEnumN(ghSelect, HYP_ID_ACCTLISTENTRY, sigAcctList, AddressOf
EnumAcctListEntriesCB, lParam, 0)
Public Function EnumAcctListEntriesCB(ByVal hSelect As Integer, ByVal
sigRecd As Integer, ByVal sigKey As Integer, ByVal lParam As Integer, ByRef
apis As APISTRUCT) As Integer ' This worked fine in VB6
I added the line below in addition to what's above. Should there be
something else that need changing or added? There's no "Declare" associated
with this section.
Delegate Function EnumAcctListEntriesCBDelegate(ByVal hSelect As Integer,
ByVal sigRecd As Integer, ByVal sigKey As Integer, ByVal lParam As Integer,
ByRef apis As APISTRUCT) As Integer
I've read several articles regarding the above error, but still can't get it
to work. I upgraded an app that was running in VB6 that has a lot of errors
when upgrading to VB.NET. Here's what I have associated with the error.
'UPGRADE_WARNING: Add a delegate for AddressOf EnumAcctListEntriesCB Click
for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1048"'
iRC = EntEnumN(ghSelect, HYP_ID_ACCTLISTENTRY, sigAcctList, AddressOf
EnumAcctListEntriesCB, lParam, 0)
Public Function EnumAcctListEntriesCB(ByVal hSelect As Integer, ByVal
sigRecd As Integer, ByVal sigKey As Integer, ByVal lParam As Integer, ByRef
apis As APISTRUCT) As Integer ' This worked fine in VB6
I added the line below in addition to what's above. Should there be
something else that need changing or added? There's no "Declare" associated
with this section.
Delegate Function EnumAcctListEntriesCBDelegate(ByVal hSelect As Integer,
ByVal sigRecd As Integer, ByVal sigKey As Integer, ByVal lParam As Integer,
ByRef apis As APISTRUCT) As Integer