Certaines données en gras dans une liste

Commenter

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

S'inscrire maintenant

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.

Du même auteur (ZTPdiffusion)