[VB6] Usare WM_MOUSEMOVE

[c-enrico]

con queste righe di codice il mouse si dovrebbe spostare
invece non si muove, mi spiegate perchè? GRAZIE

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_MOUSEMOVE = &H200

Private Sub Command1_Click()

 Dim retval As Long
  
 retval = SendMessage(Me.hWnd, WM_MOUSEMOVE, 0, 0)
 
End Sub

Private Sub Command2_Click()
 
 End
 
End Sub

[oregon]

Quel messaggio viene inviato da Windows e ricevuto dalla finestra quando il mouse viene mosso. In quel momento il codice della finestra legge i parametri che conterranno la nuova posizione del mouse.

Tu tenti di usarlo al contrario e non è il modo giusto.

Per muovere il mouse devi usare l'API

mouse_event
http://msdn.microsoft.com/en-us/libr...sktop/ms646260(v=vs.85).aspx

[c-enrico]

Grazie Oregon ma solo per imparare qualcosa in più
mi potresti mandare delle righe di codice per usare
WM_MOUSEMOVE o non è proprio possibile usare
questa via?

[oregon]

Scusa ma pensavo di essermi spiegato ... il WM_MOUSEMOVE non serve per quello che vuoi fare ...

Per spostare il puntatore del mouse usa l'API che ti ho detto ...

[MItaly]

Le domande su VB vanno nella sezione apposita, sposto.

[c-enrico]

ho sbagliato sezione in questo caso uso VB6 e Mouse_Event non funziona
con VB6, così ho usato keybd_event per simulare la pressione di un tasto
e così non mi si disattiva lo schermo finchè è in funzione il programmino
questo era lo scopo a cui miravo.
Comunque grazie mille per avermi indirizzato verso un'altra soluzione.

[oregon]

Mouse_event funziona anche con VB6 ... probabilmente vedendo il codice che non va si poteva trovare una soluzione ma se ti va bene lo stesso ...