Progresse bar style facebook

Soyez le premier à donner votre avis sur cette source.

Vue 3 676 fois - Téléchargée 600 fois

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

Ajouter un commentaire

Commentaires

Signaler
NHenry
Messages postés
14570
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
21 octobre 2019
 136 -
Bonsoir,

On voit une occurrence de Timer4, mais comme il n'y a pas le UserControl, dur de se faire un avis.

Peux-tu poster une source qui peut servir d'exemple, ici ?
Signaler
cs_goc
Messages postés
19
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
21 avril 2011
 -
salut

voici une autre version de ton programme
d'abord il faut créer les shapes en indexés (simple copier/coller), alors tu auras shape(0), shape(1)..etc..
ensuite, je te donne les sp modifiés (timer4 et maxi sont inchangés)

Option Explicit
Dim changer As String
dim vcpt1 as integer 'a ajouter
'------------------------------
Private Sub Form_Load()
'controleTimer
Timer4.Interval = 200
vcpt=0 'a ajouter
'tempsExecution
maxi

End Sub
'---------------------------------
Private Sub inProgress()
dim i as integer

for i=0 to 4
if vcpt=i then shape(i).visible=true else shape(i).visible=false
next i
vcpt1=vcpt1+1
if vcpt1>4 then vcpt1=0
end sub
Signaler
cs_goc
Messages postés
19
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
21 avril 2011
 -
heu.. dans formload, c'est vcpt1 qu'il faut initialiser et non vcpt (vcpt1=0)

par contre, tu devrais au moins mettre une recopie d’écran, car on ne sait pas comment sont faites tes shapes
le plus simple, c'est de mettre ta source complète zippée
Signaler
cs_Nectar108
Messages postés
16
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
22 avril 2013
 -
Bonjour,
Je suis d'accord avec "GOC", une source complète zippée, serait la bienvenue car extremment pratique !
Aussi, une capture d'écran ne serait pas un luxe inutile pour se rendrie compte immédiatement de l'effet graphique.
Merci aussi à "GOC" d'avoir apporter une simplification au codage. Mais avec cettef nouvelle version, as-t-on vraiment encore besoin de la variable "changer" ?
Et la procedure maxi, qui sert a implementer un timer, est-elle vraiment utile ?
Bref, autant de questions qui auraientvprobablement trouvées réponse dans une source avec toutes ses formes et modules, zippée, comme d'habitude. Merci de votre attention !
Nectar108
Signaler
-
excuser moi de ne pas y avoir ajouter le fichier a télécharger,c'est fait maintenant.
j’espère que vous aller aimer.
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)