Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
FlabecaZ

mudar cor do texto da label ao passar o cursor

Recommended Posts

FlabecaZ

Boa tarde, eu hoje decidi fazer uma coisa que não interessa muito, mas para dar assim mais atenção, queria mudar o texto da label ao passar o cursor por cima dela mesma, só que eu ja tentei de várias maneiras, mas devido á minha muita pouca experiência, não consegui...

Agradecia uma ajuda

cumps.

Share this post


Link to post
Share on other sites
FreiNando

Desculpa, só agora esbarrei com este tópico:

Usa o evento MouseMove.

Mas atenção que tens de colocar o código para desfazer essa alteração no MouseMove dos objectos contiguos ou caso haja espaço livre em volta, no evento do form.

Exemplo:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = "Fora"
    Label1.ForeColor = vbBlack
    Label1.Font.Bold = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = "Dentro"
    Label1.ForeColor = vbBlue
    Label1.Font.Bold = True
End Sub


O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.