ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / И опять про прогрессбар...
12 сообщений из 12, страница 1 из 1
И опять про прогрессбар...
    #32257749
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
Во время цикла обработки прим. 6000 записей рисуется прогрессбар во временной модальной формочке. Все идет хорошо, но где-нть на 2000 записи прогрессбар замерзает, хотя обработка продолжается. Почему замерзает Repaint?

Большущее и вперед сбасиба за ответ/совет
...
Рейтинг: 0 / 0
06.09.2003, 22:43
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257751
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Предлагаю вставить DoEvents. Иногда помогает. :^)
...
Рейтинг: 0 / 0
06.09.2003, 22:50
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257753
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
Ув ВладСаныч, спасиба за ответ ,но DoEvents где вставить (извиниясь может за незнание) ентот евентс?
...
Рейтинг: 0 / 0
06.09.2003, 22:55
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257754
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Где-нибудь внутри цикла.
...
Рейтинг: 0 / 0
06.09.2003, 22:56
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257757
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
Дело обстоит так: жметца кнопка и запускается Sub в независимом модуле, и этот Sub никакой связи с формами не имеет
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub такой-то
...
Set rst = currentDb.openrecordset ( "Стринг запроса" , dbopendynaset)
  rst.movelast
  rst.movefirst
  DoCmd.OpenForm  "Indicator" 
  Do Until rst.EOF
     ....
     showIndicator CByte((rst.AbsolutePosition+ 1 ) / rst.RecordCount *  100 )
     rst.movenext
  Loop


где showIndicator :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Sub showIndicator(progressData As Byte)
Dim y As Byte
  Forms!indicator!info2 =  ""
  Forms!indicator.Caption = progressData & " % done..."
    For y =  1  To progressData
      Forms!indicator!info2 = Forms!indicator!info2 & ChrW( 9608 )
    Next y
    Forms!indicator.Repaint
End Sub


А де вставить евентс's, а?
...
Рейтинг: 0 / 0
06.09.2003, 23:15
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257759
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Там цикл есть. DoEvents надо вставить где-нибудь внутри него. Нужно перечислить все строки, входящие в цикл? Ну так после (или перед) любой из них.
...
Рейтинг: 0 / 0
06.09.2003, 23:20
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257762
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
Почти не понял...
Однако замечу следующее.
Вообще программа сидит на оброботке заявок (проблема с глюком на печать из этой же ... программы).
Как правило, запусакается три формы: Заявки, Сведения о Клиенте, Поиск клиетна. Если по ходу нажать нечто вроде пересчет остатков на складе, то идет пересчет отправки и отражается прогресс-бар.
Тут происходит нечто мистическое (для меня). Прогресс все рисует, что такая-то из 6345 и когда дело доходит до 2324 (условно), то: видимые окна вдруг становятся неактивными (не ярко голубой фрейм), внизу, где полоска Windows появляется еще одна задача (Access - [prg2003]), и все внешне не изменяется не экране, пока не кончится цикл...

Но если ни одна из форм не загружена, то прогресс об..рисуется без проблем...
...
Рейтинг: 0 / 0
06.09.2003, 23:34
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257773
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Предлагаю все-таки воспользоваться моим советом. Если не поможет, будем думать дальше.
...
Рейтинг: 0 / 0
07.09.2003, 09:34
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257814
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
В моей реплике от вчера, 23:20 какая фраза непонятна?
...
Рейтинг: 0 / 0
07.09.2003, 15:47
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257822
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
Непонятно было про то, к чему привязывается DoEvents.
Но: умный совет + встроенный хелЬп и все славненко! (правда еще в большом количестве случае +пиво)

БАльшое спасиба!!!
...
Рейтинг: 0 / 0
07.09.2003, 17:09
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257823
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
> Непонятно было про то, к чему привязывается DoEvents.

Дык, ни к чему и не привязывается. :^)
...
Рейтинг: 0 / 0
07.09.2003, 17:10
| Ответить | Цитировать | Написать  
И опять про прогрессбар...
    #32257827
Mar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mar
Гость
Ага, не привязывается. А еще экран держит правильно (т.е. обновляются поля в форме, что на экране, если в соурсе что поменялось). А еще - никак не отражается на скорострельности
...
Рейтинг: 0 / 0
07.09.2003, 17:24
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / И опять про прогрессбар...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32257762&tid=1679554]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 220ms
total:  370ms
созд. / загр.: 370ms
x
x
Закрыть


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