icones dans listviewRésolu

Question

bonsoir &#224; tous
j'ai un petit soucis pour mettre une icones devant mes items (listview),
voila le code que j'ai,j'ai bien l'icone dans la barre &#224; cot&#233; du "titre" mais je n'arrive pas &#224; afficher l'icone devant les items.

Sub iniliste(Index As Integer)
'Mise &#224; 0 de la liste
    List.ListItems.Clear
    List.ColumnHeaders.Clear


'Mise en place des en t&#234;tes
If Index = 0 Then
       List.SmallIcons = ImageList1.object
       List.ColumnHeaderIcons = ImageList1.object
       List.ColumnHeaders.Add , , "Titre", 5100, , "dvd"
       List.ColumnHeaders.Add , , "", 0


    liste = 0
End If
End Sub
merci
@ plus
petchy

Gobillot · Accepted Answer

faut la mettre l'icone



List.SmallIcons = ImageList1 

 List.ListItems.Add , , Rs("nom_film"),, "dvd"


Daniel

Neo.balastik · Answer

Et o&#249; est ton code qui remplit le listview d'items ?

Guy

cs_MasterHack · Answer

salut l'erreur ce situe ds cette ligne : List.ColumnHeaders.Add , , "Titre", 5100, , "dvd" pour cooriger List.ColumnHeaders.Add , , "Titre", 5100, , 1 1 et le numero d'indexation des image ds la list des image,et pas du texte.

Life is short...Learn more Copy Rights <> Rights to Copy

cs_petchy · Answer

merci pour vos r&#233;ponses
Guy voila le code qui rempli ma listview
MasterHack en fait sur cette ligne le code ait bon car j'ai l'icone qui s'affiche sur la barre de ma listview

Sub lance()
    Dim NbOcc As Integer
    Dim I As Integer
    Dim SqlReq As String
    
    Set Rs = New ADODB.Recordset


    'd&#233;sol&#233;, apr&#232;s tu modifies comme tu veux, mais je fais toujours mes requ&#234;tes de cette mani&#232;re
    SqlReq = "SELECT Count(Film.type_film) As CompteFilmOfType " & _
             "FROM Film " & _
             "WHERE Film.type_film = '" & genre.Text & "'"
       
    Rs.Open SqlReq, db, adOpenDynamic, adLockOptimistic
    NbOcc = Rs("CompteFilmOfType")
    Rs.Close
    List.ListItems.Clear
        If NbOcc 0 Then Set Rs Nothing: Exit Sub 'fin si vide
    
    SqlReq = "SELECT Film.* " & _
             "FROM Film " & _
             "WHERE Film.type_film = '" & genre.Text & "'"
             
    Rs.Open SqlReq, db, adOpenDynamic, adLockOptimistic
    For I = 1 To NbOcc
       List.ListItems.Add , , Rs("nom_film")


        Rs.MoveNext
    Next I
    
    Rs.Close
    Set Rs = Nothing
    List.SetFocus
End Sub
merci
petchy

cs_petchy · Answer

salut Daniel
un grand merci
@ plus
petchy

Icones dans listview

5 réponses

Discussions similaires