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   Click Here to See the Profile for Mihruta   Click Here to Email Mihruta  
Народ подскажите как сделать прогрессбар, или дайте ссылку на исходник.
С Уважением Mihruta
al опубликован 06-04-2001 21:22 MSK     Click Here to See the Profile for al  Click Here to Email al     
Используйте Microsoft Windows Common Controls 6.0 (MSCOMCTL.OCX)
purpe опубликован 06-04-2001 21:36 MSK     Click Here to See the Profile for purpe  Click Here to Email purpe     
а чем тебе не нравится ? http://www.sources.ru/vb/vb_progressbar_slider.shtml
AlexR опубликован 02-11-2001 18:23 MSK     Click Here to See the Profile for AlexR  Click Here to Email AlexR     
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     Click Here to See the Profile for AlexR  Click Here to Email AlexR     
Забыл пояснить:
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.