1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

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

    Alecs1969 Гость

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

    alex77755 Well-Known Member

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

    Alecs1969 Гость

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

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