VPF::progressbar - Форум программистов

bushman

Дата 14.3.2006, 06:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.3.2006

Репутация: нет
Всего: нет

люди помогите новичку!! есть форма в которой сразу после ее загрузки должна пройти полоса 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Код



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

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

Voldemar2004

Дата 14.3.2006, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

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

--------------------

i_i
(';')
(V)

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »