1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = listView1.SelectedIndices(0)
Dim lv As New ListViewItem
lv = listView1.Items(i)
'recupere instance du ImageList virtuel correspondant
Dim virualImgList As ImageList = lv.ImageList
Dim tonIndex As Integer = 3
'test de validite de l'index
If virualImgList.Images.Count <> 0 And tonIndex <= virualImgList.Images.Count - 1 Then
lv.ImageIndex = tonIndex
End If
End Sub |
Partager