• Добро пожаловать на Форум пользователей ПО АСКОН. Пожалуйста, авторизуйтесь.
 

Уважаемые пользователи,

Хотим проинформировать вас о режиме работы регистрации на нашем сайте.

Зарегистрироваться возможно в рабочие дни, с 8:00 до 20:00 (мск).

Если у вас возникнут вопросы или потребуется дополнительная информация, не стесняйтесь обращаться к нашей службе поддержки. Вы можете связаться с нами по указанным контактным данным на нашем сайте.

Благодарим вас за понимание и сотрудничество. Мы ценим ваше терпение и стремимся предоставить вам лучший опыт использования нашего сервиса.

С уважением,
Команда Ascon

Пропадает Прогрессбар на время исключения компонента из расчета.

Автор lavgirb, 20.12.23, 08:12:08

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

lavgirb

Пропадает Прогрессбар на время исключения компонента из расчета.
Исключение компонента из расчета занимает некоторое, заметное на глаз время на участке кода
oFeat7.Excluded = bExcludeFromCalcНа это время прогрессбар перестает отображаться.
В итоге Прогрессбар мигает во время работы программы.
Есть ли способ устранить мигание?
Вот код
  For i = 0 To UBound(oArrParts)
      Set oFeat7 = oArrParts(i)
      oFeat7.Excluded = bExcludeFromCalc
      '
      oProgressBar.SetProgress i, "", True 
      '
   Next
Блокирование обновления окна с помощью
LockWindowUpdate moKO5.ksGetHWindowНе приводит к желаемому результату.
Какие можно предпринять меры, чтоб убрать мигание?
Спасибо.

lavgirb

В общем, оказалось, что при исключении из расчета (включении в расчет) появляется штатный Прогрессбар от КОМПАС.
Он "прыгает", не дает возможности отображаться программному.
Пока просто добавил Прогрессбар после отработки включения в расчет:
oProgressBar.Start ub, ub, "", False: DoEvents 
oProgressBar.SetProgress ub, "", False: DoEvents
oProgressBar.Stop "", False
Чтобы программый Прогрессбар на короткое время показал заполненную строку состояния по окончанию процесса.