Change full row select back colour or list view

Change full row select back colour or list view - Printable Version

+- BP Forums (https://bpforums.info)
+-- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=55)
+--- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=56)
+---- Forum: VB.NET (Visual Basic 2010/2008) (https://bpforums.info/forumdisplay.php?fid=8)
+----- Forum: Programming Help (https://bpforums.info/forumdisplay.php?fid=9)
+----- Thread: Change full row select back colour or list view (/showthread.php?tid=536)

Change full row select back colour or list view - Bradley - 05-21-2012

Hi Team Of Programmers,
I need your help of a problem that is frustrating me I have a list view box and I want to change to full row select back colour I have already achieved this for list box but the settings are different this is what I am wanting to do for list view any help will be gratefully taken on board

[Image: untitled.jpg]

Code

Code:
Private Sub listBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem

        Dim clrSelectedText As Color = Color.Black 'Our color for selected(text)

        Dim clrHighlight As Color = Color.LightGreen 'Our background for selected items

        If e.State = DrawItemState.Selected Then

            'This item is selected

            'e.DrawBackground()

            e.Graphics.FillRectangle(New SolidBrush(clrHighlight),

            e.Bounds) 'Fill the item's rectangle with our highlight

            e.Graphics.DrawString(ListBox1.Items.Item(e.Index),

            e.Font, New SolidBrush(clrSelectedText), e.Bounds) 'Draw the text for the item

        ElseIf e.State = DrawItemState.None Then

            'This item has no state

            e.DrawBackground() 'Draw our regular background

            e.Graphics.DrawString(ListBox1.Items.Item(e.Index),

            e.Font, Brushes.Black, e.Bounds) 'Draw the item text in its regular(color)

        End If

        'Draws a focus rectangle around the item if it has focus

        e.DrawFocusRectangle()

    End Sub

Kind Regards

Bradley

Re: Change full row select back colour or list view - brandonio21 - 05-21-2012

Hm, well, looking at your existing code.. I don't really know what you're doing. Sorry about that.

So, I wrote my own method which should do what you intended. I don't know if it's what you wanted, but you can take a look at it.

Code:
'This method colors all of the list view items according to the following data

    'Selected items: backcolor = light green

    'Unselected items: backcolor = white

    '@param: the listview to be searched and colored

    Public Sub RecolorListView(ByVal lstView As ListView)

        'Scroll through each listview item

        For Each item In lstView.Items

            If lstView.SelectedItems.Contains(item) Then 'The item is selected

                CType(item, ListViewItem).BackColor = Color.LightGreen 'Color it green!

            Else 'The item is not selected

                CType(item, ListViewItem).BackColor = Color.White 'Color it white

            End If

        Next

    End Sub

Pastebin version: <a class="postlink" href="http://pastebin.com/jhmyty3t">http://pastebin.com/jhmyty3t</a>

Just call this method every time the SelectedIndex is changed on the ListView control.

Re: Change full row select back colour or list view - Bradley - 05-23-2012

brandonio21,
Once again many thanks for you code and efforts and it is much appreciated this was not originally what I was after but I used to my advantage and adapted my idea thanks for the code I have added this to the project and the list of codes to my collection for future reference

Kind Regards

Bradley

Re: Change full row select back colour or list view - brandonio21 - 05-23-2012

Fantastic! I am glad that I could help!