OVH Cloud OVH Cloud

ListView et texte en couleur

2 réponses
Avatar
RENAUD Eric
Bonjour,

Dans une ListView qui se rempli grace à des évenements issus de l'objet
FileSystemWatcher.

Certaines fois l'évenement est la suppression de fichiers.
J'écris donc les informations comme suit :

Dim lvwi As ListViewItem
Dim MyType As Integer

lvwi = NewListViewItem(e.Name)
lvwi.SubItems.Add (Format(Now(), "d"))
lvwi.SubItems.Add (Format(Now(), "Long Time"))
MyType = e.ChangeType
Select Case MyType
Case 1
lvwi.SubItems.Add ("Création")
Case 2
lvwi.SubItems.Add ("Suppression")
Case 4
lvwi.SubItems.Add ("Modification")
End Select
Me.ListView1.Items.Add (lvwi)


Pour le cas 2 (Case 2), je voudrais écrire Suppression en ROUGE
J'ai essayé le FORECOLOR mais je ne trouve pas la syntaxe appropriée

D'avance merci

2 réponses

Avatar
Thierry HUGUET [MS]
Avec VS 2005, on peut créer un élément de type ListViewItem,
puis définir la couleur forecolor.

Exemple:
Dim myItem3 As New ListViewItem
myItem3.Text = "suppresion"
myItem3.BackColor = Color.Empty
myItem3.ForeColor = Color.Red
ListView1.Items.Add(myItem3)

Cet exemple avec le mot "suppression" en rouge.

Thierry HUGUET
Microsoft



"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
OVZs168$
Bonjour,

Dans une ListView qui se rempli grace à des évenements issus de l'objet
FileSystemWatcher.

Certaines fois l'évenement est la suppression de fichiers.
J'écris donc les informations comme suit :

Dim lvwi As ListViewItem
Dim MyType As Integer

lvwi = NewListViewItem(e.Name)
lvwi.SubItems.Add (Format(Now(), "d"))
lvwi.SubItems.Add (Format(Now(), "Long Time"))
MyType = e.ChangeType
Select Case MyType
Case 1
lvwi.SubItems.Add ("Création")
Case 2
lvwi.SubItems.Add ("Suppression")
Case 4
lvwi.SubItems.Add ("Modification")
End Select
Me.ListView1.Items.Add (lvwi)


Pour le cas 2 (Case 2), je voudrais écrire Suppression en ROUGE
J'ai essayé le FORECOLOR mais je ne trouve pas la syntaxe appropriée

D'avance merci





Avatar
RAVAILLE James
Bonjour,

J'ai effectué les tests suivants :

Pour un item d'un ListView (comprenant tous les subitems) :
ListView1.Items(0).ForeColor = System.Drawing.Color.Red

Pour un subitem d'un item d'un ListView :
ListView1.Items(0).SubItems(0).ForeColor = System.Drawing.Color.Red


Attention :
Vois la propriété UseItemStyleForSubItems des items, qu'il est peut-être
nécessaire de valoriser à False, pour ne pas que les subitems hérite du style
des
items !


Cordialement,

--
James RAVAILLE.
MCAD .NET et MCT .NET
http://www.certifdotnet.com


"RENAUD Eric" a écrit :

Bonjour,

Dans une ListView qui se rempli grace à des évenements issus de l'objet
FileSystemWatcher.

Certaines fois l'évenement est la suppression de fichiers.
J'écris donc les informations comme suit :

Dim lvwi As ListViewItem
Dim MyType As Integer

lvwi = NewListViewItem(e.Name)
lvwi.SubItems.Add (Format(Now(), "d"))
lvwi.SubItems.Add (Format(Now(), "Long Time"))
MyType = e.ChangeType
Select Case MyType
Case 1
lvwi.SubItems.Add ("Création")
Case 2
lvwi.SubItems.Add ("Suppression")
Case 4
lvwi.SubItems.Add ("Modification")
End Select
Me.ListView1.Items.Add (lvwi)


Pour le cas 2 (Case 2), je voudrais écrire Suppression en ROUGE
J'ai essayé le FORECOLOR mais je ne trouve pas la syntaxe appropriée

D'avance merci