Funcionamento Do For Each

[Guest Particia]

Olá pessoal gostaria de entender melhor como o loop for each funciona. Fiz uma pesquisa aqui no forum mas os resultados não me exclareceram. Gostaria de saber qual é o argumento que se deve passar aos a palavra 'in' .... Estava querendo usar um for each para ler um array ... podem me ajudar ... muito obrigada

Dim c As Control

For Each c In Me.Controls

If TypeOf c Is TextBox Then

c.Text = ""

ElseIf TypeOf c Is ComboBox Then

c.Text = ""

End If

Next

[kuroi]

Nesse caso ele procura todos os controles (textbox,command buttons,ect) de um form. Ele cria uma variável controle e procura todos os controle do form.

Por isso usa-se "each" e "in".

For Each Control In Form = Para Cada Controle no Formulário

Você só usa o each pra procurar algo dentro de outra coisa. No caso controles dentro de um form.

Para acessar arrays faça:

Dim Cont as Integer
varArray(10) as string
For Cont = 0 to 10
     msgbox varArray(Cont)
Next

A Variavel Cont comeca com 0, e cada vez q passar no next soma 1 até chegar em 10. Se você não sabe quantos indices tem o array, use a funcao ubound.

Dim Cont as Integer
For Cont = 0 to UBound(varArray)
     msgbox varArray(Cont)
Next

[Graymalkin]

Olá pessoal gostaria de entender melhor como o loop for each funciona. Fiz uma pesquisa aqui no forum mas os resultados não me exclareceram. Gostaria de saber qual é o argumento que se deve passar aos a palavra 'in' .... Estava querendo usar um for each para ler um array ... podem me ajudar ...

Dê uma olhada neste post e veja se ele esclarece sua dúvida: http://scriptbrasil.com.br/forum/index.php...=0entry249402

Abraços,

Graymalkin