Discussion :

[gryffondor8392]

Bonjour tout le monde,

J'ai fait une recherche sur le forum qui a été infructueuse.

J'aimerais savoir s'il est possible dans une listbox de changer la couleur de l'Item qui a été sélectionner par un utilisateur pour les différencier des autres qui ne l'ont pas été pour que celui-ci ne le soit pas une deuxième fois.

Merci par avance de votre aide.

[ProgElecT]

Salut

La propriété couleur de fond (BackColor) et encre (ForeColor) d'un ListeBox agit sur l'ensemble des lignes, par contre il y a la propriété Style = 1, qui justement sert pour distinguer la sélection ou non d'une ou plusieurs lignes.

[gryffondor8392]

Je ne vois pas du tout ce que tu veux dire, pourrais-tu t'expliquer un peu mieux ?

Merci par avance.

[ProgElecT]

Le fait de mettre Style = 1 ajoute à chaque ligne une case à cocher, se qui permet à l'utilisateur d'indiquer qu'il là sélectionne ou non.

Si tu tiens vraiment à une visualisation par couleur, tu peux utiliser un MSHFlexGrid et l'utiliser de cette façon

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
Private Sub Form_Load()
Dim T As Integer
 
MSHFlexGrid1.Cols = 1
MSHFlexGrid1.FixedCols = 0
MSHFlexGrid1.FixedRows = 0
MSHFlexGrid1.Rows = 10
 
MSHFlexGrid1.Col = 0
For T = 0 To MSHFlexGrid1.Rows - 1
    MSHFlexGrid1.Row = T
    MSHFlexGrid1.TextMatrix(T, 0) = "ligne N° " & T + 1
Next T
End Sub
 
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Shift = vbCtrlMask And Button = vbKeyLButton Then 'Ctrl + Bt. gauche
    If MSHFlexGrid1.CellBackColor = &H80000005 Then
        MSHFlexGrid1.CellBackColor = &HC0FFC0 'couleur pour ligne sélectionnée
        Else
        MSHFlexGrid1.CellBackColor = &H80000005 'couleur pour ligne non sélectionnée
    End If
End If
End Sub