MUDAR COR DO TEXT CONFORME O FOCO

ERLANMG 12/06/2007 09:47:30
#220839
Bom dia,

Gostaria de saber se tem alguma função para que qdo o text ganhar o foco ele ficar na cor branca e qdo perder o foco ficar na cor amarela.

Seria como segue abaixo, porém de forma que eu não precise fazer isso em todos os text.


Private Sub Text1_GotFocus()
Text1.BackColor = &H80000005
End Sub


Private Sub Text1_LostFocus()
Text1.BackColor = &H80000018
End Sub



Agradeço desde já atenção dispensada.


Obrigado
USUARIO.EXCLUIDOS 12/06/2007 10:07:06
#220842


Troca o BackColor...por ForeColor

Boa sorte
USUARIO.EXCLUIDOS 12/06/2007 10:13:47
#220843

Oh..desculpa..pensei q quisesse mudar a cor do texto..

das duas umas:

Ou vc geraria uma função pra isso..e nos eventos Lost e Got..chamasse a função ou

Todos text, usassem Index (Text1(0), Text1(1)...) e através de um For vc conseguiria fazer isso

Creio eu....se eu estiver errado..a solução aparecerá

Boa sorte!
JADSON 12/06/2007 10:39:51
#220855
Você pode usar outro controle que já tenha outra função exemplo:
http://www.vbmania.com.br/vbmania/vbmforum.php?varMethod=Abrir&varID=207320&varSubPagina=1&varWorld=1
SILVERDRAGON 12/06/2007 10:57:09
#220859
Deve ser isso..



Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
End Sub

[c]Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000018
End Sub



Qualquer duvida posta ai


flw
[/c]
SILVERDRAGON 12/06/2007 11:00:26
#220861
Aqui vai o projetinho....
USUARIO.EXCLUIDOS 12/06/2007 11:16:27
#220868
Amigão, uma dica, o amigo CLEVERTON postou neste site a solução para seu problema, trata se de uma OCX que facilita a nossa vida no VB. Digite na caixa localizar CTEXTBOX e confira, aproveite e visite a seção Componentes e Codigo Fonte. Ponto para o CLEVERTON e um grande abraço pra você.
Tópico encerrado , respostas não são mais permitidas
Voltar