1

J'utilise dans mon programme des listviews avec plusieurs columns, le problème vient quand j'efface le contenu de la liste avec list.listitems.clear ou avec remove, je ne peux plus rien écrire dans les columns avec les fonction list.listitems.item(n).subitem(n).

J'EN A MARRE, A L'AIDE.
avatar
la Nature nous montre seulement la queue du lion. Mais je suis certain que le lion a qui elle appartient pense qu'il ne peut pas se révéler en une fois en raison de son immense taille.

- Fondateur de Ti-Gen -: http://www.tigen.org

- Membre du Groupe Orage Studio -: http://oragestudio.free.fr/

- Mon site perso -: http://tisofts.free.fr

Projets TI68K en cours:
GFA-Basic = http://www.tigen.org/gfabasic
Arkanoid.
PolySnd 3.0.

2

si tu donne pas plus de détail ou un bout de source neutral

3

Bas je préfére pas donner la source, c'est énorme et je pense pas que tu prendera le temps de la lire et de la comprendre.

J'ai une liste qui ce nomme list2, elle contient 6 headers.

Lors d'ouverture de certains fichiers, je complète cette liste du genre:
'Parcours fichiers
For i = 0 To Combo1.ListCount - 1
  Open App.Path & "\bin\track" & Combo1.List(i) & ".txt" For Input As #2
    
  Do While Not EOF(2)
    Line Input #2, text
          
    'Si tempo
    If (InStr(text, "T") <> 0) Then
      list2.ListItems.Add = "T"
      l = list2.ListItems.Count
      
      'Début
      list2.ListItems.Item(l).SubItems(1) = Val(ExtractData(InStr(text, "P") + 1, text))
      
      'bpm
      list2.ListItems.Item(l).SubItems(4) = Val(ExtractData(InStr(text, "B") + 1, text))
    Else
      'Si note
      list2.ListItems.Add = "N"
      
      l = list2.ListItems.Count
          
      'Début
      list2.ListItems.Item(l).SubItems(1) = Val(ExtractData(InStr(text, "P") + 1, text))
         
      'Durée
      list2.ListItems.Item(l).SubItems(2) = Val(ExtractData(InStr(text, "U") + 1, text))
      
      'Note
      list2.ListItems.Item(l).SubItems(3) = ExtractData(InStr(text, "A") + 1, text)
      
      'Octave
      list2.ListItems.Item(l).SubItems(4) = Val(ExtractData(InStr(text, "o") + 1, text))
      
      'Fin
      list2.ListItems.Item(l).SubItems(5) = Val(list2.ListItems.Item(l).SubItems(1)) + Val(list2.ListItems.Item(l).SubItems(2))
    End If
  Loop
  Close #2
  
DoEvents
ProgressBar.Value = i
Next i
Close


La fonction ExtractData recherche juste des données, cette fonction marche correctement.

Bref, lorsque je démarre le programme, cette liste ce remplie correctement mais dès lors que je l'efface avec list2.listitems.clear, il met impossible de compléter les headers.
avatar
la Nature nous montre seulement la queue du lion. Mais je suis certain que le lion a qui elle appartient pense qu'il ne peut pas se révéler en une fois en raison de son immense taille.

- Fondateur de Ti-Gen -: http://www.tigen.org

- Membre du Groupe Orage Studio -: http://oragestudio.free.fr/

- Mon site perso -: http://tisofts.free.fr

Projets TI68K en cours:
GFA-Basic = http://www.tigen.org/gfabasic
Arkanoid.
PolySnd 3.0.

4

c une listbox normal ?

5

Non, un contrôle de windows, c'est un contrôle listview.

Je vient de faire des essaie et ça vient de ma fonction que je viens de poster, je cherche et je trouve pas. cry
avatar
la Nature nous montre seulement la queue du lion. Mais je suis certain que le lion a qui elle appartient pense qu'il ne peut pas se révéler en une fois en raison de son immense taille.

- Fondateur de Ti-Gen -: http://www.tigen.org

- Membre du Groupe Orage Studio -: http://oragestudio.free.fr/

- Mon site perso -: http://tisofts.free.fr

Projets TI68K en cours:
GFA-Basic = http://www.tigen.org/gfabasic
Arkanoid.
PolySnd 3.0.

6

ué pcque g fait un truc tout bete avec juste des add, remove ou clear et ca marche nickel

7

Ouai moi aussi. smile
avatar
la Nature nous montre seulement la queue du lion. Mais je suis certain que le lion a qui elle appartient pense qu'il ne peut pas se révéler en une fois en raison de son immense taille.

- Fondateur de Ti-Gen -: http://www.tigen.org

- Membre du Groupe Orage Studio -: http://oragestudio.free.fr/

- Mon site perso -: http://tisofts.free.fr

Projets TI68K en cours:
GFA-Basic = http://www.tigen.org/gfabasic
Arkanoid.
PolySnd 3.0.

8

J'ai trouvé le problème, Ca venait d'une méthode de trie d'une DLL de WindowsUpdate.
J'avais oublié de lui faire trier une liste vide. triso
avatar
la Nature nous montre seulement la queue du lion. Mais je suis certain que le lion a qui elle appartient pense qu'il ne peut pas se révéler en une fois en raison de son immense taille.

- Fondateur de Ti-Gen -: http://www.tigen.org

- Membre du Groupe Orage Studio -: http://oragestudio.free.fr/

- Mon site perso -: http://tisofts.free.fr

Projets TI68K en cours:
GFA-Basic = http://www.tigen.org/gfabasic
Arkanoid.
PolySnd 3.0.

9

c koi la difference entre listbox et listview?
Trampoline Powwwweeeeeerrrrrr!
Fier d'être Lyonnais

10

listbox tu ne peux mettre que du texte.

listview tu peux mettre des icones en plus, un peu comme dans l'explorateur de fichier windows

11

Oui c'est bon je maîtrise maintnenant
J'en avait tellement besoin que je l'ai mise partout. Avant j'utilisait des milliards de listbox
Les listview c'est mieux pace que ça utilise des colonnes
Trampoline Powwwweeeeeerrrrrr!
Fier d'être Lyonnais