FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017  Ajouter une question

 

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.


SommaireProgrammation OBasicLes boîtes de dialogue BASICLes barres de progression: ProgressBar (1)
précédent sommaire suivant
 

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub BarreDeProgression 
  Dim x As Integer 
  Dim oBar As Object 
  
  'Définit la barre de progression dans la boîte de dialogue 
  oBar = oDialog1.getControl("ProgressBar1")  
  
  'Définit les valeurs mini et maxi de la barre 
  oBar.setRange(0, 1000)  
  'Attribue une valeur à la barre 
  oBar.setValue(0) 
  
  'Boucle pour modifier la valeur de la barre 
  For x = 0 To 1000 Step 10  
    'Attribue une valeur à la barre 
    oBar.setValue(x) 
    'Temporisation pour permettre de visualiser la progression  
    Wait 10 '(en millisecondes) 
  Next     
  
End Sub

Mis à jour le 2 août 2013 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2017 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsable bénévole de la rubrique OpenOffice & LibreOffice : zoom61 -