Changement couleur texte cell ListView/GridViewRésolu

Question

Bonjour le Forum, vb.net - wpf - changement couleur de texte dans cellule d'un ListView/GridView Je recherche la méthode pour automatiser la colorisation du texte de cellule d'un GridView en fonction de son contenu : - Vert si contenu = OK; - Rouge si contenu = NOK. Dans la déclaration du xaml, en implicite, j'ai forcé la couleur verte pour le texte de la cellule. xaml: vb: For Each elem In pollers.Where(Function(x) x.Poller = poller) ' NewList contient les hosts du fichier export Dim checkhostexport = newList.Where(Function(x) x.ToString = elem.Host) Select Case checkhostexport.Count Case 1 ' host trouvé dans le fichier export itemsPoller.Add(New Poller() With {.Host = elem.Host, .Exist = "OK", .Contract = elem.Customer}) Case Else ' host non trouvé dans le fichier export itemsPoller.Add(New Poller() With {.Host = elem.Host, .Exist = "NOK", .Contract = elem.Customer}) End Select Next ' Chargement de la ListView With ListViewPoller .ItemsSource = itemsPoller .Items.Refresh() End With Dans ce code, le texte "NOK" s'affiche en couleur verte. Mon souhait, c'est de le mettre en couleur rouge !!! Suite recherches, il est apparemment possible de mettre cette condition dans le "Cell Template" du xaml, mais je n'ai pas trouvé d'exemples/explications. Merci pour votre temps passé à me lire et de vos suggestions. jean-marc

Whismeril · Answer

Bonsoir,
je n'ai pas regardé en détails et encore moins testé, mais dans ces cas là, en général il y a 2 options:

Dans le template de la cellule, utiliser un DataTriger http://www.wpf-tutorial.com/styles/trigger-datatrigger-event-trigger/
Utiliser un converter pour binder directement la couleur depuis ta valeur http://www.wpf-tutorial.com/data-binding/value-conversion-with-ivalueconverter/

cs_JMO · Answer

Bonsoir Whismeril,

Merci de cette réponse aussi rapide.
Je vais lire tes liens proposés et te tiens au courant de mon avancement.

Bonne soirée. 

jean-marc

cs_JMO · Answer

Whismeril, Encore un grand merci pour tes conseils. Pour le lien "http://www.wpf-tutorial.com", je me l'étais déjà mis en favori depuis ma récente initiation au xaml/wpf, mais pas évident d'y trouver sa problématique. J'ai donc effectué les modifs suivantes : Dans la classe "Poller", j'ai déclaré en booléan la variable "Exist": Public Class Poller Public Property Host As String Public Property Exist As Boolean Public Property Contract As String End Class Dans le xaml, j'ai mis: et For Each elem In pollers.Where(Function(x) x.Poller = poller) Dim checkhostexport = newList.Where(Function(x) x.ToString = elem.Host) Select Case checkhostexport.Count Case 1 itemsPoller.Add(New Poller() With {.Host = elem.Host, .Exist = True, .Contract = elem.Customer}) Case Else itemsPoller.Add(New Poller() With {.Host = elem.Host, .Exist = False, .Contract = elem.Customer}) End Select Next et résultat concluant !!! jean-marc

Whismeril · Answer

Parfait,
cependant, je ne pense pas (toujours pas fait de test...) qu'il était nécessaire de changer ta classe

<DataTrigger Binding="{Binding Exist}" Value="OK" devrait marcher aussi.
Evidement, il faut être sûr que OK ne soit pas écrit oK Ok ou ok.


Ton code behind m'interroge

For Each elem In pollers.Where(Function(x) x.Poller = poller)
            Dim checkhostexport = newList.Where(Function(x) x.ToString = elem.Host)

Select Case checkhostexport.Count
                Case 1
                    itemsPoller.Add(New Poller() With {.Host = elem.Host,
                                                       .Exist = True,
                                                       .Contract = elem.Customer})
                Case Else 'Else sous entend que 0, 2, 1000... conditionne pour que Exist soit false, ça ne me parait pas très logique. 0 d'accord, 2 10 ou 1000, dans ce cas Exist est mal nommé
                    itemsPoller.Add(New Poller() With {.Host = elem.Host,
                                                       .Exist = False,
                                                       .Contract = elem.Customer})
            End Select
        Next

En supposant qu'Exist est vrai si il y a au moins 1 x.ToString = elem.Host, tu peux faire un truc comme ça (tapé de tête)
For Each elem In pollers.Where(Function(x) x.Poller = poller)
                    itemsPoller.Add(New Poller() With {.Host = elem.Host,
                                                       .Exist = newList.Any(Function(x) x.ToString = elem.Host),
                                                       .Contract = elem.Customer})
            Next
Ou même un truc comme ça

itemsPoller = pollers.Where(Function(x) x.Poller = poller).Select(Function(elem) New Poller() With {.Host = elem.Host,
                                                       .Exist = newList.Any(Function(x) x.ToString = elem.Host),
                                                       .Contract = elem.Customer}).ToList()

cs_JMO · Answer

Bonjour Whismeril, Explications: Je parcours un référentiel avec tous les hosts supervisés pour y extraire 3 informations: Dim pollers = ( From row In datapollers.AsEnumerable() Select New SheetHosts With { .Customer = row.Field(Of String)("Contrat"), .Host = row.Field(Of String)("Host"), .Poller = row.Field(Of String)("Poller") }).ToList Un host est unique et est supervisé par un poller. Un poller supervise x hosts, avec contrats éventuellement différents. Je récupère x fichiers "export_" qui comporte tous les hosts supervisés par . J'ai créé une listbox avec tous les fichiers "export_". A partir du fichier export sélectionné dans la listbox, je créé une collection. ' Extraction nom des hosts dans le fichier export Dim item As Object = ListBoxFilesPoller.SelectedItem Dim poller As String = item.ToString.Substring(27).Replace(".txt", String.Empty) Dim linesexport As List(Of String) = System.IO.File.ReadAllLines(pathroot & "export_" & poller & ".txt").ToList Dim newList As List(Of String) = New List(Of String)() Dim pattern As String = "(?^[a-zA-Z0-9-_]+)" For Each line In linesexport For Each m As Match In Regex.Matches(line.ToString, pattern) If newList.Contains(m.Value) = False Then newList.Add(m.Value) End If Next Next newList.Sort() Actuellement, ces fichiers export peuvent contenir certaines erreurs (il manque des hosts). Mon but est de déceler ces erreurs. D'où - parcours du référentiel et sélection du poller souhaité - test (checkhostexport) si le host se trouve dans le fichier export -> si oui, "exist = True" -> si non, "exist = False" For Each elem In pollers.Where(Function(x) x.Poller = poller) Dim checkhostexport = newList.Where(Function(x) x.ToString = elem.Host) Select Case checkhostexport.Count Case 1 itemsPoller.Add(New Poller() With {.Host = elem.Host, .Exist = True, .Contract = elem.Customer}) Case Else itemsPoller.Add(New Poller() With {.Host = elem.Host, .Exist = False, .Contract = elem.Customer}) End Select Next ' Chargement de la ListView With ListViewPoller .ItemsSource = itemsPoller .Items.Refresh() End With Bon dimanche, jean-marc

cs_JMO · Answer

Je viens de tester ta 2ème proposition.
Résultat conforme !!!

Encore un grand merci Whismeril. 

jean-marc

Whismeril · Answer

De rien

Changement couleur texte cell ListView/GridView

7 réponses

Votre réponse

Discussions similaires