Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 039 fois - Téléchargée 47 fois
Option Explicit Private Sub Form_Load() Dim Litem As ListItem ' Passer le ListView en mode liste ListView1.View = lvwList ' Mettre les noms dans le ListView Set Litem = ListView1.ListItems.Add(, , "Adam") Set Litem = ListView1.ListItems.Add(, , "Bernard") Set Litem = ListView1.ListItems.Add(, , "Frédéric") Set Litem = ListView1.ListItems.Add(, , "Fabrice") Set Litem = ListView1.ListItems.Add(, , "Christophe") Set Litem = ListView1.ListItems.Add(, , "David") Set Litem = ListView1.ListItems.Add(, , "Juliette") Set Litem = ListView1.ListItems.Add(, , "Emilie") ' Mettre en gras la deuxième et la sixième donnée par exemple ListView1.ListItems.Item(2).Bold = True ListView1.ListItems.Item(6).Bold = True End Sub
ListView1.ListItems.Item(6).forColor=Vbred
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.