Certaines données en gras dans une liste

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 956 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

Commenter la réponse de Cousin Hub

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.