Progresse bar style facebook
Soyez le premier à donner votre avis sur cette source.
Vue 3 705 fois - Téléchargée 602 fois
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
merci à la communauté codes sources
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
Commentaires
j’espère que vous aller aimer.
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
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
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
- Messages postés
- 14652
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 18 février 2020
139On 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 ?
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.