Automatic Picture Movement

[Matt-D]

I want, that a picturebox moves up, when the mouse is in
an specific area (like the bottom of the screen). But the imortant thing is, that the mouse hasn't to be moved.

T think it's s.th. like this (Here I have to move the
mouse and that's, what I don't want!!!!)

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Y > 6000 then
Picture1.Top = Picture1.Top - 10
End If
End Sub

Perhaps I have to use a loop ?????

I hope you understand my problem, Matt

16:29 Germany

Edited by Matt-D on 02-25-2000 at 11:25 AM

[WadeD]

This isn't tested Matt, but if you have any problems let me know:

In a module:

Type POINT_TYPE
  x As Long
  y As Long
End Type

Public Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long

In a timer in your form:

Dim coord As POINT_TYPE  ' receives coordinates of cursor
Dim retval As Long  ' return value

retval = GetCursorPos(coord)  ' read cursor location
If coord.y > 6000 then
picture1.top = picture1.top - (coord.y - 6000)
End If

[Aaron Young]

Wade's idea is a good one and will work, but you need to make some modification to the code, first of all, the Coords are returned in Pixels, so you'll need to do a Conversion, also, the Coords are returned relative to the Top, Left Corner of the Screen, so you'd need to Adjust them to be from the Top, Left of your Form, you can do this with the ScreenToClient API, ie.

Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long 
Private Declare Function ScreenToClient Lib "user32" Alias "ScreenToClient" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Sub Timer1_Timer()
    Dim tPOINT As POINTAPI
    Call GetCursorPos(tPOINT)
    Call ScreenToClient(hWnd, tPOINT)
    If tPOINT.y > ScaleY(6000, vbTwips, vbPixels) Then Picture1.Top = Picture1.Top - (ScaleY(tPOINT.y, vbPixels, vbTwips) - 6000)
End Sub