Discussion :

[MegaBigBoss]

Voila j'ai un filelist et j'ai plusieurs elements dedans et j'aimerais que le programme choisisse entre eux et affiche celui qui a ete choisi dans un msgbox Est-ce possible (de préference sans APIs) ???
Si oui comment ?

Merci

[Delbeke]

Un FileList ca sert a donner le choix du fichier à un utilisateur, si le programme choisi le fichier, pas besoin du fileList, enfin c'est mon avis

[sovo]

si tu veux bien choisir plusieurs element dans un FileList alors tres simple :

Change la propriete MultiSelect tu l'a mets a 1-Simple et comme ca tu pouras faire des choix multiple dans ton FileList.

[Delbeke]

Bon si tu tiens vraiement a ce que le programme selectionne une ligne pour toi
utilise ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Command1_Click()
  File1.ListIndex = 2  'selection de la troisème ligne
  MsgBox File1.List(File1.ListIndex)
End Sub

[MegaBigBoss]

enfin je veux qu'il choisisse au hasard !!

[sovo]

et que doit il choisir au hasard ?? les fichiers a afficher ?? si le cas alors je te conseille de passer par un random (rnd que tu doit associer a un randomize)

[MegaBigBoss]

il doit choisir entre les elements de la list

[sovo]

alors utilise le random. Procedure a suivre:

Tu trouves le nombre total d'element avec ListCount
ensuite tu fait un random sur ce nombre
et enfin le resultat de ce random tu l'affiche avec list(Result_rnd)

avec cette procedure tu afficheras les elements de ta list aleatoirement.

[MegaBigBoss]

comment utilise-t-on random ?

[MegaBigBoss]

il y a un probleme j'ai comme resultet de randomize des chiffres decimaux et non les elements de ma filelist !!

[Delbeke]

Normal Rnd renvoie un chiffre entre 0 et 1 , 1 exclus
Multiplie ce chiffre par le nombre d'elements de ta liste
prends la partie entiere

[sovo]

Voila a peut pres ce que je te proposais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim Nbr as integer
 
Randomize
Nbr=FileList1.listcount
Nbr = Int((Nbr * Rnd) + 1)
 
MsgBox FileList1.list(Nbr)

la je croit que ca devrais aller.

[Delbeke]

Heu, je suis pas sur mais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Nbr = Int((Nbr * Rnd) + 1)

devrait renvoyer un nombe entre 1 et Nbr ? non ?
alors ca ne marcheras pas tojours, car on a besoin d'un nombre entre 0 et File1.ListCount-1

il ne faut pas mettre le +1 , a mon avis.

[MegaBigBoss]

Je n'ai qu'un seul mot a tout ça ( ou deux) :
PARFAIT et MERCI

[sovo]

un nombre entre 0 et File1.ListCount-1

je l'avais oublier celui la. Ce n'est pas faut cette remarque. Correction du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim Nbr as integer
 
Randomize
Nbr=FileList1.listcount
Nbr = Int(Nbr * Rnd)
 
MsgBox FileList1.list(Nbr)

[MegaBigBoss]

ouais j'ai corrigé et merci pour tout