troubleshooting Question

Change individual listviewitem/subitem colors

Avatar of sgaggerj
sgaggerjFlag for United States of America asked on
Visual Basic.NET
2 Comments1 Solution1678 ViewsLast Modified:
Hi All,

I am attempting to re-create the color chooser that is in the IDE (the one where you click BackgroundColor and the color chooser pops up with three tabs Custom, Web and System)

I am using a ListView to do the System tab right now.
I have it set to Detail view and have 2 columns.
One column will be the color, and the 2nd column will be the color name.

here's what i've got so far:

With .TabPages(1)
                ' get the colors
                Dim clr() As Color
                Dim ic As ICollection = System.ComponentModel.TypeDescriptor.GetConverter(GetType(Color)).GetStandardValues()
                ReDim clr(ic.Count - 1)
                ic.CopyTo(clr, 0)
                SystemList.Items.Clear()
                For Each c As Color In clr
                    If c.IsSystemColor Then
                        Dim lv1 As New ListViewItem()
                        lv1.BackColor = c
                        ' lv1.subitems(0).backcolor=c ' this doesn't help either.
                        Dim l As New ListViewItem.ListViewSubItem
                        l.Text = c.Name
                        l.BackColor = Color.White
                        l.ForeColor = Color.Black

                        lv1.SubItems.Add(l)

                        SystemList.Columns(0).ListView.Items.Add(lv1)
                    End If
                Next
End With

this works, with one problem.  The entire row is the color 'c', the subitem does not get a background color of White.
(it does when you click on it's corresponding column 0 - it changes to white, but when you click off it gets its original background color)

any suggestions?
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 2 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros