forecolor et backcolor ne fonctionne pas

**road-runner** · 13/03/2022, 14h59

Bonjour, lorsque j'exécute le code si dessous avec la ListView1 dans le Form2 qui va avec, ça affiche bien les numéro de 1 à 13 mais ça change pas les couleurs, pourquoi? merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.ListView1.Items.Add(New ListViewItem(New String() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"}))
 
        Form2.ListView1.Items(0).SubItems(5).ForeColor = Color.Red
        Form2.ListView1.Items(0).SubItems(6).BackColor = Color.Red
        Form2.Refresh()
        Form2.Show()
    End Sub
End Class

**wallace1** · 13/03/2022, 16h30

Bonjour,

Il faut definir la propriété UseItemStyleForSubItems du listviewitem à false puis ensuite chaque subitems pourra avoir son propre itemStyle (backcolor et/ou forecolor).

Bon codage++

**road-runner** · 13/03/2022, 18h50

ça fonctionne pour le backcolor mais pas sur le forecolor.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Form2.ListView1.Items.Add(New ListViewItem(New String() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"}))
 
        For i As Integer = 0 To (Form2.ListView1.Items.Count - 1)
            Form2.ListView1.Items(i).UseItemStyleForSubItems = False
        Next
 
        Form2.ListView1.Items(0).SubItems(5).ForeColor = Color.Red
        Form2.ListView1.Items(0).SubItems(6).BackColor = Color.Red
        Form2.Refresh()
        Form2.Show()
    End Sub
End Class

**Miska59** · 14/03/2022, 07h50

Pour ajouter forecolor et backcolor dans listview1. il faudra ajouter ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i As Integer = 0 To (Form2.ListView1.Items.Count - 1)
            Form2.ListView1.Items(i).UseItemStyleForSubItems = False
            Form2.ListView1.Items(i).SubItems(5).ForeColor = Color.Red
            Form2.ListView1.Items(i).SubItems(6).BackColor = Color.Red
        Next
        Form2.Show()

cordialement,

**road-runner** · 14/03/2022, 09h19

Envoyé par Miska59

Pour ajouter forecolor et backcolor dans listview1. il faudra ajouter ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i As Integer = 0 To (Form2.ListView1.Items.Count - 1)
            Form2.ListView1.Items(i).UseItemStyleForSubItems = False
            Form2.ListView1.Items(i).SubItems(5).ForeColor = Color.Red
            Form2.ListView1.Items(i).SubItems(6).BackColor = Color.Red
        Next
        Form2.Show()

cordialement,

Merci de vos propositions mais hélas ça ne change rien.

**ProgElecT** · 14/03/2022, 09h54

Salut

Envoyé par road-runner

.... mais hélas ça ne change rien.

ForeColor = Color.Reds'applique à l'encre des caractères,
BackColor = Color.Reds'applique au fond de la cellule,
Rouge sur rouge ? là je fait du blanc surdu presque blanc, pas très lisible non ?

Motif de l'édit:

. . . .

**Phil Rob** · 14/03/2022, 10h33

Bonjour,

Peut-être dois-tu reprendre une syntaxe plus basique pour effectuer tes tests.

Le code suivant fonctionne très bien comme tu peux en juger avec l'illustration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Public Class Form1
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Form2.ListView1.View = View.Details                 ' Mode d’affichage : IMPORTANT
        Form2.ListView1.Clear()                             ' Clear seulement pôur les essais successifs
 
        Form2.ListView1.HeaderStyle = ColumnHeaderStyle.None ' C'est bien de créer les colonnes
        For i = 0 To 10
            Form2.ListView1.Columns.Add("")                 ' Mais on  peut se passer des entêtes de colonne
        Next
 
        Dim UneLigne As ListViewItem
 
        For i = 0 To 5                                      ' 6 lignes pour le test
            UneLigne = Form2.ListView1.Items.Add(i + 1)
            For j = 0 To 12
                UneLigne.SubItems.Add(j + 1)
            Next
        Next
 
        For i As Integer = 0 To (Form2.ListView1.Items.Count - 1)
            Form2.ListView1.Items(i).UseItemStyleForSubItems = False
            Form2.ListView1.Items(i).SubItems(5).ForeColor = Color.Red
            Form2.ListView1.Items(i).SubItems(6).BackColor = Color.Red
        Next
 
        Form2.Show()    ' HORS DE LA BOUCLE !!!
    End Sub
 
 
End Class

Nom : ListView.jpg
Affichages : 169
Taille : 23,8 Ko

J'espère que ceci te permettra d'avancer ...

**road-runner** · 14/03/2022, 10h50

Envoyé par Phil Rob

Bonjour,

Peut-être dois-tu reprendre une syntaxe plus basique pour effectuer tes tests.

Le code suivant fonctionne très bien comme tu peux en juger avec l'illustration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Public Class Form1
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Form2.ListView1.View = View.Details                 ' Mode d’affichage : IMPORTANT
        Form2.ListView1.Clear()                             ' Clear seulement pôur les essais successifs
 
        Form2.ListView1.HeaderStyle = ColumnHeaderStyle.None ' C'est bien de créer les colonnes
        For i = 0 To 10
            Form2.ListView1.Columns.Add("")                 ' Mais on  peut se passer des entêtes de colonne
        Next
 
        Dim UneLigne As ListViewItem
 
        For i = 0 To 5                                      ' 6 lignes pour le test
            UneLigne = Form2.ListView1.Items.Add(i + 1)
            For j = 0 To 12
                UneLigne.SubItems.Add(j + 1)
            Next
        Next
 
        For i As Integer = 0 To (Form2.ListView1.Items.Count - 1)
            Form2.ListView1.Items(i).UseItemStyleForSubItems = False
            Form2.ListView1.Items(i).SubItems(5).ForeColor = Color.Red
            Form2.ListView1.Items(i).SubItems(6).BackColor = Color.Red
        Next
 
        Form2.Show()    ' HORS DE LA BOUCLE !!!
    End Sub
 
 
End Class

J'espère que ceci te permettra d'avancer ...

voila ton code fonctionne, mon problème été situé lors de la création manuel de la listview1, je l'ai bazardé et super ça marche, comprend pas pq, merci

**road-runner** · 14/03/2022, 11h27

Envoyé par road-runner

voila ton code fonctionne, mon problème été situé lors de la création manuel de la listview1, je l'ai bazardé et super ça marche, comprend pas pq, merci

encore une chose comment faire apparaitre les titres des colonnes.

**Phil Rob** · 14/03/2022, 10h47

T'inquiète pas ProgElect ..., j'ai aussi mis le pied dans ce piège

**Phil Rob** · 14/03/2022, 11h38

Pour les titres de colonnes, tu peux les écrire dans la ligne ... Columns.Add ..., au lieu de chaine vide.

**road-runner** · 14/03/2022, 11h55

Oui mais ça fait rien, sais-tu essayer de ton côté, vais devoir t'envoyer des chocolats ;-)

**Phil Rob** · 14/03/2022, 12h01

Non, ça ne fait rien .... c'est comme ça quand on répond trop vite sur son Smart, on oublie des trucs ...

Il faut aussi enlever une ligne ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
' ... ... ...
        '     Form2.ListView1.HeaderStyle = ColumnHeaderStyle.None
        For i = 0 To 10
            Form2.ListView1.Columns.Add("Le titre de cette colonne")                 
        Next
' ... ... ...

forecolor et backcolor ne fonctionne pas

VB.NET

Vue hybride

Discussions similaires

Partager

Partager