GetCursorPos через Win API для VB.NET

[Ефрейтор]

Хочу узнать положение курсора на экране.
Уже час тупо пялюсь в аналогичные примеры для vb6.
И ничего не пойму. Вроде все правильно, но у меня всё время значение курсора получается х=0 и у=0

Код: Выделить всё


Private Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As PointAPI) As Long
 
  Public Structure PointAPI
    Public x As Long
    Public y As Long
  End Structure

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim coord As PointAPI
    Dim ff As Long

    ff = GetCursorPos(coord)
    Form1.ActiveForm.Text = coord.x
  End Sub


Подскажите люди добрые в чём моя ошибка.

[Nord777]

замени Long на Integer или Int32

[GSerg]

Ужос...

Ефрейтор, ты бы хоть почитал что ли в MSDN топик про изменения в VB, на русском, между прочим, языке... допустил все ошибки, которые только можно было допустить, так что integer тебе не поможет...

И, System.Windows.Forms.Cursor.Position, вообще-то...

[Nord777]

код рабочий:

Код: Выделить всё

Imports System.Runtime.InteropServices

Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure POINTAPI
        Public x As Int32
        Public y As Int32
    End Structure

    Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Int32

    Dim PA As New POINTAPI

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        GetCursorPos(PA)
        Label1.Text = PA.x
    End Sub
End Class

[GSerg]

И, System.Windows.Forms.Cursor.Position, вообще-то...

[Ефрейтор]

Мои респекты авторитетным товарищам!