Geen cache-versie.

Caching uitgeschakeld. Standaardinstelling voor deze pagina:ingeschakeld (code LNG204)
Als het scherm te langzaam is, kunt u de gebruikersmodus uitschakelen om de cacheversie te bekijken.

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

Astuces de l’Infobrol ((Office) - Access)Article publié le 11/01/2005 18:41:43


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 :

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:

  1. Private Sub cmdBarreProgression_Click()
  2.  
  3. Dim intX As Integer, intZ As Integer
  4. For intX = 1 To 100
  5.  
  6.  
  7. ' vu que la boucle s'exécute rapidement on ajoute une pause
  8. For intZ = 1 To 60
  9.  
  10. DoEvents
  11. Next intZ
  12. ' Mise à jour de la barre de progression. On donne une valeur entre 1 et intX
  13. Me!txtProgression = intX & "%"
  14. Me!txtProgression.Width = 18 * intX
  15. Next intX
  16.  
  17. ' Message final facultatif
  18. Me!txtProgression = "Opération terminée"
  19. End Sub


Avatar :: Steph Un article de Steph

Source : mypage.bluewin.ch


Sélection, tri et recherche d'articles
FILTRER :
TRIER :1er critère : 2e critère :
CHERCHER : Dans les titres Dans le contenu


[Afficher les liens en fonction des critères du formulaire ci-dessus]

Nederlandse vertaling

U hebt gevraagd om deze site in het Nederlands te bezoeken. Voor nu wordt alleen de interface vertaald, maar nog niet alle inhoud.

Als je me wilt helpen met vertalingen, is je bijdrage welkom. Het enige dat u hoeft te doen, is u op de site registreren en mij een bericht sturen waarin u wordt gevraagd om u toe te voegen aan de groep vertalers, zodat u de gewenste pagina's kunt vertalen. Een link onderaan elke vertaalde pagina geeft aan dat u de vertaler bent en heeft een link naar uw profiel.

Bij voorbaat dank.

Document heeft de 13/09/2004 gemaakt, de laatste keer de 26/10/2018 gewijzigd
Bron van het afgedrukte document:https://www.gaudry.be/nl/ast-rf-185.html

De infobrol is een persoonlijke site waarvan de inhoud uitsluitend mijn verantwoordelijkheid is. De tekst is beschikbaar onder CreativeCommons-licentie (BY-NC-SA). Meer info op de gebruiksvoorwaarden en de auteur.