ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Экономия оперативной памяти при загрузке в ListBox гигантских списков
4 сообщений из 4, страница 1 из 1
Экономия оперативной памяти при загрузке в ListBox гигантских списков
    #36290605
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Возникла необходимость загрузить в ListBox на форме гигантский список более 10000 строк...
Загрузил...
Комп периодически выдает "Недостаточно системных ресурсов для полного вывода на экран", причем как при работе формы так и в VBE.

Долго думал и понял что самый оптимальный способ - это подгрузка данных маленькими порциями в ListBox...

Попробовал реализовать с использованием Private Sub ListBox1_Click только для одного ListBox-a - не вышло...
Результаты неудачных попыток смотри здесь


В итоге плюнул и сделал с двумя ListBox-aми...с загрузкой через цикл

Вот что получилось:

Ежели у кого есть соображения по оптимизации кода - пожалуйста поделитесь...
...
Рейтинг: 0 / 0
04.11.2009, 17:35
| Ответить | Цитировать | Написать  
Экономия оперативной памяти при загрузке в ListBox гигантских списков
    #36290617
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
Что именно не получается в коде, приведенный мной в предыдущем топике ?
Там все загружаетя в одиy ListBox
...
Рейтинг: 0 / 0
04.11.2009, 17:46
| Ответить | Цитировать | Написать  
Экономия оперативной памяти при загрузке в ListBox гигантских списков
    #36290733
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
При загрузке данных циклом - все останавливается на стирании старого содержимого.
...
Рейтинг: 0 / 0
04.11.2009, 19:04
| Ответить | Цитировать | Написать  
Экономия оперативной памяти при загрузке в ListBox гигантских списков
    #36291354
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Dan-K При загрузке данных циклом - все останавливается на стирании старого содержимого.
Вообщем так и не понял что именно не вышло...
Вот здесь Вам подсказали как можно сделать. Думаю что под col1,col2... PA предполагал коллекцию, так как данные загружаются быстрее в коллекцию, чем в массив... В любом случае, вот такой код можете попробовать... На 10000 строк у меня уходит 100 секунд (комп немного привисает). Попробуйте грузить по 500, 1000, что получится... И все в один листбокс.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Private Sub CommandButton1_Click()
Dim l As Long, b As Byte, x As Integer
Dim mycol As New Collection
Dim t

t = Timer

For l =  1  To  10000 
    For b =  1  To  5 
        mycol.Add ActiveSheet.Cells(l, b).Value
    Next b
Next l

x =  0 
For l =  1  To  50000  Step  5 
With ListBox1
   .AddItem mycol.Item(l)
   .List(x,  1 ) = mycol.Item(l +  1 )
   .List(x,  2 ) = mycol.Item(l +  2 )
   .List(x,  3 ) = mycol.Item(l +  3 )
   .List(x,  4 ) = mycol.Item(l +  4 )
End With
x = x +  1 
Next l

MsgBox Timer - t

End Sub
...
Рейтинг: 0 / 0
05.11.2009, 10:26
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Экономия оперативной памяти при загрузке в ListBox гигантских списков
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2178887]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 187ms
get topic data:
 8ms
get first new msg:
 6ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 198ms
total:  475ms
созд. / загр.: 475ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]