none
Ampliando um Button RRS feed

  • Pergunta

  • Prezados, estou querendo ampliar o tamanho de um Button ao passar com o cursor do mouse sobre ele. Por favor uma dica como se faz essa rotina?

    Grato

    quinta-feira, 6 de abril de 2017 20:30

Respostas

  • Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter  
            Dim Thebutton As Button = CType(sender, Button)  
            With Thebutton  
                Dim R As Rectangle = Thebutton.Bounds  
                R.Inflate(4, 4)  
                .Location = New Point(.Location.X - 2, .Location.Y - 2)  
                .Bounds = R  
            End With 
        End Sub 
     
        Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave  
            Dim Thebutton As Button = CType(sender, Button)  
            With Thebutton  
                Dim R As Rectangle = Thebutton.Bounds  
                R.Inflate(-4, -4)  
                .Location = New Point(.Location.X + 2, .Location.Y + 2)  
                .Bounds = R  
            End With 
        End Sub 

    How do I resize button's height and widht when mouseover event happen during runtime?

    Antero Marques
    _______________________________________________________________________________
    Se a resposta for útil, marque como útil, se respondeu totalmente sua dúvida, marque como resposta. O Fórum MSDN é utilizado também como base de conhecimento, então é responsabilidade de todos mantê-lo organizado e funcional.


    sexta-feira, 7 de abril de 2017 07:24

Todas as Respostas

  • Deleted
    sexta-feira, 7 de abril de 2017 01:29
  • Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter  
            Dim Thebutton As Button = CType(sender, Button)  
            With Thebutton  
                Dim R As Rectangle = Thebutton.Bounds  
                R.Inflate(4, 4)  
                .Location = New Point(.Location.X - 2, .Location.Y - 2)  
                .Bounds = R  
            End With 
        End Sub 
     
        Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave  
            Dim Thebutton As Button = CType(sender, Button)  
            With Thebutton  
                Dim R As Rectangle = Thebutton.Bounds  
                R.Inflate(-4, -4)  
                .Location = New Point(.Location.X + 2, .Location.Y + 2)  
                .Bounds = R  
            End With 
        End Sub 

    How do I resize button's height and widht when mouseover event happen during runtime?

    Antero Marques
    _______________________________________________________________________________
    Se a resposta for útil, marque como útil, se respondeu totalmente sua dúvida, marque como resposta. O Fórum MSDN é utilizado também como base de conhecimento, então é responsabilidade de todos mantê-lo organizado e funcional.


    sexta-feira, 7 de abril de 2017 07:24
  • Antero, a informação que você me passou foi perfeita, mas a pergunta que fiz deixou a desejar por tê-la feito incompleta.

    Estou usando um Botton size (5,5) então precisei ampliar para ter uma visibilidade melhor e isso a tua rotina resolve certinho.

    Mas eu preciso que o Botton amplie e após ampliado então eu clico com o botão do mouse para que só após o clic surta o efeito da rotina em que o button está inserido.

    Este mesmo efeito já existe nos editores de texto dos celulares. Por ter botões muito pequenos, o usuário coloca o dedo sobre uma letra, ela amplia e só então o usuário confirma encostando o dedo.

    Outro problema que ainda restou é que após o button ampliado, como ele está junto com outros button's, o seu desenho (quadrado) fica por trás dos visinhos, o que tenho que mudar para que o seu desenho fique predominando sobre os outros?

    Grato / Abraço   

    sábado, 8 de abril de 2017 05:43