Controlli - Posizionare Il Mouse Su Di Un Controllo

Mouse # Questo esempio mostra come posizionare da programma il cursore del mouse in un
punto
preciso del form o su di un controllo (modificare il codice per win32 con le
giuste API)...
Dichiarazioni
Type POINTAPI
x As Integer
Y As Integer
End Type
Declare Sub SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)
Declare Sub ClientToScreen Lib "User" (Byval hWnd As Integer, lpPoint As
POINTAPI)
Utilizzo: Il codice seguente mette il cursore al centro di un pulsante
(command1) disegnato
sul Form1
Dim Cur as POINTAPI
Dim Smode As Integer
Smode = ScaleMode
Cur.x = Command1.Left + (Command1.Width \ 2)
Cur.y = Command1.Top + (Command1.Height \ 2)
ClientToScreen Form1.hWnd, Cur
SetCursorPos Cur.x , Cur.y
ScaleMode = Smode