#1 Tue 18 January 2005 13:34
- Geo Maumet
- Invité
Mapbasic ProgressBar
Bonjour
J'ai du mal a utiliser la ProgressBar en MapBasic
Si vous aviez un petit exemple
Merci
Laurent
#2 Tue 18 January 2005 13:34
- Ronan HERVE
- Invité
Re: Mapbasic ProgressBar
Bonjour,
Rapidement, un code générique que vous pourrez facilement adapter :
Declare Sub Main()
Declare Sub Procedure()
Global compteur As Integer
Global fin As Integer
Sub Main()
compteur = 0
fin = 100000
ProgressBar Patientez... Calling Procedure Range fin
End Sub
Sub Procedure()
If (compteur = fin) Then
' on quitte la routine de traitement
ProgressBar = -1
Else
' exécutez ici une partie de votre traitement
' on incrémente la barre de progression
compteur = compteur + 1
ProgressBar = compteur
End If
End Sub
Cordialement,
Ronan HERVE
Ingénieur informatique
Etudes, conseil et ingénierie cartographie et SIG
www.geobs.com