Индикатор состояния в обратную сторону

Пользователь

Сообщений: 172 Регистрация: 23.12.2012

13.09.2011 13:06:15

Добрый день. Ситуация следующего характера.Индикатор состояния встроен в обратный цыкл (Step -1) и при работе индикатора состояния он бежит в обратную сторону.
Вся беда в процедуре его обновления.
Sub UpdateProgress(Pct)
With Progress
.FrameProgress.Caption = Format(Pct, "0%")
.LabelProgress.Width = Pct * (.FrameProgress.Width + 1)
.Repaint
End With
End Sub
Как его заставить нормально работать? Может у кого была такая проблема

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

13.09.2011 13:09:31

2 варианта на выбор:

Sub UpdateProgress(ByVal Pct)
Pct = 1 - Pct
With Progress
.FrameProgress.Caption = Format(Pct, "0%")
.LabelProgress.Width = Pct * (.FrameProgress.Width + 1)
.Repaint
End With
End Sub

Sub UpdateProgress(Pct)
With Progress
.FrameProgress.Caption = Format(1 - Pct, "0%")
.LabelProgress.Width = (1 - Pct) * (.FrameProgress.Width + 1)
.Repaint
End With
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

vigor Пользователь Сообщений: 172 Регистрация: 23.12.2012	#3 13.09.2011 13:12:49 Благодарю EducatedFool. Сейчас буду пробовать

Читают тему