GetCursorPos function... how to use?

  • Thread starter Thread starter expvb
  • Start date Start date
E

expvb

Willian F. Lopes said:
Hi!

I'm trying to use the GetCursorPos function. I did this:

1) A create Module. In this module I have this code:

Public Structure POINTAPI
Public x As Long
Public y As Long
End Structure

Public Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As
POINTAPI) As Long

2) In my main form I put a timer and it tick event I have this code:

Dim p As POINTAPI
Dim l As Long

' Get pointer position.
l = GetCursorPos(p)

' Display information.
Me.Text = CStr(p.x) + ", " + CStr(p.y)

My problem is that my mouse coordinates are always 0 ("0,0"). Where is my
error?
Click to expand...

That code is for VB6, which use different data types. Long in VB6 is 32
bits, while it's 64 bits in VB.Net, so use Integer instead.

Also, you are supposed to use the .Net library if it already has that
functionality instead of the API, so your code can run on other platforms,
not just Windows. See System.Windows.Forms.Control.MousePosition.
 
Hi!

I'm trying to use the GetCursorPos function. I did this:

1) A create Module. In this module I have this code:

Public Structure POINTAPI
Public x As Long
Public y As Long
End Structure

Public Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As
POINTAPI) As Long

2) In my main form I put a timer and it tick event I have this code:

Dim p As POINTAPI
Dim l As Long

' Get pointer position.
l = GetCursorPos(p)

' Display information.
Me.Text = CStr(p.x) + ", " + CStr(p.y)

My problem is that my mouse coordinates are always 0 ("0,0"). Where is my
error?

Thanks,

Willian
 
Wow! It's very different: I used VB6 years ago and I was using Delphi now...
and I want learn VB.NET.... is very different. Thanks for help.
 
Back
Top