Ir ao conteúdo
  • Cadastre-se

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


fabio.microvip

Posts recomendados

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.

Link para o comentário
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

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...