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
Article publié le 11/01/2005 18:41:43Au 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 :
Sur un formulaire vierge créez un contrôle étiquette.
Remplissez-le avec n'importe quel signe. Sa largeur sera fixée à 7,6 cm et sa hauteur à 0,5 cm. La couleur de fond sera rouge et son apparence sera 3D enfoncé.
Créez un contrôle zone de texte, supprimez son étiquette et donnez lui une hauteur de 0,42 cm. Réglez sa couleur de fond sur bleu marin et la couleur du texte sur jaune. Réglez sa propriété Aligner texte sur centre et son apparence sur En Relief. Superposez-le sur le contrôle étiquette à gauche et donnez-lui une largeur de 0,051 cm.
Ajoutez un bouton de commande et la procédure Sur clic suivante:
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
Un article de Steph
Source : mypage.bluewin.ch
English translation
You have asked to visit this site in English. For now, only the interface is translated, but not all the content yet.If you want to help me in translations, your contribution is welcome. All you need to do is register on the site, and send me a message asking me to add you to the group of translators, which will give you the opportunity to translate the pages you want. A link at the bottom of each translated page indicates that you are the translator, and has a link to your profile.
Thank you in advance.
Document created the 13/09/2004, last modified the 26/10/2018
Source of the printed document:https://www.gaudry.be/en/ast-rf-185.html
The infobrol is a personal site whose content is my sole responsibility. The text is available under CreativeCommons license (BY-NC-SA). More info on the terms of use and the author.