Bonsoir à tous le monde.
Je sèche sur un problème.... J'arrive pas a comprendre.

J'ai une listview qui est programmer comme suit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Public Sub Creer_listView_Version()
        'Creer le listview des Version de voiture pour le choix de voiture
 
        Choix_Voiture.ListVersion.View = View.Details
        Choix_Voiture.ListVersion.FullRowSelect = True
 
        Choix_Voiture.ListVersion.Columns.Add("Version", 160)
 
    End Sub

J'ai ajouté un morceau de code dans la listview qui s'éffectue uniquement lorsque je clique dessus donc à l’événement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Sub ListVersion_MouseClick(sender As Object, e As MouseEventArgs) Handles ListVersion.MouseClick
Ensuite j'ai 2 boutons... un bouton NEXT et un bouton BEFORE.

Voici le bout de code du bouton BEFORE.
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
Dim version As Integer          'Version Actuellement selectionné
        Dim Nb_version As Integer       'Nombre de version sur le listview
        Dim I
 
        version = Me.ListVersion.SelectedItems.Item(0).Index
 
        If version <> "0" Then
           version = version - 1
 
            For I = 0 To Me.ListVersion.Items.Count - 1
                Me.ListVersion.Items(I).SubItems(0).ForeColor = Color.Black
            Next I
 
            Me.ListVersion.Items(version).Selected = True
            Me.ListVersion.Items(version).SubItems(0).ForeColor = Color.Fuchsia
 
            MsgBox(Me.ListVersion.SelectedItems.Item(0).Index)
       end if
Avec ce bout de code,, lorsque j'ai deux Item dans ma Listview et que je clique sur le bouton "BEFORE",,, il me sélectionne bien l'item précédent.

Voici le code sur le bouton "NEXT"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Version As Integer
        Dim I
 
        Version = Me.ListVersion.SelectedItems.Item(0).Index
        Version = Version + 1
 
        For i = 0 To Me.ListVersion.Items.Count - 1
            Me.ListVersion.Items(i).SubItems(0).ForeColor = Color.Black
        Next i
 
        Me.ListVersion.Items(Version).Selected = True
        Me.ListVersion.Items(Version).SubItems(0).ForeColor = Color.IndianRed
 
        MsgBox(Me.ListVersion.SelectedItems.Item(0).Index)
Avec ce bout de code,, lorsque j'ai le premier item selectionné (item 0) il me colore bien le deuxième item mais Msgbox me renvoit toujours "0". Le code ne sélectionne pas l'item suivant dans le ListView.

Le code est totalement identique entre BEFORE et NEXT .... Mais sur l'un sa marche, et pas sur l'autre....