[VB6] Impostare cursore a forma di "manina" (hand)

[icosimo]

Ciao "FORUM",

voglio cambiare il cursore in VB6 e questo so farlo. Cerco, però, la classica manina di Windows, che non è non quella che si trova sotto System32, probabilmente non viene indicata con Hand.

Sapreste dirmi dove posso trovarla?

Grazie.

[Grumpy]

C:\Programmi\Microsoft Visual Studio\Common\Graphics\Cursors

Questo naturalmente se VS è installato nella posizione di default.

[icosimo]

Sì grazie Grumpy,

so di quei cursori, ma cerco proprio la manina che usa Windows.

Ciao.

[Grumpy]

ma allora perché non in C:\WINDOWS\Cursors ? (Win XP)

[icosimo]

perchè non trovi quella che tu puoi vedere a video.

Ciao

[oregon]

Guarda questo esempio ...

http://www.vbforums.com/attachment.p...2&d=1047106270

[icosimo]

Grazie Oregon,

è quello che cercavo, quell'icona deve esserci anche sotto Windows ma avrà un altro nome e altra icona.

Bene ti ringrazione.

Ciao

[Grumpy]

è quello che cercavo

quindi quello che cercavi non è

la classica manina di Windows

ma quella di Internet Explorer.

Solo per la precisione

[icosimo]

Originariamente inviato da Grumpy
ma quella di Internet Explorer.

sì, le precisazioni sono sempre opportune, danno la possibilità di conoscere qualcosa di nuovo.

Non so se è solo la "manina" di Internet Explorer, perchè la trovo fra i puntatori nel Pannello di controllo/mouse.

E' di Internet Explorer o di Windows oppure di entrambi?

Grazie e ciao.

[tippolo]

'Generale 
Private Const HandCursor = 32649& '32648&   ecc.. 
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