Vous devez être membre et vous identifier pour publier un article.
Les visiteurs peuvent toutefois commenter chaque article par une réponse.
Créer sa propre barre de progression

Au lieu d'utiliser la barre de progression standard qui s'affiche dans la barre d'état au bas de la fenêtre Access ou de recourir à un contrôle ActiveX coûteux en place et en puissance processeur, nous pouvons créer notre propre barre de progression.
Elle pourra être placée sur n'importe quel formulaire à l'endroit désiré et même en plusieurs exemplaires.
La marche à suivre est indiquée ci-après :




Code VisualBASIC ou VBA ou VBS (19 lignes)
Private Sub cmdBarreProgression_Click() Dim intX As Integer, intZ As Integer For intX = 1 To 100 ' vu que la boucle s'exécute rapidement on ajoute une pause For intZ = 1 To 60 DoEvents Next intZ ' Mise à jour de la barre de progression. On donne une valeur entre 1 et intX Me!txtProgression = intX & "%" Me!txtProgression.Width = 18 * intX Next intX ' Message final facultatif Me!txtProgression = "Opération terminée" End Sub

Source : mypage.bluewin.ch
Version en cache
21/02/2025 22:13:35 Cette version de la page est en cache (à la date du 21/02/2025 22:13:35) afin d'accélérer le traitement. Vous pouvez activer le mode utilisateur dans le menu en haut pour afficher la dernère version de la page.Document créé le 13/09/2004, dernière modification le 26/10/2018
Source du document imprimé : https://www.gaudry.be/ast-rf-185.html
L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.