none
Cores diferentes ??? (com foto)

    Question

  •  

    Olá pessoal, estou construindo uma interface para cadastro de pacientes onde a idéia é q ao passar o mouse em cima do menu o mesmo mude para a cor do fundo do form.

     

    No entanto, conforme mostra a imagem abaixo, a cor do botão "Emissão" muda pra uma diferente do form... apesar de ambas terem o mesmo nome.

     

    http://geocities.yahoo.com.br/cristian_fortal/formcor.JPG

     

    Abaixo segue o código:

     

    Code Snippet

    Public Class Form1

     

    Private Sub MudaCor(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT1.MouseEnter, BT2.MouseEnter, BT3.MouseEnter, BT4.MouseEnter

     

    'Se o objeto for um botÆo...

    If TypeOf sender Is Button Then

    Dim btn As Button = DirectCast(sender, Button)

    'Coloca a cor Beige

    btn.BackColor = Color.Beige

    End If

     

    End Sub

     

    Private Sub RestauraCor(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT1.MouseLeave, BT2.MouseLeave, BT3.MouseLeave, BT4.MouseLeave

     

    'Se o objeto for um botÆo...

    If TypeOf sender Is Button Then

    Dim btn As Button = DirectCast(sender, Button)

    'Coloca a cor transparente

    btn.BackColor = Color.Transparent

    End If

     

    End Sub

     

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     

    'Cor do form fica Beige

    Me.BackColor = Color.Beige

    'Cor do botÆo BT1 tb...

    BT1.BackColor = Color.Beige

     

    End Sub

     

    End Class

     

     

    Como faço pra q o efeito funcione de forma esperada, ou seja, as cores fiquem, iguais?
    Saturday, June 21, 2008 2:58 PM