Listview 使用自定义颜色突出显示所选项目 vb.net

Question

以下例程有助于在 VB.Net 中使用自定义颜色突出显示列表视图中的选定项。在代码模块中有以下代码，传递列表视图和所需的颜色以使选定的项目以给定的颜色突出显示。

Public Sub ListViewHighLightSelectedItem(oListView As ListView, clrHighLightColor As System.Drawing.Color)
    Try
        If oListView.SelectedItems.Count > 0 Then
            For Each oLVItem As ListViewItem In oListView.Items
                oLVItem.UseItemStyleForSubItems = False
                If oLVItem.Selected = True Then
                    'Selected item
                    For Each oSubItem In oLVItem.SubItems
                        oSubItem.BackColor = clrHighLightColor
                    Next
                Else
                    'Non selected item
                    For Each oSubItem In oLVItem.SubItems
                        oSubItem.ResetStyle()
                    Next
                End If
            Next
        End If
    Catch ex As Exception
        'Have your exception handling code here!
    End Try
End Sub

Answer 1

我不确定问题出在哪里，但我是根据您的代码得出的。刚刚将 For 循环更改为仅选定的项目。另外，我没有通过列表视图。仅当代码不在表单类中或您有多个列表视图时，才需要这样做。我还在设计时将 FullRowSelect 更改为 true。

Private Sub OpCode(clrHighLightColor As System.Drawing.Color)
        Try
            If ListView1.SelectedItems.Count = 0 Then Return
            For Each lvi As ListViewItem In ListView1.SelectedItems
                lvi.BackColor = clrHighLightColor
            Next
        Catch ex As Exception
            'Have your exception handling code here!
        End Try
    End Sub
    Private Sub btnChangeLVBackColor_Click(sender As Object, e As EventArgs) Handles btnChangeLVBackColor.Click
        Dim myColor As Color = Color.Red
        OpCode(myColor)
    End Sub