Как Бороться С Эффектом Подвисания?

Тема в разделе "Visual Basic", создана пользователем Alecs1969, 26 ноя 2011.

Статус темы:
Закрыта.
  1. Alecs1969

    Alecs1969 Гость

    Написал программку на VBA Access, обрабатывает большие объемы данных и через вининет шлет их на сайт. Все работает прерасно, кроме одного, внешне приложение выглядит зависшим. При этом на компе ничего не тормозит, ЦП нагружен едва ли на 10%, свободной памяти - вагон. В принципе это никому не мешает, свою функцию программка выполняет. Но не удобно, процесс-бар либо ничего не показывает, либо его не видно совсем, и не возможно определить сколько времени осталось до завершения. Как мне всетаки заставить работать процесс-бар.
     
  2. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Код (LotusScript):
    Dim varStatus As Variant
    ' в тело цикла
    Код (LotusScript):
     varStatus = SysCmd(acSysCmdSetStatus, "Идёт обработка документа №: " & R
    ' перед завершением
    Код (LotusScript):
     varStatus = SysCmd(acSysCmdClearStatus)
     
  3. Alecs1969

    Alecs1969 Гость

    Спасибо. Ответ не совсем в тему, так как прогресс-бар у меня реализован в форме, но тем не менее помог. При расширенном изучении документации по SysCmd, наткнулся на метод DoEvents. Теперь все отлично.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей