GetCursorPos function... how to use?

[expvb]

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?

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.

 

[expvb]

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

You need to change ByVal to ByRef as well.

 

[Willian F. Lopes]

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

 

[Herfried K. Wagner [MVP]]

I'm trying to use the GetCursorPos function.

I suggest to use 'Cursor.Position' instead.

 

[Willian F. Lopes]

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.

 

[Cor Ligthert[MVP]]

William,

Will you please be so kind not to multipost

Cor