setcursorpos() not working on y axis.

[medic5678]

this should be pretty simple.

Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

I was capturing the mouse position with GetCursorPos, and I noticed that it would always treat the y value as zero.

So I put in manual coordinates, and it still does the same thing.

Sub Setcursor()


SetCursorPos 300, 100


End Sub

whatever I change the x value to (first value) works fine going across the screen horizontally. Vertically, any number I put in is treated as 0.

I'm using this in a userform.

 

[RoryA]

Use LongPtr for pointers and handles

The co-ordinates are neither, they're just values, which is why they should remain as Long. If you look at Microsoft's API documentation for 64bit, you'll see the declaration is the same as originally posted.

 

[Yongle]

The co-ordinates are neither, they're just values, which is why they should remain as Long. If you look at Microsoft's API documentation for 64bit, you'll see the declaration is the same as originally posted

@RoryA
All that I see is fog!
Is there something simple somewhere that explains the logic behind the 64bit vs 32bit declarations
Various other threads seem to have been "leading me up the garden path"!
When should LongPtr be used?

 

[RoryA]

Exactly as mentioned in that text you quoted - for handles and pointers i.e. memory addresses. Simple data values (eg a Y coordinate of 100) would remain as Longs.

The MS docs here list a huge number of the declarations for 64bit compatibility: http://www.microsoft.com/en-us/download/confirmation.aspx?id=9970

 

[Yongle]

Thanks @RoryA
Microsoft File downloaded and installed - how do I now look at it?

 

[RoryA]

In your C drive you should see a new folder called Office 2010 Developer Resources. Look in there under Documents\Office2010Win32API_PtrSafe and you should see three files in different formats. I use the Win32API_PtrSafe.TXT one.

 

[Yongle]

@RoryA Got it. Thanks for new reading material for a long winter night!

 

[RoryA]

It’ll help you sleep if nothing else...

 

[medic5678]

Created another project and form with label. Clicking on a control and running setcursorpos, it works properly.

In the userform of my real project, I am resizing several frames. I'm wondering if that's somehow throwing it off. I'm going to go through this and strip out all the slop in my project first (just in case). I'm just learning VBA, so my organization here leaves a lot to be desired.

Then I'm going to do this without resizing frames and see if that's what is causing the problem.

Through the process of elimination, I will narrow this down .

 

[Yongle]

best way to learn

 

[medic5678]

Unfortunately, there's nothing to learn here. I copied my userform and module to a new project file. They work fine there. Something about this project file has been corrupted. I don't think I'll ever figure this out.