Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > progressbar

Автор: bushman 14.3.2006, 06:06

люди помогите новичку!! есть форма в которой сразу после ее загрузки должна пройти полоса progressbar после чего форма пропадает и появляется другая я пробовал но почему то полоса слишком быстро проходит посмотрите может что не так?? smile

Код


Private Sub Form_Activate()
Dim MyValue As Long
MyValue = Int(100000)
For x = 1 To MyValue
ProgressBar1.Value = 15000
Next x
End Sub

Добавлено @ 06:08
а еще и при запуске эта форма почему то как бы притормаживает и вместо родного серого цвета она становится белой (я думаю все знают как отображаются окна в винде когда комп тормозит или перед зависом)

Автор: Тутанхамец 14.3.2006, 09:30

Код



Private Sub Form_Activate()
Dim i As Long, n As Long
n = 10000
ProgressBar1.Max = n
For i = 1 To n
ProgressBar1.Value = i
DoEvents
Next i
End Sub

DoEvents прерывает выполнение цикла на какое-то время, чтобы форма с прогрессбаром успела прорисоваться.

P.S. Обычно прогрессбаром показывают ход выполнения какой-то работы. В твоем случае показывается только ход выполнения цикла smile

Для красоты? smile

Автор: Voldemar2004 14.3.2006, 18:49

bushman, используй таймер. Ведь чем мощнее машина, на которой ты будешь загружать progress-bar, тем быстрее он будет пролетать.