SABER QUAL TEXTBOX OU RICHTEXTBOX ESTA FOCADO ...

USUARIO.EXCLUIDOS 02/08/2007 23:54:31
#229218 Resposta escolhida

tenta isso irmão

Screen.ActiveControl.Name

ele retorna o name

agora para retorna o tipo

TypeName(Screen.ActiveControl)


tenta ai qualquer coisa

falo

USUARIO.EXCLUIDOS 02/08/2007 23:59:05
#229221

completando ai vc monta uma função tipo

public sub inf_objeto
tipo =TypeName(Screen.activeform.ActiveControl)
name = Screen.activeform.ActiveControl.Name
end Sub

obs coloque o activeform pq se a função tive num modulo ele sabe em que form ele vai verifica.

ai e so xamar no got ou sei lah num timer q fica verificando ai e cum vc

falo

ZULLIM 02/08/2007 23:59:34
#229223

A idéia é a seguinte:
Quando o componente ganhar o foco ele muda de cor.
Quando perder, volta a cor original.

USUARIO.EXCLUIDOS 03/08/2007 08:15:00
#229240

Poxa...ou eu to loco..ou é simples mesmo

Por exemplo num text

Got_Focus

Text1.BackColor = "Black" 'exemplo, o certo é a cor em Hexa

Lost_Focus

Text1.BackColor = "White" 'exemplo, o certo é a cor em Hexa


n é isso?

boa sorte

USUARIO.EXCLUIDOS 03/08/2007 11:58:40
#229331

Obrigado a todos =D
mas o que resolveu mesmo foi a resposta do MILTONBARRETOS
Vlw eim =D