ALTERAR COR DA LETRA NO TEXTBOX AUTOMATICAMENTE

 Tópico anterior Próximo tópico Novo tópico

ALTERAR COR DA LETRA NO TEXTBOX AUTOMATICAMENTE

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#497534 - 16/07/2021 11:36:23

ELMO01
BELO HORIZONTE
Cadast. em:Agosto/2004


Última edição em 16/07/2021 11:45:20 por ELMO01

Oi pessoal

ALguém tem alguma função para Alterar cor da letra no textbox automaticamente sem precisar de ficar declarando um a um no programa?

Obrigado


elmo

#497536 - 16/07/2021 12:46:05

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
txtSuaTextBox.ForeColor = Color.Red

Assim não serve? Se não for isso, não sei o que você quer...

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#497538 - 16/07/2021 13:50:02

COQUITO
BELO HORIZONTE
Cadast. em:Junho/2014


eu acho que vc está falando do focus dos campos não é ?
bom no meu caso eu fiz é criar usercontrol e declarar no evento  leave e enter
o focus para mudar a cor




#497573 - 21/07/2021 13:44:32

ELMO01
BELO HORIZONTE
Cadast. em:Agosto/2004


Pessoal o que estou querendo é mudar a cor da letra nos TEXTBOX'S sem ter a necessidade de declarar todos os textbox assim como o KERPLUNK fez como exemplo, ou seja, fazer uma função que mude automaticamente a cor da letra em todos os textbox do sistema.


elmo

#497574 - 21/07/2021 14:20:49

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Não sei se isto é correto.
Se tiver alguém para corrigir,será muito bom.

Public Sub MudaCor(ByVal controlP As Control)
        Dim ctl As Control
        For Each ctl In controlP.Controls
            If TypeOf ctl Is TextBox Then
                DirectCast(ctl, TextBox).ForeColor = Color.Red
            ElseIf TypeOf ctl Is ComboBox Then
                DirectCast(ctl, ComboBox).ForeColor = Color.Red
            End If
        Next
    End Sub

     Call Me.MudaCor(Me)



Resposta escolhida #497576 - 21/07/2021 16:24:55

JABA
CABO FRIO
Cadast. em:Agosto/2005


www.vbmania.com.br/index.php?modulo=detalhe&id=9392

_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#497577 - 21/07/2021 17:07:52

ELMO01
BELO HORIZONTE
Cadast. em:Agosto/2004


OMAR2011 a sub que você postou não deu certo se tiver mais alguma ideia será bem vinda

elmo

#497578 - 21/07/2021 17:56:30

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


 Anexos estao visíveis somente para usuários registrados

Coloquei este em vb2012.
Testei e deu certo.



#497579 - 21/07/2021 20:12:39

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Última edição em 21/07/2021 20:13:42 por FABRICIOWEB

            foreach (Control ctl in controles.Controls)
            {
                if (ctl is TextBox) ctl.ForeColor = Color.Red;
            }



For Each ctl As Control In controles.Controls
    If TypeOf ctl Is TextBox Then ctl.ForeColor = Color.Red
Next



#497599 - 23/07/2021 10:03:28

ELMO01
BELO HORIZONTE
Cadast. em:Agosto/2004


Última edição em 23/07/2021 10:23:41 por ELMO01

 Anexos estao visíveis somente para usuários registrados

OMAR2011, a sub que você fez é muito boa, mais só funciona se o TextBox estiver direto no Form, caso o textbox estiver dentro de uma GroupBox ou Panel a sub não funciona.
Tem como a sub verificar se existe algum TextBox dentro  GroupBox ou Panel para alterar a cor também.

Alterei o seu exemplo e estou anexando aqui

Obrigado.


elmo

#497609 - 24/07/2021 20:15:46

JABA
CABO FRIO
Cadast. em:Agosto/2005


Última edição em 24/07/2021 20:22:56 por JABA

Public Sub MudarCorTexto(ctrl As Control)

        For Each c As Control In ctrl.Controls
            If (TypeOf c Is TextBox) Then c.ForeColor = Color.Red
            If (c.HasChildren) Then MudarCorTexto(c)
        Next

    End Sub


Ex:

Se passar um contêiner, ele irá mudar apenas os controles dele. Agora se passar a instância do form, fará para todos os seus controles, inclusive os controles dentro dos contêineres.

'Para Form
MudarCorTexto(Me)

'Para Panel
MudarCorTexto(Me.Panel1)

etc...


_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ELMO01 em 28/07/2021 12:05:48