Icones dans listview [Résolu]

cs_petchy 710 Messages postés jeudi 20 février 2003Date d'inscription 19 mai 2015 Dernière intervention - 13 août 2005 à 17:05 - Dernière réponse : cs_petchy 710 Messages postés jeudi 20 février 2003Date d'inscription 19 mai 2015 Dernière intervention
- 14 août 2005 à 04:25
bonsoir à 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 à coté du "titre" mais je n'arrive pas à afficher l'icone devant les items.

Sub iniliste(Index As Integer)
'Mise à 0 de la liste
List.ListItems.Clear
List.ColumnHeaders.Clear


'Mise en place des en tê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
Afficher la suite 

5 réponses

Meilleure réponse
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 13 août 2005 à 20:53
3
Merci
faut la mettre l'icone



List.SmallIcons = ImageList1

List.ListItems.Add , , Rs("nom_film"),, "dvd"


Daniel

Merci Gobillot 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 69 internautes ce mois-ci

Neo.balastik 797 Messages postés jeudi 17 mai 2001Date d'inscription 5 mai 2009 Dernière intervention - 13 août 2005 à 18:25
0
Merci
Et où est ton code qui remplit le listview d'items ?

Guy
cs_MasterHack 586 Messages postés jeudi 18 septembre 2003Date d'inscription 13 février 2008 Dernière intervention - 13 août 2005 à 18:27
0
Merci
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.


<HR>

Life is short...Learn more
Copy Rights <> Rights to Copy
cs_petchy 710 Messages postés jeudi 20 février 2003Date d'inscription 19 mai 2015 Dernière intervention - 13 août 2005 à 18:48
0
Merci
merci pour vos ré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ésolé, après tu modifies comme tu veux, mais je fais toujours mes requêtes de cette maniè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 710 Messages postés jeudi 20 février 2003Date d'inscription 19 mai 2015 Dernière intervention - 14 août 2005 à 04:25
0
Merci
salut Daniel
un grand merci
@ plus
petchy

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.