Vous avez sûrement déjà vu des barres
de progression qui permettent de voir à l'écran l'état du
chargement du programme. On peut aussi les utiliser pour
indiquer une limite de temps pour exécuter une opération
comme répondre à une question. Voici comment les créer.
- Créez un nouveau projet que vous
sauvegardez sous le nom Ex_7xx.vbp. Nommez la
feuille selon les règles et inscrivez Barre de
progression pour la propriété CAPTION.
- Ouvrez le composant Microsoft
Windows Common Controls 6.0 comme vous savez
maintenant le faire.
- Ajoutez les éléments suivants
sur la feuille: un contrôle Minuterie (Timer) que
vous nommez Minu_Un et un contrôle Barre de progression (ProgressBar)
que vous nommez BP_Un.
- Changez les caractéristiques
suivantes du contrôle Minu_un: ENABLED = False, INTERVAL
= 1000 (millisecondes). Ne changez rien aux propriétés
du contrôle BP_Un.
- Ajoutez la section de code
suivante dans la partie Explicit de la feuille.
'Déclaration de la variable et
initialisation de la constante pour 2 minutes
Private V_Départ As Single
Private Const Secondes As Integer = 120
- Continuez en plaçant le code
suivant dans la procédure de chargement de la feuille (Form_Load).
Private SubForm_Load()
BP_Un.Value = 0 'Initialisation
des valeurs de départ
V_Départ = 0
Minu_Un.Enabled = True
'Lancement de la minuterie
End Sub
- Complétez le tout en attribuant
le code suivant à la minuterie.
Private Sub Minu_Un_Timer()
Dim V_Pourcent As Single
'Déclaration de variable
If V_Départ = 0! Then
'Initialisation de Départ à la valeur de la minuterie
V_Départ = Timer
End If
V_Pourcent = 100 * (Timer - V_Départ) /
Secondes 'Calcul de la
valeur de -->
V_Pourcent
If V_Pourcent < 100 Then
BP_Un.Value = V_Pourcent
'Attribution de la valeur en pourcentage à la barre
Else
BP_Un.Value = 100
Beep
'Avertissement de la fin de la progression
Minu_Un.Enabled = False
'Arrêt de la minuterie
BP_Un.Value = 0! 'Retour
de la barre de progression à 0
End If
End Sub
- Enregistrez le programme et
testez-le.
Application:
- Changez
la longueur de la barre de progression de façon à ce
qu'elle ne dure qu'une minute et ajoutez des étiquettes
identifiant chaque 30 secondes (0, 30, 60). Sauvegardez le
tout sous le nom Ex_7bxx.vbp.
|
