question about user32.dll

[accessuser1023]

all,

do the functions in this lib ever change? I'm dealing with deployment environments that range from windows XP all the way up to windows 8. If I reference functions in this lib by declaring them in VBA, does anyone think there will be issues with this across that huge span of OS's?

thanks.

 

[pr2-eugin]

I am not entirely sure, but in general/theory, it will always be forward compatible.. So I think it should be fine.. However you might want to look at declaring the functions as PtrSafe as newer versions of VB and Access versions they might be both 32 bit and 64 bit..

 

[accessuser1023]

newer versions of office *are* 32 and 64 bit. what you just said is justified immediately by the initial text on this page:

http://msdn.microsoft.com/en-us/library/office/gg278832.aspx

way to go. thanks.

However, see the attached image for the VBA version in Office 2007. It's 6.5. So if I write this in an API declaration ...

Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

... I get red text, which is a syntax error obviously. But if I leave that keyword out ...

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

... then I get NO error. Do you think that this means I can't use this keyword in pre-VBA7 and just check to see if the code errors out on Win7 and Win 8 machines using 64 bit office?

what are your thoughts on that? thanks.

 

[pr2-eugin]

As mentioned in the link,

To ensure backwards compatibility with VBA version 6 and earlier use the following construct:

#If Vba7 Then 
Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As LongLong
#Else 
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
#EndIf

 

[accessuser1023]

whops! I can't believe I missed that! thanks.

 

[pr2-eugin]

Happy to help.. Good luck..