con queste righe di codice il mouse si dovrebbe spostare
invece non si muove, mi spiegate perchè? GRAZIE
codice:
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
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.
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?
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.
19-06-2012 21:32
