Change la couleur de fond de la ListView en VB6

Je travaille avec un code existant et la nécessité de changer la couleur de fond d'une ligne (et la couleur de la police) dans une ListView en VB6 en fonction de certains critères. J'ai besoin de changer la couleur de la ligne lorsque la ligne est sélectionnée et n'est pas sélectionnée. Je peux changer la couleur de police d'un non-sélectionnés ligne via le .De premier plan de la propriété, mais je ne peux pas changer la couleur dans l'un des autres scénarios.

InformationsquelleAutor Chuck Haines | 2009-09-25
  1. 1

    La couleur d'arrière-plan de lignes sélectionnées est contrôlée par le système. Vous ne pouvez pas changer à quoi que ce soit d'autre.

    Si vous ont pour être en mesure de changer l'arrière-plan des lignes sélectionnées, vous devrez dessiner personnalisé de la liste -- qui, pour être honnête, c'est trop de douleur à considérer sérieusement 🙂

    InformationsquelleAutor Grammarian
  2. 2

    Découvrez ce post sur le forum. Voici un exemple du code de couleurs, chaque autre ligne:

    '\\ loop through the rows to select every other row
For i = 1 To lvwBackColour.ListItems.Count
    If (lvwBackColour.ListItems(i).Index Mod 2) = 0 Then

        '\\ add a tick to the checkbox
        lvwBackColour.ListItems(i).Checked = True

        '\\ add the colour to the picturebox
        '\\ See Here (http://msdn2.microsoft.com/en-us/library/aa230480(VS.60).aspx)
        '\\ for information about the Line method
        picBG.Line (0, i - 1)-(1, i), &H4000FF, BF

        '\\ update column four caption
        lvwBackColour.ListItems(i).SubItems(3) = "Hidden column value = 1"

    Else
        '\\ remove the tick from the checkbox
        lvwBackColour.ListItems(i).Checked = False

        '\\ reset backcolour to white
        picBG.Line (0, i - 1)-(1, i), &HFFFFFF, BF

        '\\ reset the Column Four caption
        lvwBackColour.ListItems(i).SubItems(3) = "Hidden column value = 0"
    End If
Next i

'\\ set the listview to use the picturebox image
lvwBackColour.Picture = picBG.Image

    Voici la lien à l'article msdn qui parle de la méthode de la Ligne.

    InformationsquelleAutor C-Pound Guru