USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Formas avançadas de utilizar o For...Each
Postada em 1/9/2003 por Ð@®l@n            
É comum que necessitemos executar uma tarefa repetidas vezes mas não possamos utilizar a instrução For...Next para a execução devido aos valores não serem sequenciais ou terem um passo fixo. Por exemplo :

DoSomething 2
DoSomething 3
DoSomething 5
DoSomething 7
DoSomething 11
DoSomething 13
DoSomething 17
DoSomething 19
DoSomething 23
DoSomething 29

Para resolver esse problema podemos utilizar um For..each. Veja :

Dim v As Variant
For Each v In Array(2, 3, 5, 7, 11, 13, 17, 19, 23, 29)
DoSomething v
Next

Na linha do For..Each cria-se um array com todos os itens para os quais a repetição deverá ser realizada. A cada repetição, como é típico do for..each, o item para o qual a repetição está sendo realizada é atribuido na variável v.

Isso não se limita a problemas numéricos. Veja esse outro exemplo :

Dim v As Variant
For Each v In Array("Spring", "Summer", "Fall", "Winter")
PrintSaleReport v
Next
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página