[VB6] Cursore "Mano" quando si passa sopra una Label

[warhammer89]

Salve a tutti di nuovo ,ho creato una label con una frase,vorre che quando il mouse ci passa sopra, cambiasse di forma..
Poi cliccando, si aprisse un msgbox (questo l ho fatto e funziona)

Private Sub Label5_Click()
MsgBox "Contatto:" & vbCr & vbCr & "indirizzo@hotmail.it", vbInformation, "NomeProgramma"
End Sub

Dovrei solo cambiare il cursore onmouseover, per far capire che su quella label ci si può cliccare!

Grazie!

EDIT: ops ho dimenticatoil [VB6] davanti al titolo chiedo scusa^^

[chico62]

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.MouseIcon = LoadPicture("C:\Programmi\Microsoft Visual Studio\Common\Graphics\Cursors\h_point.CUR")
Label5.MousePointer = 99
End Sub

Verifica solo che esista il percorso della LoadPicture (dovrebbe essere comunque di default per VB6)

Ciauz

Chico

[icecube_HT]

Originariamente inviato da chico62

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.MouseIcon = LoadPicture("C:\Programmi\Microsoft Visual Studio\Common\Graphics\Cursors\h_point.CUR")
Label5.MousePointer = 99
End Sub

Verifica solo che esista il percorso della LoadPicture (dovrebbe essere comunque di default per VB6)
Chico

Ma scusa, cosi' carica il file grafico OGNI VOLTA che il cursore passa sulla label ! VVoVe:

Piuttosto deve definire la proprieta' MouseIcon in fase di progettazione del form...

[chico62]

Hai ragione, IceCube...
l'ho adattato dall'esempio MSDN senza pensarci :rollo:

Ciauz

Chico

[warhammer89]

mmm ho fatto cosi:

Private Sub Label5_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


Funziona, ma per caso è pesante da gestire, dà problemi?

[icecube_HT]

Originariamente inviato da warhammer89
mmm ho fatto cosi:

Private Sub Label5_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

Funziona, ma per caso è pesante da gestire, dà problemi?

Come dicevo, mettendo del codice nella routine MouseMove, le istruzioni vengono eseguite in ogni istante in cui il mouse e' in movimento sulla label !

Mentre invece e' sufficiente che venga eseguito UNA volta.
Mettilo nella routine Form_Load.

Ciao.