Affiche une barre de progression pendant un traitement long

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")

	nMax = 500
	sTitre = "Lecture de " & nMax & " informations"
	oDlg = zBasic.BarreProgression(sTitre, 100, 100, 120, 16 )
	oBarre = zDial.Liste(oDlg, "Barre") 'nom obligatoire
	zCtrl.Parametre(oBarre, "ValeurProgressionMax", nMax)
	oDlg.setVisible(1)
	'insérer ici votre traitement long
	for i = 0 to nMax
		wait 10
		'ici on fait progresser la barre avec i
		zCtrl.Parametre(oBarre, "ValeurProgression", i)
	next
	oDlg.dispose()
	
End Sub