1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Option Compare Database
Option Explicit
Function Patience()
'afficher une barre de progres Système dans coin inferieur droit.
'la barre de progres ne s'affiche que si la Status Bar est affichée. Voir Tools/Options/View : cochez Status Bar
Dim i As Integer
Dim dT As Date
MsgBox ("je vais commencer")
SysCmd acSysCmdRuntime
'intitialiser la barre d'état avec le texte à afficher et la valeur totale
SysCmd acSysCmdInitMeter, "Coucou, je vous dis Bonjour et je vous souhaite une bonne journée.", 5
For i = 1 To 5 Step 1
'faire avancer d'un cran la jauge d'avancement
SysCmd acSysCmdUpdateMeter, i
'patienter une seconde
dT = Now()
Do Until Second(Now() - dT) > 1
DoEvents
Loop
Next i
'supprime la jauge d'avancement
SysCmd acSysCmdRemoveMeter
MsgBox ("j ai fini")
End Function |
Partager