VB6 Label Set cursore mano

Question

Come impostare cursore mano per un controllo Label in Visual Basic 6

mia etichetta dovrebbe agire come un pulsante Link.

ho cambiato il ForeColor-vbBlue, Sottolineato Stile e così via ..

ora devo impostare il cursore a mano per quella etichetta .. Come farlo?

Answer 1

È possibile utilizzare le chiamate API per ottenere il cursore di sistema mano

Inserire il seguente codice in un modulo

Public Const IDC_HAND = 32649& 
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long 
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long 

e nel caso MouseMove di l'etichetta, si inserisce il seguente codice

SetCursor LoadCursor(0, IDC_HAND) 

Altre costanti cursore: http://msdn.microsoft.com/en-us/library/windows/desktop/ms648391%28v=vs.85%29.aspx

Answer 2

È necessario disporre di un file ICO o CUR con un cursore a mano, quindi impostarlo come personalizzato MouseIcon nella finestra di progettazione (impostare anche MousePointer a 99 - Custom).

È possibile cercare sul Web una versione gratuita del cursore se non si dispone di esso.

Answer 3

È necessario eseguire una personalizzazione MouseIcon. Troverai un cursore a forma di mano nella cartella grafica dell'installazione di Visual Studio 6. Ecco il codice per farlo:

Private Sub Form_Load() 
    Label1.MousePointer = vbCustom 
    Label1.MouseIcon = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Cursors\H_POINT.cur") 
End Sub