Bonjour à tous,

j'utilise une combo box pour afficher tous les fichiers (images) présents dans un dossier sélectionné par l'utilisateur. J'affiche l'image sélectionné dans une PictureBox. Jusque là tout va bien.

J'aimerais ajouter un trackbar me permettant de me balader sur le dossier et donc de parcourir les images comme bon me semble. Et c'est là que ça bloque. J'arrive à récupérer l'index des fichiers et j'affiche tout ça dans un label mais impossible de faire correspondre un numéro ou un index au fichier avec le track bar...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
32
33
34
 
Public Class Test
    Dim imageCollection As New SortedList
    Dim index As Integer
 
'cmbPaths est la combobox
Private Sub cmbPaths_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbpaths.SelectedIndexChanged
        Dim i As Integer
 
        index = imageCollection.IndexOfKey(cmbpaths.SelectedItem)
        If Not index = -1 Then
            PictureBox1.Image = Image.FromFile(imageCollection.Item(cmbpaths.SelectedItem))
            'PictureBox1.AutoScrollPosition = New Point(0, 0)
            lblWidth.Text = "Width: " & PictureBox1.Image.Width.ToString
            lblHeight.Text = "Height: " & PictureBox1.Image.Height.ToString
 
            'status bar
            statusPanel.Text = "Width: " & PictureBox1.Image.Width.ToString & " Height: " & PictureBox1.Image.Height.ToString
 
            'le trackbar suit les images
            TrackBar3.Value = index + 1
            Label1.Text = TrackBar3.Value
            i = TrackBar3.Value
        End If
End Sub
 
Private Sub TrackBar3_Valuechanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.ValueChanged
        'PictureBox1.Image = Image.FromFile(imageCollection.Item(cmbpaths.SelectedItem))
        index = imageCollection.IndexOfKey(cmbpaths.SelectedItem)
        If Not index = -1 Then
            Label1.Text = TrackBar3.Value
        End If
    End Sub
End Class