можно ли ускорить? Или надо убирать все красивости вроде иконок и
цвета шрифта?
- Код: Выделить всё
Private Sub LoadLV()
Dim Item As ListItem
Dim sSQL As String
Dim His As Integer
ListView.ListItems.Clear
Set rs = New ADODB.Recordset
sSQL="SELECT * from Tabl ORDER BY id"
rs.CursorLocation = adUseClient
rs.Open sSQL, con, adOpenStatic, adLockReadOnly
Do Until rs.EOF
Set Item = ListView.ListItems.Add(, , rs!id)
'rs!id поле счётчик
'rs!tf поле Boolean
Select Case rs!tf
Case True
Item.SmallIcon = 1
His = His + 1
'переменная His считает положительные значения
Case False
Item.ForeColor = &HC0&
Item.SmallIcon = 2
End Select
rs.MoveNext
Loop
rs.Close
End Sub
2. При команде .EnsureVisible запись оказывается последней видимой, нельзя ли как-то поднять её на середину ListView?
Заранее спасибо за советы, и всех с Н.Г.! Удачи!
