How to prevent flickering of the previous selected item in a ListView
I've a Form with 2 ListViews.
Click on an item of ListView1 and then click on an item of ListView2.
Then click on another item of ListView1. Now the item which was selected
before will be highlighted for a short moment before the item you've
just selected gets highlighted.
If you have icons in the ListView this effect is more significant.
Does anyone have any idea how to prevent the flickering of the previous
selected item?
Stefan
***** SAMPLE CODE *****
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Form1.Height = 10000
Form1.Width = 10000
With ListView1
.Left = 500
.Top = 500
.Width = 4000
.Height = 9000
.View = lvwReport
.GridLines = True
.HideColumnHeaders = True
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
For i = 1 To 1000
.ListItems.Add = "Test Item " & i
.ListItems(i).SubItems(1) = "Test Item " & i
.ListItems(i).SubItems(2) = "Test Item " & i
.ListItems(i).SubItems(3) = "Test Item " & i
.ListItems(i).SubItems(4) = "Test Item " & i
.ListItems(i).SubItems(5) = "Test Item " & i
Next
End With
With ListView2
.Left = 5500
.Top = 500
.Width = 4000
.Height = 9000
.View = lvwReport
.GridLines = True
.HideColumnHeaders = True
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
.ColumnHeaders.Add
For i = 1 To 1000
.ListItems.Add = "Test Item " & i
.ListItems(i).SubItems(1) = "Test Item " & i
.ListItems(i).SubItems(2) = "Test Item " & i
.ListItems(i).SubItems(3) = "Test Item " & i
.ListItems(i).SubItems(4) = "Test Item " & i
.ListItems(i).SubItems(5) = "Test Item " & i
Next
End With
End Sub
