Интересное о ЦИКЛАХ

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
илло
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 01.05.2005 (Вс) 16:40

Интересное о ЦИКЛАХ

Сообщение илло » 01.05.2005 (Вс) 16:45

Друзья, ломаю голову над тем как при работающем цикле сделать так шоб прогрессбар работал? Цикл работает и весь поток сволочь занимает!
Подскажите как быть. Спасибо.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 01.05.2005 (Вс) 16:48

doevents
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

илло
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 01.05.2005 (Вс) 16:40

Сообщение илло » 01.05.2005 (Вс) 16:53

А по потробнее можно плиз

илло
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 01.05.2005 (Вс) 16:40

Сообщение илло » 01.05.2005 (Вс) 16:57

Вот я дурачек :lol:
Спасибо большое!

romanich
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 19
Зарегистрирован: 12.04.2005 (Вт) 14:33
Откуда: Саратов

Сообщение romanich » 03.05.2005 (Вт) 13:25

Declare Function GetInputState Lib "user32" _
Alias "GetInputState" () As Long

For c = 1 To 100000
temp = 2 * 2 * 2
If GetInputState() Then DoEvents ' здесь 312 мс.
DoEvents ' а здесь время выполнения цикла 6543 мс. !!!
Next c

neic
Жираф
Жираф
 
Сообщения: 492
Зарегистрирован: 13.02.2005 (Вс) 23:44
Откуда: Сланцы

Сообщение neic » 03.05.2005 (Вт) 14:31

For i = 1 To 100
ProgresBar.Value=ProgresBar.Value + 1
Next

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 03.05.2005 (Вт) 15:39

Мда :?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, SemrushBot, Yandex-бот и гости: 170

    TopList