Date: 02-16-2022
Return to Index
created by gbSnippets
'Compilable Example: (Jose Includes)
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
#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
http://www.garybeene.com/sw/gbsnippets.htm