Progresse bar style facebook

Télécharger le projet
Commenter

Description

salut à la communauté je suis heureux de vous présenter mon deuxièmes sources, qui fait parti d'un projet sur lequel je travail actuellement.
il est née du faits que je voulait un progresse bar style Facebook en vb6, malheureusement j'en ai pas trouver j'ai du le faire moi même.merci de l’améliorer j'attend vos impressions

Source / Exemple : 


'//////////////////////////////////////////////////////////////////////////////////////
'                                                                                     '
'               form: barre de progression style facebook                                    '
'               Crée le : 19/4/13
'               auteur: radicalc3d
'                                                                                     '
'               Visual Basic v6                                                       '
'                                                                                     '
'               E-mail: radicalc3d@gmail.com /marcya2809@gmail.com                                            '
'               MSN   : zero_file@hotmail.fr                                             '
'                                                                      '
'               'description: cesurce permet d'avoir la barre de chargement styl facebook
                'pendant 10s environs pour augmenter ou dimuner, veuiller modifier la variable T                                                                       '
                
Option Explicit
   Dim changer As String

    

'cette procedure permet de rendre visible et invisible les bares les sapes controles a tour de roles
'creant ainsi une boucle

Private Sub inProgress()

    If changer = "debut" Then
        Shape1.Visible = True
        Shape2.Visible = False
        Shape3.Visible = False
        Shape4.Visible = False
        Shape5.Visible = False
        changer = "finis1"
         
        
    ElseIf changer = "finis1" Then
         
            Shape1.Visible = False
            Shape2.Visible = True
            Shape3.Visible = False
            Shape4.Visible = False
            Shape5.Visible = False
            changer = "finis2"
           
    ElseIf changer = "finis2" Then
            Shape1.Visible = False
            Shape2.Visible = False
            Shape3.Visible = True
            Shape4.Visible = False
            Shape5.Visible = False
            changer = "finis3"
           
    ElseIf changer = "finis3" Then
            Shape1.Visible = False
            Shape2.Visible = False
            Shape3.Visible = False
            Shape4.Visible = True
            Shape5.Visible = False
            changer = "finis4"
            
    ElseIf changer = "finis4" Then
            Shape1.Visible = False
            Shape2.Visible = False
            Shape3.Visible = False
            Shape4.Visible = False
            Shape5.Visible = True
            changer = "debut"
           
    End If
        
       

        
'End If

End Sub

Private Sub Form_Load()
    'controleTimer
    Timer4.Interval = 200
    changer = "debut"
    'tempsExecution
    maxi
    
End Sub

Private Sub Timer4_Timer()

    inProgress
End Sub
'cette procedure me permet de regler la durer d'affichage
Public Sub maxi()

Dim T As Long

frmAttente.Show
T = Timer + 20
Do While Timer < T
DoEvents
Loop
Unload frmAttente
End Sub

Conclusion :


merci à la communauté codes sources
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 (radicalc3d)