Ola gente sou iniciante, mas estou amanda trabalhar com visual basic. olha so e muito simples mas não sei como faço, tenho umas text box que quero que mude de cor quando receber e perder o foco, quando receber o foco mudar de cor, quando perder o foco volta a cor anterior, so que eu não quero ter que especificar isso nas propriedades setfocus e gotofocus de cada text box. como posso fazer isso de forma facil.

value gente estou aguardando!

Seguinte, cria um array de textbox, depois fica facil controlar porque voce vai verificar somente uma vez no gotfocus() e outra no lostfocus() sem a necessidade de entrar em cada text e programar cada evento.

 

Dá uma olhada nesse código é ve se te ajuda.

 

Option Explicit

Dim i As Byte

Private Sub txtCliente_GotFocus(Index As Integer)

  For i = 0 To txtCliente.Count - 1
    If i = Index Then
      txtCliente(i).BackColor = vbRed
      txtCliente(i).ForeColor = vbWhite
    End If
  Next i

End Sub

Private Sub txtCliente_LostFocus(Index As Integer)
 
  For i = 0 To txtCliente.Count - 1
    If i = Index Then
      txtCliente(i).BackColor = vbWhite
      txtCliente(i).ForeColor = vbBlack
    End If
  Next i

End Sub

falou...

 

--

Rodrigo R. Yamamoto

rodrigo muito grato pela resposta. e sim funcionaria so que eu nesse caso eu gostaria de trabalhar sem matrizes sera que não tem outra forma não, aguardo

erivelton

Erivelton,

Vc não precisa usar matrizes, vc vai trabalhar com indices no componente. O código abaixo resolve.

ok.

Mas olha so.Tem alguma propriendade do form que indica a perda e ganho de foco de outro objeto qualquer, tipo um textbox ou um combo e etc?

 

grato Erivalton

Galerinha, REGISTREM-SE! É grátis e não dói nada.

Respondendo: O que você quer fazer necessariamente vai ser pelo gotfocus e lostfocus do objeto, vc não pode controlar eventos sem ter que passar por eles pelo menos uma vez. À menos que vc queira usar uma porrada de API, o que vai fazer ficar tão complicado que vai dar pau direto.