Progress bar

Télécharger le projet
Commenter

Description

C'est juste une progress bar toute simple, il y a quelque truc sympa mais simple comme changer le pointeur de la souris ou la couleur d'un label mais ceci reste assez basique mais c toujours bien pour apprendre .
Merci c'est mon premier prog soyez indulgeant

Source / Exemple : 


'Ici déclaration d'un variable
Dim a

Private Sub Command1_Click()
'Ici on dit que la variable a est égal a 0
a = 0
'Ici on dit que la progress bar peut être utiliser
If a = 0 Then
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
' Ici on incrémente une variable
a = a + 10
'Ici On dit que quand la progress bar est a 100 % qu'il arrête de compter
If a = 100 Then
Timer1.Enabled = False
End If
ProgressBar1 = a
'Ici on dit que quand la progress bar est a moins de 50 % la couleur de l'affichage de la progression sur le label et en rouge
If a < 50 Then
Label1.ForeColor = &HFF
End If
'Ici on dit que quand la progress bar est a plus de 50 % la couleur de l'affichage de la progression sur le label et en jaune
If a > 50 Then
Label1.ForeColor = &H80FFFF
End If
'Ici on dit simplement au label1 qu'il est égal a la progression
Label1 = a & "%"
'Ici on fait en sorte que le pointeur de la souris mette un sablier pendant qu'il travail
If a < 100 Then
MousePointer = 11
End If
'Ici on dit que quand la progression est finit que le pointeur redeviens une flèche
If a = 100 Then
MousePointer = 0
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dynamic66)