FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

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