GetCursorPos - PInvoke error!!

[Rajesh Soni]

Hi!

I'm getting a PInvoke error while trying to execute the following code...
declaration:
Structure POINTAPI

Dim x As IntPtr

Dim y As IntPtr

End Structure

Private Declare Sub GetCursorPos Lib "User32" (ByVal lpPoint As POINTAPI)
usage:
Dim MouseLocation As New POINTAPI

GetCursorPos(MouseLocation)

Please help!

Thanks in advance,

Rajesh

[Tom Shelton]

On Feb 6, 1:57 pm, "Rajesh Soni" <[e-mail]:

Hi!

I'm getting a PInvoke error while trying to execute the following code...

declaration:
Structure POINTAPI

Dim x As IntPtr

Dim y As IntPtr

End Structure

Private Declare Sub GetCursorPos Lib "User32" (ByVal lpPoint As POINTAPI)

usage:
Dim MouseLocation As New POINTAPI

GetCursorPos(MouseLocation)

Please help!

Thanks in advance,

Rajesh

Structure PointAPI
Public x As Integer ' Int32 if you prefer
Publci y As Integer ' Int32 if you prefer
End Structure

Public Declare Function GetCursorPos Lib user(ByRef lpPoint As
PointAPI) As Boolean

--
Tom Shelton

[Tom Shelton]

On Feb 10, 2:31 pm, "Tom Shelton" <[e-mail]:

On Feb 6, 1:57 pm, "Rajesh Soni" <[e-mail]:

Hi!

I'm getting a PInvoke error while trying to execute the following code...

declaration:
Structure POINTAPI

Dim x As IntPtr

Dim y As IntPtr

End Structure

Private Declare Sub GetCursorPos Lib "User32" (ByVal lpPoint As POINTAPI)

usage:
Dim MouseLocation As New POINTAPI

GetCursorPos(MouseLocation)

Please help!

Thanks in advance,

Rajesh

Structure PointAPI
Public x As Integer ' Int32 if you prefer
Publci y As Integer ' Int32 if you prefer
End Structure

Public Declare Function GetCursorPos Lib user(ByRef lpPoint As
PointAPI) As Boolean

woops - hit send to soon...
Public Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As
PointAPI) As Boolean

--
Tom Shelton

[Rajesh Soni]

Tom,

Thanks Tom, but unfortunately i'm getting the same error :(

A call to PInvoke function 'Form_Name_.Form1::GetCursorPos' has unbalanced
the stack. This is likely because the managed PInvoke signature does not
match the unmanaged target signature. Check that the calling convention and
parameters of the PInvoke signature match the target unmanaged signature.

- Rajesh

"Tom Shelton" <to*********@comcast.netwrote in message
news:11**********************@m58g2000cwm.googlegr oups.com...

On Feb 10, 2:31 pm, "Tom Shelton" <[e-mail]:

>On Feb 6, 1:57 pm, "Rajesh Soni" <[e-mail]:

Hi!

I'm getting a PInvoke error while trying to execute the following
code...

declaration:
Structure POINTAPI

Dim x As IntPtr

Dim y As IntPtr

End Structure

Private Declare Sub GetCursorPos Lib "User32" (ByVal lpPoint As
POINTAPI)

usage:
Dim MouseLocation As New POINTAPI

GetCursorPos(MouseLocation)

Please help!

Thanks in advance,

Rajesh

Structure PointAPI
Public x As Integer ' Int32 if you prefer
Publci y As Integer ' Int32 if you prefer
End Structure

Public Declare Function GetCursorPos Lib user(ByRef lpPoint As
PointAPI) As Boolean

woops - hit send to soon...
Public Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As
PointAPI) As Boolean

--
Tom Shelton

[Herfried K. Wagner [MVP]]

"Rajesh Soni" <ra*********@yahoo.comschrieb:

Private Declare Sub GetCursorPos Lib "User32" (ByVal lpPoint As POINTAPI)

In addition to the other replies: Why not use 'Cursor.Position'?

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Tom Shelton]

On Feb 10, 2:43 pm, "Rajesh Soni" <[e-mail]:

Tom,

Thanks Tom, but unfortunately i'm getting the same error :(

A call to PInvoke function 'Form_Name_.Form1::GetCursorPos' has unbalanced
the stack. This is likely because the managed PInvoke signature does not
match the unmanaged target signature. Check that the calling convention and
parameters of the PInvoke signature match the target unmanaged signature.

- Rajesh

"Tom Shelton" <[e-mail] in message

news:11**********************@m58g2000cwm.googlegr oups.com...

On Feb 10, 2:31 pm, "Tom Shelton" <[e-mail]:

On Feb 6, 1:57 pm, "Rajesh Soni" <[e-mail]:

Hi!

I'm getting a PInvoke error while trying to execute the following
code...

declaration:
Structure POINTAPI

Dim x As IntPtr

Dim y As IntPtr

End Structure

Private Declare Sub GetCursorPos Lib "User32" (ByVal lpPoint As
POINTAPI)

usage:
Dim MouseLocation As New POINTAPI

GetCursorPos(MouseLocation)

Please help!

Thanks in advance,

Rajesh

Structure PointAPI
Public x As Integer ' Int32 if you prefer
Publci y As Integer ' Int32 if you prefer
End Structure

Public Declare Function GetCursorPos Lib user(ByRef lpPoint As
PointAPI) As Boolean

woops - hit send to soon...
Public Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As
PointAPI) As Boolean

--
Tom Shelton- Hide quoted text -

- Show quoted text -

post your code. You have not declared the function correctly.

[Rajesh Soni]

Hey Herfried!

Thanks for that, it WORKED!!

-Rajesh
"Herfried K. Wagner [MVP]" <hi***************@gmx.atwrote in message
news:%2****************@TK2MSFTNGP05.phx.gbl...

"Rajesh Soni" <ra*********@yahoo.comschrieb:

>Private Declare Sub GetCursorPos Lib "User32" (ByVal lpPoint As POINTAPI)

In addition to the other replies: Why not use 'Cursor.Position'?

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Tom Shelton]

On Feb 10, 2:43 pm, "Rajesh Soni" <[e-mail]:

Tom,

Thanks Tom, but unfortunately i'm getting the same error :(

working code:

Option Explicit On
Option Strict On
Imports System.Runtime.InteropServices
Public Class Form1
Private Structure PointAPI
Public x As Integer
Public y As Integer
End Structure

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint
As PointAPI) As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim pt As PointAPI
If GetCursorPos(pt) Then
MessageBox.Show(String.Format("x={0}, y={1}", pt.x, pt.y))
End If
End Sub
End Class

--
Tom Shelton

[Rajesh Soni]

Tom,

Thanks a ton!!!!

-Rajesh

"Tom Shelton" <to*********@comcast.netwrote in message
news:11**********************@m58g2000cwm.googlegr oups.com...

On Feb 10, 2:43 pm, "Rajesh Soni" <[e-mail]:

>Tom,

Thanks Tom, but unfortunately i'm getting the same error :(

working code:

Option Explicit On
Option Strict On
Imports System.Runtime.InteropServices
Public Class Form1
Private Structure PointAPI
Public x As Integer
Public y As Integer
End Structure

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint
As PointAPI) As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim pt As PointAPI
If GetCursorPos(pt) Then
MessageBox.Show(String.Format("x={0}, y={1}", pt.x, pt.y))
End If
End Sub
End Class

--
Tom Shelton