Ponteiro Mouse formato de uma "Mão"


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Ponteiro Mouse formato de uma "Mão"

ricardo_27

CACHOEIRINHA
RS - BRASIL

ENUNCIADA !

Postada em 16/10/2008 00:20 hs

Como fazer o ponteiro do mouse ficar no formato de uma "mão" ao passar sobre um label?

Ash Katchup

CAXIAS DO SUL
RS - BRASIL

ENUNCIADA !

Postada em 16/10/2008 00:36 hs

Não existe, dentro do VB6, uma constante que troque direto o cursor do mouse para uma "mão". Então vc pode fazer uma maracutaia para fazer a tua mão aparecer, como colocar um hiperlink com uma url de um espaço, ou usar APIs ou imagens...
Dá uma olhada no seguinte documento do word. Ali tem um código de uma função que pode lhe ajudar.
http://bytes.com/forum/attachment.php?attachmentid=335

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 16/10/2008 08:44 hs

Fiquei até tonto com a maracutaia do colega ASH, mas na realidade é assim que se faz:

Clique em na Propriedade MouseIcon do Label e escolha o icone da mão que deseja que apareça

depois mude a propriedade MousePointer para 99 - Custom

e pronto. agora basta você passar o mouse sobre o label que o icone ira mudar.

Ash Katchup

CAXIAS DO SUL
RS - BRASIL

ENUNCIADA !

Postada em 16/10/2008 08:54 hs

"Então vc pode fazer uma maracutaia para fazer a tua mão aparecer, como colocar um hiperlink com uma url de um espaço, ou usar APIs ou imagens..."
Quando eu falei "imagens", queria dizer "icones" :)

Vale ai Treze, assim é bem mais facil!

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 16/10/2008 10:32 hs

Falou ASH! abraço.

ChicoVieira

CRUZEIRO
SP - BRASIL

ENUNCIADA !

Postada em 16/10/2008 11:23 hs

Ricardo, dê uma olhada abaixo. Falta apenas possuir o ícone da 'mãozinha' numa pasta onde vc possa referenciá-lo no seu project.

'As rotinas abaixo, movimentando o mouse pelo label, criam o efeito de um hyperlink,
'mudando a cor do label e colocando a fonte em underline.
'Como criar o efeito: - Clicando no label, verificar as propriedades <MousePointer>=99 e
'MouseIcon=arquivo da mãozinha (localizar o arquivo na pasta).
'A seguir, na propriedade MouseMove do form, digitar:
'   label.FontUnderline = False    > quando movimentar o mouse, fica sem o efeito underline.
'   label.ForeColor = &H0&         > mantém a cor original do label.
'A seguir, no evento MouseMove do label, digitar:
'   label.FontUnderline = True     > muda para fonte Underline, ao mover o Mouse sobre o label.
'   label.ForeColor = &HFF0000     > muda para a cor verde.
'A seguir, no evento MouseDown do label, digitar:
'   label.FontUnderline = False
'   label.Forecolor = &H0&
'===============================================================================================

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblPesquisa.FontUnderline = False
    lblPesquisa.ForeColor = &H0&
End Sub

Private Sub lblpesquisa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblPesquisa.FontUnderline = True
    lblPesquisa.ForeColor = &HFF0000
End Sub

Private Sub lblPesquisa_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblPesquisa.FontUnderline = False
    lblPesquisa.ForeColor = &H0&
End Sub

'Falta só associar a rotina que vc deseje, no evento Click do label.

Página(s): 1/1