função para alterar a cor do textbox ao receber foco

[Guest Fábio Melo]

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 LEAVE, 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 Leave é 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.

[OSJunior]

Olá, Fábio Melo.

Como você está iniciando e eu gostaria muito de te ajudar, não farei para você o método. Vamos aprender como é feito. Também, porque o método irá mudar conforme a sua necessidade de implementá-lo.

Crie um método de como você imagina que seja, e eu ou o pessoal daqui do fórum ajudaremos você a terminá-lo.

Até mais

[Fábio Melo]

Então caro amigo, na minha falta de preparo em programação, o que eu consegui foi apenas criar duas funções:

Sub ganhafoco(ByVal campo As Object)
        campo.BackColor = Color.Beige    'muda cor pra bege
        campo.SelectionStart = 0 
        campo.SelectionLength = Len(campo.Text)    'seleciona o conteúdo do campo
End Sub

Sub perdefoco(ByVal campo As Object)
        campo.backcolor = Color.White    'muda cor pra branco
End Sub

Em seguida, tenho que chamar essas funções nos eventos GOTFOCUS e LEAVE respectivamente, para cada um dos textbox do programa.

Agora, para criar um método que faça isso em todo o formulário sem eu precisar chamar para cada textbox, daí eu já não consegui fazer mesmo.

Se puder me ajudar eu agradeço.

Obrigado.

[quintelab]

Você terá que fazer um laço percorrendo todo seu formulário, no momento que ele encontrar seu TextBox você atribui os dois eventos a ele. Caso não consiga irei postar o código, fiz isso esses dias.

Abraços...

[Fábio Melo]

Olá amigo,

Tentei o dia todo com while e for mas não consegui mesmo, se puder postar esse código ou pelo menos um esboço, eu agradeço muito.

Obrigado.