Discussion :

[bernard_haute_savoie]

Bonjour,
J'ai un soucis pour la lecture d'une ListView ayant plusieurs colonnes.
Quand je fais une première sélection dans la ListView, je récupère bien la valeur du subitem. Par contre, si je clique une seconde fois dans la ListView, j'ai le message suivant :
InvalidArgument=La valeur '0' n'est pas valide pour 'index'.
Nom du paramètre : index

Merci d'avance pour votre aide

Bernard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub La2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles La2.SelectedIndexChanged
        Dim Z_test As String
        Z_test = La2.SelectedItems(0).SubItems(2).ToString 
        If Z_test = "Local" Then
            Button_Retirer.Enabled = True
        Else
            Button_Retirer.Enabled = False
        End If
        La2.SelectedItems(0).SubItems(2).ToString
        TextBox_Fax_Destinataire.Text = La2.SelectedItems(0).SubItems(1).Text
    End Sub

[Graffito]

Dans un Listview, il peut théoriquement y avoir entre 0 et n SelectedItems.

Il est possible qu'en cliquant 2 fois sur un item, on le selectionne puis le déselectionne. Une fois déselectionné, SelectedItems[0] gènére une exception.

[bernard_haute_savoie]

J'ai testé en modifiant de cette façàon et çà fonctionne parfaitement :

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
 
    Private Sub La2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles La2.SelectedIndexChanged
        Dim Z_test As String
        If La2.SelectedIndices.Count > 0 Then
            Z_test = La2.SelectedItems(0).SubItems(2).Text()
            If Z_test = "Local" Then
                Button_Retirer.Enabled = True
                Button_Retirer.Visible = True
            Else
                Button_Retirer.Enabled = False
                Button_Retirer.Visible = False
            End If
            TextBox_Fax_Destinataire.Text = La2.SelectedItems(0).SubItems(1).Text
        End If
    End Sub