Viser hvor musen er

Prøv det her

Step-by-Step Example - How to get the current mouse cursor position

1. Start a new project in Visual Basic. Form1 is created by default.

2. From the File Menu, choose New Module.

3. Add the following code in the General Declarations section of the new
  module:

  Type POINTAPI \' This holds the logical cursor information
      x As Integer
      y As Integer
  End Type

  Declare Sub GetCursorPos Lib \"User32\" (lpPoint As POINTAPI)

4. Add a timer control (Timer1) to the form.

5. Add the following code to the Form_load event:

  Sub Form_Load ()
      timer1.Interval = 100
  End Sub

6. Add the following code to the Timer1_Timer event:

  Sub Timer1_Timer ()
      Dim rect As POINTAPI
      \' Get the current mouse cursor coordinates:
      Call GetCursorPos(rect)
      FORM1.Cls
      \' Print out current position on the form:
      Print \"Current X = \" & rect.x
      Print \"Current Y = \" & rect.y
  End Sub

7. Run the Program. You should be able to see the cursor coordinates
change whenever you move the mouse around the screen.

Det ser ud til at virke!!.

Tak for hjælpen!!.

når du nu siger det virker, hvorfor giver du så ikke de mange points til zeon?

np..:)

Til cellaneous
det går nok jeg går ikke så meget op i de points. Desuden er 800 og 400 points alt for meget for sådan et spørgsmål.

/Zeon_rm

Jeg gør nøjagtig det samme, men Y-koordinaten er altid nul. Hvordan kan det gå til?

Beklager den lange respons tid..:)

x As Integer
y As Integer

Prøv at brug noget andet end integer hvis du har det problem

Jeg fandt en anden måde at gøre det på.

Ellers tak for svaret Zeon.

rasmuss er en fusker.

http://www.eksperten.dk/spm/157611
http://www.eksperten.dk/spm/158267