Привет всем !
В VBA Excel нарисовал форму на ней две Label-самодельный ProgressBar
Не работает, а вроде как доложно
Подскажите чего тут неправильно ...чего забыл ?

Private Sub CommandButton7_Click()
Dim i As Integer
FormProgress.Label3.Width = 0
FormProgress.Show 1
For i = 1 To 3200
FormProgress.Label3.Width = i
Sleep 500
Next i
FormProgress.Hide
End Sub

Jojo®

Он просто виснет :)
Jojo®

Форма появляется ...но ширина лейблы не увеличивается
как была на 0 так и стоит ...
Поставил DoEvents
тоже ноль эмоции
все примитивно а не работает ...

Private Sub CommandButton7_Click()
Dim i As Integer
'Call Save_Param
FormProgress.Label3.Width = 0
FormProgress.Show 1
For i = 1 To 320
FormProgress.Label3.Width = i
Sleep 500
DoEvents
Next i
FormProgress.Hide
End Sub





Jojo®

Мое почтение :) сэр

блин все просто ...если на первой форме все делать ...работает ) !!!!

но у меня созрел вопрос
У меня есть одна форма на ней кнопка начать "расчет"
по нажатии у меня вызывается вторая форма в модальном режиме
на этой форме только 2 лейбла
один белого цвета шириной 320 pt -100 % - ширина не меняется
а другой синего цвета - вот у этого объекта требуется чтоб в цикле менялась ширина ...
у меня моя появляется форма превая лейбла как была белой так и отстается ...а ведь на нее поверху должна накатить синяя и еще у меня виснет приложение

Jojo®

Лох Позорный - спасибо за помощь
помогло
Я сделал
я код прописывал в первой форме а нада было просто приписать во второй -т.е. самой где нарисованы Label ... и все ...вот млин туплю ...
хотя я же указывал типа FromProgress.Label3.Width ...


Jojo®