Прогрессбар... - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Прогрессбар...
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Прогрессбар...

Mihruta опубликован 06-04-2001 20:52 MSK
Народ подскажите как сделать прогрессбар, или дайте ссылку на исходник.
С Уважением Mihruta
al опубликован 06-04-2001 21:22 MSK
Используйте Microsoft Windows Common Controls 6.0 (MSCOMCTL.OCX)
purpe опубликован 06-04-2001 21:36 MSK
а чем тебе не нравится ? http://www.sources.ru/vb/vb_progressbar_slider.shtml
AlexR опубликован 02-11-2001 18:23 MSK
Private Sub Timer1_Timer()
Static Progress As Integer
Progress = (Progress + 1) Mod 200
ProgressBar1.Value = Progress
If ProgressBar1 = Max Then
MsgBox "Работает!" vbExclamation "Спасибо Alex'у!"
End If
End Sub
AlexR опубликован 03-11-2001 16:03 MSK
Забыл пояснить:
Mod 200 - установка свойства Max (у ProgressBar1). Можно менять значение.
У Timer1 ставим Interval = 1000.
А дальше я писал.
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Прогрессбар...
Mihruta	опубликован 06-04-2001 20:52 MSK Народ подскажите как сделать прогрессбар, или дайте ссылку на исходник. С Уважением Mihruta
al	опубликован 06-04-2001 21:22 MSK Используйте Microsoft Windows Common Controls 6.0 (MSCOMCTL.OCX)
purpe	опубликован 06-04-2001 21:36 MSK а чем тебе не нравится ? http://www.sources.ru/vb/vb_progressbar_slider.shtml
AlexR	опубликован 02-11-2001 18:23 MSK Private Sub Timer1_Timer() Static Progress As Integer Progress = (Progress + 1) Mod 200 ProgressBar1.Value = Progress If ProgressBar1 = Max Then MsgBox "Работает!" vbExclamation "Спасибо Alex'у!" End If End Sub
AlexR	опубликован 03-11-2001 16:03 MSK Забыл пояснить: Mod 200 - установка свойства Max (у ProgressBar1). Можно менять значение. У Timer1 ставим Interval = 1000. А дальше я писал.