Olá VBzadores?!?!?   bao ne?!?!?!

 

Bom pessoal é o seguinte:

 

Gostaria de saber como faço referencia ao objeto estando dentro do objeto sem ser o nome do mesmo, exe: estando dentro do form posso tratalo como Me, certo?, pois entao gostaria de fazer isso mais com textbox, entenderam?

 

PORQUE QUERO ISSO: bom eu estou colocando cor no fundo(backcolor) de cada textbox, no GotFocus coloco uma cor, e no LostFocus volto a cor original, dessa forma fica mais amigavel para o usuario... é eu sei que é uma frescura e tanto mais... POREM SE ALGUEM TEM UMA ROTINA QUE SEJA MAIS PRATICA E POSSA ME ENSINAR.

 

Abraço e obrigado a todos

Dário, tentei fazer assim e deu certo:

 

Private Sub Text1_KeyPress(Keyascii As Integer)
    If Keyascii = vbKeyReturn Then
        Text1.BackColor = vbred
        Text1.ForeColor = vbblue

    End If
End Sub

Não sei se é isso que você queria.

Ola Perci obrigado por responder...

Kra num é isso não...

 

Ao focalizar (gotfocus) o textbox1 ele muda o BackColor para amarelo por exemplo.... e ao sair do focu (Lostfocus) do textbox1 ele volta ao BackColor padrao (branco).

Dário procurei por um código milagroso durante muito tempo mas a unica coisa que consegui foi, colocar os text box como variavel, Text1(0).Text

 

bom feito isto basta você declarar apenas duas vezes desta

forma:

 

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

 

Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = vbWhite
End Sub

 

ou seja se você tiver 100 textbox, precisará somente destes dois códigos acima para efetuar tal tarefa.

 

Não precisa declarar para cada textbox

 

Desculpe mas eu nao entendi muito bem como assim? eu terei de declarar variavel para cada textbox? nao entendi?

Na realidade o que você vai fazer:

 

criar uma textbox no seu form

 

agora copie esta textbox e cole no mesmo form

 

irá surgir uma mensagem pra você clique em sim

 

pronto repare que as duas textbox possuem o mesmo nome porem estão assim Text1(0), e Text1(1)

 

agora basta você ir colando quantas text box quiser porem a mensagem já não irá aparecer mais e suas text serão criadas na sequencia, faça um teste.