Exécution des instructions dans une boucle FOR sous VB.NET

fradimed Messages postés 25 Date d'inscription jeudi 7 février 2008 Statut Membre Dernière intervention 8 avril 2012 - 19 janv. 2009 à 16:24
fradimed Messages postés 25 Date d'inscription jeudi 7 février 2008 Statut Membre Dernière intervention 8 avril 2012 - 20 janv. 2009 à 12:53

Salut à tous.

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 12" />
<meta name="Originator" content="Microsoft Word 12" />
<link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CMohamed%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" />
<link rel="themeData" href="file:///C:%5CDOCUME%7E1%5CMohamed%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" />
<link rel="colorSchemeMapping" href="file:///C:%5CDOCUME%7E1%5CMohamed%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" />


<style>

</style>

Est-ce que je peux savoir pour quoi lorsque on écrit un
ensemble d’instructions dans une boucle FOR ou FOR EACH, l’application n’exécute
que l’instruction d’un progressBar.

Ex: (Code de copie de fichiers)


With
progress

   .Maximum =My.Computer.FileSystem.GetFiles(Environment.SpecialFolder.MyDocuments).Count


   .Minimum = 0

            .Value = 0

            .Step = 1


End
With

For

Each Fichier InMy.Computer.FileSystem.GetFiles(Environment.SpecialFolder.MyDocuments)

            FileCopy(Fichier, "D:" & My.Computer.FileSystem.GetFileInfo(Fichier).Name)


lnom.Text = "Fichier en cour : "
& My.Computer.FileSystem.GetFileInfo(Fichier).Name


lemp.Text = "Emplacement : "
& My.Computer.FileSystem.GetFileInfo(Fichier).DirectoryName

            progress.PerformStep()

Next

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 12" />
<meta name="Originator" content="Microsoft Word 12" />
<link rel="File-List" href="file:///C:%5CDOCUME%7E1%5CMohamed%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" />
<link rel="themeData" href="file:///C:%5CDOCUME%7E1%5CMohamed%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" />
<link rel="colorSchemeMapping" href="file:///C:%5CDOCUME%7E1%5CMohamed%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" />


<style>

</style>


'progress est un progressBar

'lnom et lemp
sont des TextBox

Lors de l’exécution
en remarque que seulement le progressBar qui sa valeur change et le Textbox ‘lnom’
et ‘lemp’ affiche le nom et l’emplacement du dernier fichier a copier c'est-à-dire
apés la boucle FOR.

Merci pour votre aide.

A voir également:

Exécution des instructions dans une boucle FOR sous VB.NET
Boucle for c ✓ - Forum C++ & C++ .NET
Erreur d'exécution 424 ✓ - Forum Visual Basic
Erreur d'execution 424 ✓ - Forum Visual Basic 6
Sql boucle for select ✓ - Forum SQL
Boucle for sql - Forum SQL

4 réponses

Réponse 1 / 4

cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
19 janv. 2009 à 20:23

Bonjour fradimed

As-tu essayé en mettant Me.Refresh() dans la boucle ?

Cordialement

Réponse 2 / 4

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
19 janv. 2009 à 20:55

Ou un Application.DoEvents()

---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php

Réponse 3 / 4

cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
19 janv. 2009 à 23:17

Je pense que tu as raison, casy, dans une boucle c'est mieux d'utiliser Application.DoEvents()

Réponse 4 / 4

fradimed Messages postés 25 Date d'inscription jeudi 7 février 2008 Statut Membre Dernière intervention 8 avril 2012
20 janv. 2009 à 12:53

Salut à tous.

La solution est d'utiliser :

Application.DoEvents()

Merci pour votre aide

Discussions similaires

erreur d'execution 9

boucle for avec un pas de 2

erreur d'execution '9'

Erreur d'exécution '9' : l'indice n'appartient pas à la sélection

Erreur d'exécution 9

Votre réponse

Discussions similaires