Certaines données en gras dans une liste

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 985 fois - Téléchargée 47 fois

Contenu du snippet

Pour mettre en gras une ou plusieurs données dans une liste il est plus simple de passer par un ListView.
Ce code nécessite donc un ListView (ListView1)
qui se trouve dans le composant : MSCOMCTL.OCX

Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaires

Tanaka56
Messages postés
124
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
29 janvier 2009
-
Voilà des bouts de code excellents.
cs_Lalain
Messages postés
1
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
27 juin 2003
-
on peux même changer la couleur du texte :
ListView1.ListItems.Item(6).forColor=Vbred
C tt con, mais il fallait y penser !!
cool mais dommage que ca marche pas dans un listbox normal
Simple mais efficace!

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.