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
Partager