DICA PARA MUDAR A COR DO FOCO AO DIGITAR

Moderador: Leandro Esteves

Regras do fórum
=============

Antes de postar sua dúvida, por favor leia as regras de utilização do fórum.
Gonzaga
Mensagens: 123
Registrado em: 23 Jul 2013, 10:32

DICA PARA MUDAR A COR DO FOCO AO DIGITAR

Mensagem por Gonzaga » 30 Mai 2015, 15:17

'Na árvore de projetos, clique na janela desejada
'Pressione F9 para abrir o editor
'Coloque em Funções e Rotinas Globais o trecho abaixo
'pode trocar a cor em BackColor para a cor desejada (ganhar o foco)
'volte para a mesma cor do campo antes do foco em BackColor (perder o foco)

'evento quando o campo ganhar o foco
Private Sub txtCp_GotFocus(Index As Integer)
txtCampo(Index).BackColor = &HFFC0C0
txtCampo(Index).GotFocus
End Sub

'evento - quando o campo perder o foco
Private Sub txtCp_LostFocus(Index As Integer)
txtCampo(Index).BackColor = &H80FFFF
txtCampo(Index).LostFocus
End Sub

Responder

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante