Musens position

Lav et api kald:

Declare Function GetCursorPos Lib "user32" _
  Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Derefter kan du kalde GetCursorPos

Prøvede at sætte
Declare Function GetCursorPos Lib "user32" _
  Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

aller øverst i min kode, og lavede en timer, satte dens Interval til 1, og skrev i timeren: Label1.Caption = GetCursorPos

Men jeg får en fejl, og den markere: Declare Function GetCursorPos Lib "user32" _
  Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

du skal lige huske POINTAPI aller øverst

Type POINTAPI
        x As Long
        y As Long
End Type

og i din sub eller function

Dim pt As POINTAPI

GetCursorPos pt

label1.caption = pt.X & "," & pt.Y


håber det hjælper

Hej lokepas.Jeg får bare fejlen:
Cannot define a public User-defined type within a privat object module.
Og så markere den Type POINTAPI

'---------------------------- Form1 ----------------------------
' Husk en Timer
'---------------------------------------------------------------
Option Explicit

Private Type POINTAPI
        X As Long
        Y As Long
End Type

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

Private Sub Form_Load()
  Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Dim Pos As POINTAPI
  GetCursorPos Pos
  Me.Caption = "X:" & Str$(Pos.X) & " Y:" & Str$(Pos.Y)
End Sub
'---------------------------- Form1 ----------------------------

therichman: Jeg mener at kunen huskem at en type skal altid erklæres i et modul. Prøv det, og se om det ikke hjælper

Du kan også ...

Private WithEvents tmrTimer As Timer = New Timer

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tmrTimer.Enabled = True
End Sub

Private Sub tmrTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrTimer.Tick
        If tmrTimer.Enabled Then
            Debug.WriteLine(MousePosition.X)
        End If
End Sub

Så er du fri for at skulle gøre brug af "user32" .. ikke så tosset!  :-)

Sjh Dit virkede.
Men er det egentlig ikke Lokepas jeg skal takke?
Jeg deler pointene imellem jer.
Man behøver åbenbart ikke sætte det ind i et modul Martin moth.