Salut a tous, Forum salut

J'ai une Listview(1) de 3 colonnes dans mon USF(1)

La liste sur les 3 colonnes apparait bien avec les CheckBoxs affichés a gauche et elles sont toutes vides, ca c'est OK.

(1) Je clic dans une checkBox pour sélectionner une ligne, celle ci se coche bien, mais la ligne n'est pas sélectionnée.

(2) CheckBox vide, je clic sur une ligne, la checkBox se coche bien et ma vidéo démarre.

53) Ma vidéo viens de se terminer, je clic sur une autre CheckBox et même problème voir cas (1), MAIS en plus le ou les
autres précédentes CheckBoxs reste cochés.

Le but: pour moi étant de cliquer dans une CheckBox que celle ci se coche et me sélectionne la ligne venant de passer en bleu
et qui démarre a ce moment ma nouvelle sélection.

Il ne m'ai pas utile de faire de la multi sélection MAIS uniquement une sélection par la case a cocher et une ligne a la fois et que
cette ligne reste sélectionner jusqu'à la prochaine sélection.

Merci de votre aide et bonne fin hélas de cette journée de noël.

Cordialement Ray

Le code ci dessous a sans doute besoin d'être corriger et modifier.

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
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
          Dim Chemin As String, Film As String, FilmSelection As String: Dim ListItem As ListItem
 
 With UserForm1.ListView1
            ListView1.ListItems.Item(ListView1.SelectedItem.Index).Checked = _
      Not ListView1.ListItems.Item(ListView1.SelectedItem.Index).Checked                               'Clic checkbox cochée
 
              'Set ListItem = ListView1.SelectedItem
           FilmSelection = UserForm1.ListView1.ListItems.Item(ListView1.SelectedItem.Index)
 
           Chemin = "H:\": Film = ListView1.ListItems(ListView1.SelectedItem.Index) & ".avi"
           Label91 = ListView1.ListItems(ListView1.SelectedItem.Index)                                   'Affiche le titre complet du film a visionner
   End With
 
       Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Chemin & Film, vbMaximizedFocus  'Lance et visualise le film
End Sub