Problème index dans Listview

Bonjour,

Voila mon code qui pose problème :

List_ssclefs est une listview, qui affiche les clés présentes dans "software\microsoft\windows\currentversion\uninstall\"
List_valeurs est une listview qui affiche les valeurs de la clé sélectionnée dans list_ssclefs

Mon problème est que ce code marche à la première sélection, mais quand je change l’item sélectionné, il y’a une erreur à cette ligne :

Code:

---

cle = List_ssclefs.SelectedItems(0)

---

Citation:

---

InvalidArgument=La valeur '0' n'est pas valide pour 'index'. Nom du paramètre : index

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub List_ssclefs_ItemSelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles List_ssclefs.ItemSelectionChanged   Dim tab_val() As String Dim regkey As RegistryKey Dim cle As New ListViewItem   cle = List_ssclefs.SelectedItems(0) regkey = Registry.LocalMachine.OpenSubKey("software\microsoft\windows\currentversion\uninstall\" & cle.Text) 'Ouvre la sous-clef tab_val = regkey.GetValueNames() For i As Integer = 0 To tab_val.Length - 1 list_valeurs.Items.Add(New ListViewItem(tab_val(i).ToString)) Next   End Sub

---

Merci d'avance

En fait, quand tu changes l'élément sélectionné, l'évènement ItemSelectionChanged se produit 2 fois :
- une première fois pour la déselection de l'élément actuel
- une deuxième fois pour la sélection du nouvel élément

Donc, la première fois que l'évènement se produit, SelectedItems ne contient aucun élément, et quand tu essaies d'accéder au 1er (index 0), tu as une erreur car il n'y a pas de 1er élément. Il faut que tu vérifies d'abord s'il y a un élément sélectionné :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub List_ssclefs_ItemSelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles List_ssclefs.ItemSelectionChanged If List_ssclefs.SelectedItems.Count > 0 Then Dim tab_val() As String Dim regkey As RegistryKey Dim cle As New ListViewItem   cle = List_ssclefs.SelectedItems(0) regkey = Registry.LocalMachine.OpenSubKey("software\microsoft\windows\currentversion\uninstall\" & cle.Text) 'Ouvre la sous-clef tab_val = regkey.GetValueNames() For i As Integer = 0 To tab_val.Length - 1 list_valeurs.Items.Add(New ListViewItem(tab_val(i).ToString)) Next End If End Sub

---

Ok effectivement ça marche très bien maintenant
Merci beaucoup (: