VB 2005


Je sélectionne une ligne dans un listview et j'essaie de récupérer l'index de la 1ère colonne. C'est a dire que j'affiche la listview à l'aide du bouton6 et ensuite je sélectionne la listview. La 1ere sélection se passe normalement. Mais lors de la 2ème sélection j'ai un message d'erreur.

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

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
    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim index As Integer
        index = Me.ListView1.SelectedIndices(0)
        MessageBox.Show(index)
        index = 0
        Me.Cursor = Cursors.Default
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim Value1 As String = "coucou"
        For i As Short = 0 To 5
            Dim item1 As New ListViewItem(i + 1)
            item1.SubItems.Add(Value1)
            Me.ListView1.Items.AddRange(New ListViewItem() {item1})
        Next
    End Sub

Comment résoudre ce problème ?

Merci de vos réponses