[VB6] Classer un FileListBox

Version imprimable

09/06/2006, 13h20
jean-pierre96

[VB6] Classer un FileListBox

Bonjour,

j'ai un FileListBox qui affiche des fichiers ayant chacun comme nom un mois de l'année. Comment pourrais-je faire pour afficher les mois dans l'ordre?

Merci pour vos réponse
09/06/2006, 13h26
Vesta

Utiliser un Listbox...

Tu garde le filelistbox et tu copier chaque valeur dans l'ordre souhaité dans une Listbox... Tu caches le filelistbox...

Ou alors tu utilise directement un Listbox sans passer par un FileListBox (Voir File System Object FSO, Commande Dir,... etc)
10/06/2006, 15h44
sovo

une autre solution qui a mon avis peut etre plus simple, est de mettre tes fichiers en ordre dans ton repertoire (si tu n'en a qu'un).
10/06/2006, 16h20
jmfmarques

Voilà ce que Jean-pierre a écrit :

Citation:

j'ai un FileListBox qui affiche des fichiers ayant chacun comme nom un mois de l'année. Comment pourrais-je faire pour afficher les mois dans l'ordre?

Alors ?
Avril est un mois plus grand que Janvier mais la chaine de caractères "Avril" est plus petite que la chaîne de caractères "Janvier"...
Aucune des réponses données jusqu'à présent à Jean-Pierre n'est donc bonne !:lol:
Il va donc falloir passer probablement par une listbox pour afficher, mais également par un tremplin quelconque pour trier par N° de mois et afficher la chaine correspondante , non ?
Je vous laisse jouer...:lol:
10/06/2006, 18h29
SfJ5Rpw8

Donc pour résumer tu utilise la fonction Dir .. pour mettre à jour un listBox.. , en ayant pris soint de rajouter une 1° colonne (cachée) as ton list box dans laquelle tu place le numéro de mois ( en fonction du nom de fichier, en utilisant les fonctions Mid,Month. pour trouver ce numéro .) et en deuxiéme colonne le nom du fichier ... .. ensuite reste à trier le listbox ( voir sort..) en fonction de la premiére colonne ...

;)
10/06/2006, 19h45
jmfmarques

Je rappelle que les "colonnes" d'une listbox ne sont que des colonnes d'affichage, pas des colonnes de séparation des articles.;)

tiens avec une listBox .. Multicolonnes...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub Form_Load()
Dim stFic As String
Dim stMois As String
Dim iMois As Integer
Dim i As Integer
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = ";0" ' Pour masquer la 2° colonne
 
stFic = Dir("c:\tmp\mois\")
 
While stFic <> ""
  'REcupere numero de mois.. à adapter
  ' suivant format nom de fichier
  ' ici  xxx-Tot.txt , avec xxx = mois
  'recuper les carcatéres à gauche du 1° -
  stMois = Left(stFic, InStr(1, stFic, "-") - 1)
  iMois = Month("01 " & stMois & " 01")
  Debug.Print stFic & " >>  " & stMois & " num : " & iMois
 
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.List(i, 1) > iMois Then
       Exit For
    End If
  Next
  Debug.Print "placer à l'index : " & i
  ListBox1.AddItem stFic, i
  ListBox1.Column(1, i) = iMois
   stFic = Dir
Wend
End Sub

par contre il faut utilse le ListBox de "Microsoft form 2.0" pour le "multicolonnes.." ;)

11/06/2006, 00h19
jmfmarques

Il est sous VB, Bbil...;)
Marche pas ...
En tout cas pas sous VB5 (je viens d'essayer)...
11/06/2006, 00h21
SfJ5Rpw8

Citation:

Envoyé par jmfmarques

Il est sous VB, Bbil...;)
Marche pas ...

si-si ... sous VB6.. avec les composant microsoft form 2.0 ..(en tous cas chez moi c'est ok ..)
11/06/2006, 01h46
zazaraignée

Salut

Je suis aussi sous VB6 et je ne suis jamais arrivée à intégrer un contrôle Form 2.0 sans provoquer d'erreurs. Faudra que tu m'apprennes comment il faut faire.
11/06/2006, 08h24
SfJ5Rpw8

Citation:

Envoyé par zazaraignée

Salut

Je suis aussi sous VB6 et je ne suis jamais arrivée à intégrer un contrôle Form 2.0 sans provoquer d'erreurs. Faudra que tu m'apprennes comment il faut faire.

désolé.. cela est peu être du as un probléme de configuration ? moi j'ai utilser le contrôle listbox des "Microsoft Form 2.0" sans rien faire de particulier...