Originariamente inviato da bèngàla
l'esigenza mia è quella di dire al mous dove andare dal codice di vb6 sul asse Y e dal mouse sul asse X...
se volete più detagli in una picturebox ho un grafico e il puntatore deve sequire il grafico...
mi sembra fattibile in quanto ho visto MITALY fare una cosa del genere sul codice sopracitato e volevo sapere quali sono le variabili che contegono x,y del mouse,puntatore e sistema.
spero di essere stato più chiaro
Guarda un po' se funziona cosi':
- Form1, aggiungi una Picture1;
- per evitare problemi di conversione coordinate imposta la proprieta' (sia del form che della pic) ScaleMode a 3 = pixel
codice:
Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (pos As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim pos As POINTAPI
GetCursorPos pos
pos.Y = pos.Y - Y + 50 'pixel dal bordo superiore
SetCursorPos pos.X, pos.Y
End Sub
...cosi' facendo, quando il puntatore del mouse passa sulla Picture1, la coordinata Y rimane fissa (qui, come esempio, ho imposto 50 pixel dal bordo superiore).
A me sembra funzionare...... vedi un po' SE e' quello che intendevi...