Переполнение ListView

[leopold69]

Проблема: Заполняю listview данными, количество большое. Данных больше чем 32768, чуть больше наверное на 2000-3000. Все данные попадают в список, но при выборе строки, которая находится после записи 32768, свойство item возвращает код первой строки listview. Предполагаю, что какое-либо из свойств контрола объявлено как integer, может у кого-нибудь была такая проблема.

[Amed]

Какими именно данными заполняется ListView? Есть необходимость вносить 40000 записей?

[leopold69]

Заполняется фамилиями и адресами, необходимость есть т.к. вся база не будет никогда превышать 33000

[Amed]

Проверил только что.

Код: Выделить всё

Private Sub Form_Load()
Dim i As Long

For i = 0 To 40000
    ListView1.ListItems.Add , , "s" & i
Next i
End Sub

Private Sub ListView1_Click()
MsgBox ListView1.SelectedItem.Index & " " & ListView1.SelectedItem.Text
End Sub

Вот так показывает все прекрасно. Покажите свой код.

[leopold69]

Вообще-то я делаю все в процедуре:

Private Sub lstBases_ItemClick(ByVal Item As MSComctlLib.ListItem)
End Sub

И по свойству item определяю номер записи, так вот это свойство при выборе любой строки в конце списка выводит данные первой строки, и именно после 32 тысяч, может действительно попробоватеть через Click а не через ItemClick?

[Amed]

Я о том же, делай через Click.

Item'ы в ListView - это элементы Collection, а в коллекции может быть больше 32768 элементов, вообще говоря. Причину бага посмотрю завтра в мсдн, сегодня уже поздновато.