vb.net Listview 所選的 subitem變色 [Listview change select subitem color]

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub ListView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDoubleClick If ListView1.FocusedItem Is Nothing Then Exit Sub End If Dim Litem As ListViewItem Litem = New ListViewItem() Litem = ListView1.FocusedItem Litem.UseItemStyleForSubItems = False ListView1.HitTest(e.Location).Item.GetSubItemAt(e.X, e.Y).BackColor = Color.Aqua End Sub