Bonjour,
j'ai un problème. Je souhaiterais ajouter une ligne dans une listbox (déjà remplie). J'arrive à ajouter une ligne à la fin de la liste (position par défaut je présume) mais je voudrais l'insérer à une ligne donnée.
Je m'explique : ma listbox est formée de 4 colonnes correspondant aux coordonnées X,Y,Z et t (temps) de plusieurs points. J'ajoute alors une ligne en précisant ces 4 paramètres. Mais je n'arrive pas à la faire s'insérer où je veux : je veux qu'elle s'insère en fonction de la valeur de t.
Par exemple si mon nouveau point a t=38500 je voudrais qu'il s'insère à la ligne suivant t=38499 et précédent t=38505 (par exemple).
Pour l'instant j'ai écris ce qui suit mais je suis perdu, j'arrive pas à avancer :
Code :
- t = Val(Txtb_t.Text)
- Dim i, j As Integer
- j = Liste.Lstb_pts.ListCount
- For i = 1 To j
- ??????
- Liste.Lstb_pts.AddItem (Val(Txtb_x.Text))
- Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 1) = Val(Txtb_y.Text)
- Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 2) = Val(Txtb_z.Text)
- Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 3) = Val(Txtb_t.Text)
- Next
|
J'ai aussi essayer avec Do until mais j'arrive toujours pas.
Merci pour votre précieuse aide qui me permettra d'avancer !