Вопрос по визуализации задачи

[SIV84]

Подскажите пожалуйста. Есть процесс который занимает от 15 до 60 секудн времени на формирование отчета. Процесс запускается двойным нажатием в окне листбокса. Сталкнулся с проблемой. Народ, который пользуется программой не успев дождатся результата выполняет операцию повторно. Некотрые даже по несколько раз. Возможно ли каким то образом визуализировать время ожидания необходимого длявыполнение операции?

[EducatedFool]

А чем Вас не устраивает решение из этой темы?

[SIV84]

Вполне устраивает. Спасибо

[SIV84]

Возникает следующий вопрос. У меня открыта форма с которой я работаю. При обращении к форме F_Progress она инециализируется на экране и не выполняет никаких действий. Она не может работать когда открыта ещё одна форма?

[EducatedFool]

В той теме, на которую я привёл ссылку, была старая версия индикатора.

Более новую версию можно посмотреть в этом посте.

От Вас требуется просто скопировать (перетащив мышкой в редакторе VBA) форму F_Progress и модуль класса ProgressIndicator из файла примера в свой файл.

Использовать индикатор можно примерно так:

Sub testProgressIndicator()
    Dim pi As New ProgressIndicator    ' создаём новый индикатор

    pi.Show "Проверка работы индикатора прогресса"    ' отображаем его
    pi.ShowPercents = True    ' включаем вывод процентов в заголовок окна

    For i = 0 To 30
        pi.StartNewAction i * 3, i * 3 + 2, "Действие  " & i ' сообщаем индикатору, 
                  ' что начато новое действие, в течение которого индикатор прогресса будет отображать 
                  ' процент выполнения от i * 3  до  i * 3 + 2  процентов
                  ' (строка хоть и не обязательная, но без неё мы ничего не увидим)


        pi.line1 = "Текст в первой строке"
        pi.line2 = "Текст во второй строке"
        pi.line3 = "Текст в третьей строке"

        ' здесь у нас расположен основной код
        For h = 1 To 10000: DoEvents: Next    ' пауза
    Next

    pi.Hide    ' закрываем индикатор
End Sub

Основные строки (обязательные) выделены жирным шрифтом.
Цветом выделены параметры методов объекта ProgressIndicator.

Там есть ещё несколько функций. Но описывать их долго.
Я, хоть сам и сочинял код, порой забываю, какие функции там реализованы

Я его делал давно (когда ещё плохо знал VBA), поэтому реализовано всё не самым лучшим образом. Но в основном функциональности хватает для простых задач.

Она не может работать когда открыта ещё одна форма?

Может. И работает.

Возможно отображение сразу нескольких таких индикаторов (один над другим), и т.д. и т.п.
Прикрепите к сообщению файл, в котором надо использовать индикатор, и я напишу код для его использования.