banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

Annonce

Rencontres QGIS 2025

L'appel à participation est ouvert jusqu'au 19 janvier 2025!

#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

 

Pied de page des forums

Powered by FluxBB