Discussion :

[ROCHER1]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim L As Integer
        For L = 0 To ListView1.Items.Count - 1
            If ListView1.Items(L).Selected = True Then
                TextBox1.Text = ListView1.Items(L).Text
            End If
        Next L
 
    End Sub

Ce code fonctionne

Comment l'ecrire plus simplement ?
Merci

[sevyc64]

Peut-être par

Code :

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

1
2
3
4
5
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
 
TextBox1.Text = ListView1.SelectedValue
 
End Sub