| Вопрос: Помогите увеличить Быстроту | Добавлено: 05.11.10 07:57 |
Автор вопроса:  Эдик
|
|
Привет всем.Этот код выполняеться за 9 секунд.Может кто нибудь поможет уменшить время выполнения кода
Private Sub Command1_Click() List1.Clear Label2.Caption = "0" Dim s As Long For q = 0 To 6 For w = 0 To 6 For e = 0 To 6 For r = 0 To 6 For t = 0 To 6 For y = 0 To 6 'DoEvents List1.AddItem q & w & e & r & t & y & t & " " & y Next y Next t Next r Next e Next w Next q Label2.Caption = List1.ListCount End Sub |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 05.11.10 08:28 |
| LockWindowUpdate | ||
|
Номер ответа: 2 Автор ответа: Retupa Вопросов: 1 Ответов: 51 |
Профиль | | #2 | Добавлено: 06.11.10 23:24 |
| + SendMessage, вместо Clear и AddItem. | ||
|
Номер ответа: 3 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #3 | Добавлено: 07.11.10 00:34 |
| Проще собрать пароли в массив, а потом одним сэндмессэйджем загнать его в листбокс. | ||
Страница: 1 |