[VB6] Modificare il puntatore (cursore) del mouse

[gigino10]

ciao a tutti. vorrei solo una dritta. Come devo fare per inserire un puntatore diverso dal solito quanto col maouse vado su un oggetto label oppure image? So che devo cambiare la porprietà "mousepointer" ma nell'elenco non c'è la classica "manina". come devo fare a fare uscire la manina?

[oregon]

Linguaggio ...?

[gigino10]

vb 6

[oregon]

Private Const HandCursor = 32649&

Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
    
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim hdl As Long
    hdl = LoadCursor(0, HandCursor)
    If hdl Then SetCursor hdl
End Sub

[gigino10]

Grazie mille!!!

[XWolverineX]

Ma VB6 ha delle cose integrate per fare questo, non mi pare ci sia bisogno della API.
Se non erro vi è la proprietà MouseIcon e la puoi cambiare con una serie di puntatori di default, tra cui sicuramente anche la manina di cui parli.

[gigino10]

ho provato ma non funzia

[power.mobile]

con vb6 ci sono anche dei cursori nella cartella graphics... nelle proprietà cè la proprietà MousePointer che devi impostare su Custom e nella proprietà MouseIcon specifichi un file .cur che preferisci....

[MItaly]

Originariamente inviato da gigino10
ho provato ma non funzia

Invece a me il codice di Oregon funziona benissimo... che errori ti dà?