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 :
Salut jack,
je suis plutôt débutant et je ne saisis pas trop le sens de ta réponse.
Mes points sont déjà triés par t croissant, il faut juste que j'insère mon nouveau point à la bonne place. Merci de votre aide
En fait, étant débutant, je n'arrive pas à écrire le code qui permet de récupérer le numéro de la ligne où mon nouveau point doit s'insérer. Donc si quelqu'un peut m'aider à écrire cette boucle, ce serait sympa.
Merci d'avance
Dans les ListBox, il n'y a pas d'index atitré, les items ont l'index correspondant à leur position, donc, dépendent du tri éventuel.
Comme tu l'auras vu dans l'aide de la méthode .AddItem, tu peux préciser un Index lors de l'insertion, mais cet index n'a plus d'intérêt en cas de tri.
Seuls les ListView permettent d'associer une Key (clé de recherche unique) et un véritable Index.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Merci Jack pour l'intéret que tu porte à ma demande. En fait, la liste de points importée dans la listbox est déjà classée par t croissant, aucun tri ne se fait dans mon programme.
J'avais alors pensé parcourir la liste avec un while en disant tant que t à insérer > aux t de la liste on continue de parcourir la liste et dès que t à insérer devient < aux t de la liste ; on retient la position.
Mais j'arrive pas à traduire ceci en ligne de code, même si je pense que c'est pas trop compliqué.
Pour le point que j'insère, je donne ces valeurs par :
Txtb_x
Txtb_y
Txtb_z
Txtb_t
En fait j'ai une liste de coordonnées de points classés dans l'ordre croissant selon le temps (en secondes). Il y a donc 4 colonnes dans ma liste : X, Y, Z, temps. J'aimerais alors pouvoir insérer un nouveau point au bon endroit dans la liste en fonction de son temps. Donc il faut que je réussisse à écrire une boucle qui récupère le numéro de la ligne où le point devra s'insérer.
Merci de votre aide.
nan mais que veux tu faire avec cette listbox aprés ?
Car pour moi c'est une visu, tes points doivent être dans une classe ou une listof(double) par exemple et c'est là qu'il faut ajouter ta nouvelle ligne de points, aprés la listview sera rechargé ou mise à jour avec le trie qui va bien.
Qu'en penses tu ?
++
Bonjour,
Je suis d'accord Adn56. Mais étant débutant, je commence par ce qu'il me semble le plus simple pour me familiariser avec le code. Donc pour l'instant, j'arrive à exporter ma listbox mais après j'essaierai de procéder à peu près comme tu me le dit ; en gérant une base de données.
Option Strict On
Imports System
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections.Generic
<Serializable()> Public Class cls_table
Public lignes As New List(Of cls_ligne)
'----------------------------------------------------------------------
' Sub qui sérialise et trie la class Class puis l'enregistre en binaire dans le fichier passé en paramétre
'----------------------------------------------------------------------
Public Sub save(ByVal fichier As String)
If fichier = String.Empty Then Exit Sub 'quit la sub si aucun fichier ouvert avant la fermeture.
Dim myFileStream As Stream = Nothing
Try
myFileStream = File.Create(fichier) ' création d'un nouveau fichier à chaque sauvegarde
Dim serializer As New BinaryFormatter
serializer.Serialize(myFileStream, Me)
myFileStream.Close()
Catch e As DirectoryNotFoundException
Affiche_erreur("Répertoire introuvable, vérifier la présence du disque amovible si vous en utilisez un", e.Message)
Catch e As FileNotFoundException ' n'arrive jamais car file create à chaque appel de SAve
Affiche_erreur("Fichier introuvable, vérifier la présence du disque amovible si vous en utilisez un", e.Message)
'Catch e As FileLoadException
Catch e As Exception
Affiche_erreur("erreur d'accés au fichier, Ex : Lecture seul", e.Message)
Finally
If Not myFileStream Is Nothing Then myFileStream.Close()
End Try
End Sub
'
'----------------------------------------------------------------------
' fonction qui lit le fichier sérialisé de la class
'----------------------------------------------------------------------
Public Function load(ByVal fichier As String) As Boolean
Dim myFileStream As Stream = Nothing
Try
myFileStream = File.OpenRead(fichier)
Dim deserializer As New BinaryFormatter()
Dim lecture As New cls_table
lecture = CType(deserializer.Deserialize(myFileStream), cls_table)
myFileStream.Close()
' attribut la liste des lignes à me
Me.lignes = lecture.lignes
Return True
Catch e As Exception
Affiche_erreur("erreur d'accés au fichier", e.Message)
Return False
Finally
If Not myFileStream Is Nothing Then myFileStream.Close()
End Try
End Function
'
'----------------------------------------------------------------------
'affiche les erreurs de fichier dans les sub Save et Load
'----------------------------------------------------------------------
Private Sub Affiche_erreur(ByVal HelpMsg As String, ByVal ErMsg As String)
MessageBox.Show(HelpMsg _
& Environment.NewLine & ErMsg, "Erreur critique !" _
, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
End Class
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections.Generic
<Serializable()> Public Class cls_ligne
Public x, y, z As Double
Public id As String ' identifiant unique de la ligne (si besoin de rechercher une ligne)
Public t As DateTime ' déclare la date pour l'affichage voir ici http://msdn.microsoft.com/fr-fr/library/zdtaw1bw(VS.95).aspx
'----------------------------------------------------------------------
' Création d'une nouvelle ligne de coordonnées, soit vierge, soit avec valeurs
'----------------------------------------------------------------------
Public Sub New()
'créé un numéro unique pour chaque ligne (si besoin)
id = System.Guid.NewGuid.ToString
End Sub
Public Sub New(ByVal _x As Double, _
ByVal _y As Double, _
ByVal _z As Double, _
ByVal _t As Date)
'créé un numéro unique pour chaque ligne (si besoin)
id = System.Guid.NewGuid.ToString
x = _x
y = _y
z = _z
t = _t
End Sub
'
'----------------------------------------------------------------------
' renvoie une ligne compléte formatée pour une listview
'----------------------------------------------------------------------
Public Function ToListView() As ListViewItem
'déclare et intancie une nouvelle ligne de listview
Dim listItem As ListViewItem = New ListViewItem
With listItem
'permet d'avoir plusieurs couleurs sur une même ligne de listview
.UseItemStyleForSubItems = False
'index de ligne (GUID)
.Text = Me.id
'formate l'affichage de la date
.SubItems.Add(Me.x.ToString)
.SubItems.Add(Me.y.ToString)
.SubItems.Add(Me.z.ToString)
.SubItems.Add(Me.t.ToString("mm:ss:ff")) '(pour le choix d'affichage voir ici : http://msdn.microsoft.com/fr-fr/library/zdtaw1bw(VS.95).aspx)
End With
Return listItem
End Function
'
'----------------------------------------------------------------------
' renvoie une ligne compléte pour un fichier CSV
'----------------------------------------------------------------------
Public Function ToCsv() As String
'"date;x;y;z"
'un stringBuilder consomme bien moins de ressource lors d'ajout de texte comme ICI :
Dim MyStringBuilder As New Text.StringBuilder(Me.t.ToString("dd/MM/yy") & ";")
MyStringBuilder.Append(Me.x & ";")
MyStringBuilder.Append(Me.y & ";")
MyStringBuilder.Append(Me.z & ";")
MyStringBuilder.Append(Environment.NewLine)
ToCsv = MyStringBuilder.ToString
End Function
End Class
tiens essaye de comprendre ce code il te rendra bien service, PCPT m'a aidé là dessus, à mon tour de rendre ce service ;)
