Progress Bar - 10 Bar ProgressBar

Category: Controls - .Techniques

Date: 03-28-2012

Return to Index


 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
#Include "Win32API.inc"
Global hDlg As Dword
 
Function PBMain() As Long
   Local w As Long
   Dialog New Pixels, 0, "ProgressBar Test",300,300,150,220, %WS_OverlappedWindow, 0 To hDlg
   Control Add Progressbar, hDlg, 101,"", 10,10,115,20
   Control Add Progressbar, hDlg, 102,"", 10,30,115,20
   Control Add Progressbar, hDlg, 103,"", 10,50,115,20
   Control Add Progressbar, hDlg, 104,"", 10,70,115,20
   Control Add Progressbar, hDlg, 105,"", 10,90,115,20
   Control Add Progressbar, hDlg, 106,"", 10,110,115,20
   Control Add Progressbar, hDlg, 107,"", 10,130,115,20
   Control Add Progressbar, hDlg, 108,"", 10,150,115,20
   Control Add Progressbar, hDlg, 109,"", 10,170,115,20
   Control Add Progressbar, hDlg, 110,"", 10,190,115,20
 
   Progressbar Set Range hDlg,101, 1,100 : Progressbar Set Pos hDlg, 101, 10
   Progressbar Set Range hDlg,102, 1,100 : Progressbar Set Pos hDlg, 102, 20
   Progressbar Set Range hDlg,103, 1,100 : Progressbar Set Pos hDlg, 103, 30
   Progressbar Set Range hDlg,104, 1,100 : Progressbar Set Pos hDlg, 104, 40
   Progressbar Set Range hDlg,105, 1,100 : Progressbar Set Pos hDlg, 105, 50
   Progressbar Set Range hDlg,106, 1,100 : Progressbar Set Pos hDlg, 106, 60
   Progressbar Set Range hDlg,107, 1,100 : Progressbar Set Pos hDlg, 107, 70
   Progressbar Set Range hDlg,108, 1,100 : Progressbar Set Pos hDlg, 108, 80
   Progressbar Set Range hDlg,109, 1,100 : Progressbar Set Pos hDlg, 109, 90
   Progressbar Set Range hDlg,110, 1,100 : Progressbar Set Pos hDlg, 110, 100
 
   Dialog Show Modal hDlg, Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
End Function
 
'gbs_00799
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm