none
A mesma dúvida porém mais detalhada. RRS feed

  • Pergunta

  • Amigos, um colega aqui do MSDN forneceu-me esta pequena rotina que faz ampliar um Button e voltar ao seu tamanho original :

    Private Sub Button1_MouseEnter(sender As Objet, e As EventArgs) Handles Button1.MouseEnter

    Dim Button1 As Button = CType(sender, Button)

    With Button1

    Dim R As Rectangle = Button1.Bounds

           R.Inflate(10, 5)

           .Bounds = R

    End With

    End Sub

    Private Sub Button1_MouseLeave(sender As Objet, e As EventArgs) Handles Button1.MouseLeave

    Dim Button1 As Button = CType(sender, Button)

    With Button1

    Dim R As Rectangle = Button1.Bounds

           R.Inflate(-10, -5)

           .Bounds = R

    End With

    End Sub

    Eu preciso dela porque tenho uma série de Buttons pequenos que preciso amplia-lo para melhorar a visualização, ocorre que somente o novo Button que vou inserindo na minha rotina, é que vai ficando por cima dos outros depois de compilados. Os Buttons anteriores, quando solicitado sua ampliação passando o cursor do mouse, vão ficando por trás dos demais e eu queria que ao setar com o cursor do mouse eles sempre ficassem por cima dos demais.

    A minha pergunta é a seguinte:

    O que tenho que inserir nessas rotinas acima para que qualquer Buttons que eu aponte o cursor do mouse e obtenha o efeito de ampliação mas que fique por cima dos dois que estão a sua direita e outro a sua esquerda.

    Grato/Durval 


       

    domingo, 16 de abril de 2017 03:34

Respostas