Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
fabio.microvip

VB.NET - função para alterar cor dos textbox quando recebe foco

Recommended Posts

Olá Pessoal,

Sou principiante na programação e gostaria de fazer com que a cor dos textbox fossem alteradas assim que receber e perder o foco para digitação.

Na verdade eu já fiz isso funcionar alterando a propriedade BackColor dos textbox no evento GOTFOCUS e também no evento LOSTFOCUS, ou seja, quando o textbox recebe o foco a cor programada no evento GotFocus é exibida, e assim que perde o foco a cor programada no evento Lostfocus é exibida voltando à cor padrão.

Porém, do jeito que está, eu preciso fazer isso em todos os textbox do meu programa, o que é bastante complicado e trabalhoso.

Como eu faço para montar uma espécie de função ou procedimento (ou como vocês acharem melhor chamar) para facilitar essa situação, uma vez que um programa possui inúmeras textbox e gostaria que todas seguissem o mesmo padrão.

Como podem observar, sou principiante na área.

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, fiz uma pequena applicação para servir de exemplo, pois acredito que uma das melhores formas de aprender uma linguagem é estudando um código.

Cria uma applicação com três textbox (textbox1, textbox2, textbox3) e cole o seguinte codigo dentro classe do formulario principal.


Sub MainFormLoad(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

'Adiciona os eventos
AddHandler Me.textBox1.GotFocus, AddressOf Me.TextBoxGotFocus
AddHandler Me.textBox2.GotFocus, AddressOf Me.TextBoxGotFocus
AddHandler Me.textBox3.GotFocus, AddressOf Me.TextBoxGotFocus

AddHandler Me.textBox1.LostFocus, AddressOf Me.TextBoxLostFocus
AddHandler Me.textBox2.LostFocus, AddressOf Me.TextBoxLostFocus
AddHandler Me.textBox3.LostFocus, AddressOf Me.TextBoxLostFocus

End Sub

Sub TextBoxGotFocus(ByVal sender As Object, ByVal e As EventArgs)

Dim mTextBox As TextBox = CType(sender, TextBox)
mTextBox.BackColor = Color.Black
mTextBox.ForeColor = Color.White

End Sub

Sub TextBoxLostFocus(ByVal sender As Object, ByVal e As EventArgs)

Dim mTextBox As TextBox = CType(sender, TextBox)
mTextBox.BackColor = Color.White
mTextBox.ForeColor = Color.Black

End Sub

Qualquer coisa é só perguntar.

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×