file list : ouvrir les elements a la suite

Question

Salut, 
je voudrais juste savoir si il est possible de (dans une file list)
de lire tous les éléments (l'un après l'autre )
qui s'y trouvent sans que l'utilisateur clique dessus.
Dans mon cas ce sont des images qui défilent, avec un timer...

merci d'avance

cs_rene38 · Answer

Bonjour 
Un truc du genre :
For i = 0 To File1.ListCount - 1
Fichier = File1.List(i)
'tu fais ce que tu veux de Fichier
Next i

zebiker · Answer

ca marche pas :((
le probleme c'est que file1.list(i) ne renvoie pas un nom de fichier, car vb me met comme erreur qu'il ne trouve pas le fichier !

parceque moi ce que je tape :
Dim i
For i = 1 To File1.ListCount

imagez = Dir1.Path & "" & File1.List(i)

Picture1.Picture = LoadPicture(imagez)

Next i

et forcemant il ne peut pas charger l'image :((

merci quand meme, je continue à essayer mais dis-moi si tu as une autre solution...
ciao

cs_rene38 · Answer

Normal : ta boucle For ... Next défile à toute allure et le dernier fichier a pour index File1.ListCount - 1 et non File1.ListCount 

Essaie ceci (ça marche, je l'ai testé) :

Après avoir initialisé :

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Un bouton de commande Name = "Suivant"

Private Sub Suivant_Click()
Static i
If i > File1.ListCount - 1 Then Exit Sub' arrêt sur la dernière
'ou bien :
'If i > File1.ListCount - 1 Then i = 0 ' retour à la première
imagez = Dir1.Path & "" & File1.List(i)
Picture1.Picture = LoadPicture(imagez)
i = i + 1
End Sub

File list : ouvrir les elements a la suite

3 réponses

Discussions similaires