Option Strict On Public Class Form1 'déclaration du dictionnaire Dim Dico As New Dictionary(Of String, MaClasse) Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 'ajout des éléments au dico Dico.Add("clip1", New MaClasse() With {.cutin 2.7, .cutout 63.4, .image = Image.FromFile("test1.jpg")}) Dico.Add("clip2", New MaClasse() With {.cutin 87.7, .cutout 105.4, .image = Image.FromFile("test2.jpg")}) Dico.Add("clip3", New MaClasse() With {.cutin 0.8, .cutout 0.6, .image = Image.FromFile("test3.jpg")}) 'classement des clips par valeur de cutin (du plus petit au plus grand) 'on peut classer autrement en changeant la requete Dim requete = From valeur As MaClasse In Dico.Values Order By valeur.cutin Ascending 'affichage du résultat For Each element As MaClasse In requete Debug.Print(element.cutin.ToString) 'ajout dans ta listview ici '... Next End Sub 'classe regroupant les données à classer Public Class MaClasse Public cutin As Double Public cutout As Double Public image As Image End Class End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class MaClasse Inherits PictureBox Public cutin As Double Public cutout As Double Dim controleparent As PictureBox Sub New(image As Image, position As Point, controleparent As PictureBox) Me.Image = Image Me.Location = position controleparent = controleparent controleparent.Controls.Add(Me) End Sub Sub retire() controleparent.Controls.Remove(Me) End Sub End Class
Dico("clip2").retire Dico.remove("clip2")
controleparent.Controls.Add(Me)
J'ignore si c'est mieux ou pas ce que j'ai fait je suis pas assez calé pour en juger.
Le type 'System.Windows.Forms.PictureBox' dans l'assembly 'System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' n'est pas marqué comme sérialisable.