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
Deutsche Übersetzung
Sie haben gebeten, diese Seite auf Deutsch zu besuchen. Momentan ist nur die Oberfläche übersetzt, aber noch nicht der gesamte Inhalt.Wenn Sie mir bei Übersetzungen helfen wollen, ist Ihr Beitrag willkommen. Alles, was Sie tun müssen, ist, sich auf der Website zu registrieren und mir eine Nachricht zu schicken, in der Sie gebeten werden, Sie der Gruppe der Übersetzer hinzuzufügen, die Ihnen die Möglichkeit gibt, die gewünschten Seiten zu übersetzen. Ein Link am Ende jeder übersetzten Seite zeigt an, dass Sie der Übersetzer sind und einen Link zu Ihrem Profil haben.
Vielen Dank im Voraus.
Dokument erstellt 13/09/2004, zuletzt geändert 26/10/2018
Quelle des gedruckten Dokuments:https://www.gaudry.be/de//de/ast-rf-185.html
Die Infobro ist eine persönliche Seite, deren Inhalt in meiner alleinigen Verantwortung liegt. Der Text ist unter der CreativeCommons-Lizenz (BY-NC-SA) verfügbar. Weitere Informationen auf die Nutzungsbedingungen und dem Autor.