Limpando Todos Txts

[Bruno Krebs]

Me lembro q vi nesse forum um cara q sabia como fazer para limpar todas as caixas de textos de um formulario, eu me lembro muito vagamente, se alguém aí souber me dizer!!!

ah sim, o que eu me lembro vagamente é q tem um comando tipo activecontrols ou algo assim q daí ele partia para limpar, e não precisava escrever isso 10mil vezes:

txt1.text = ""

txt2.text = ""

txt3.text = ""

txt4.text = ""

txt5.text = ""

txt6.text = ""

[Bruno Krebs]

Bem boca aberta mesmo, ao invés de pesquisar antes de postar não , bom desculpem aí, mas eu pesquisei aki no forum mesmo e achei minha resposta q esta funcionando até. E venho aqui porque acho um código muito interessante uma vez q não precisa dar comando pra apagar um por um dos texts, ou doq quer q seja...

O tópico em q eu achei, a dúvida era "pra q serve 'for each... in'

Serve para localizar determinados elementos dentro de um grupo.

Eu utilizo para limpar os Campos (TextBox) da tela.

Public Function Limpa_Tela()

Dim Controles As Control

For Each Controles In Controls

If TypeOf Controles Is TextBox Then

Controles.Text = ""

End If

Next

End Function

Desculpem novamente

[jb207]

Obrigado pela parte que me cabe, kkkkkkkkkkkk

Um feliz 2005 para todos.