Progressebar et pourcentage comme dans une installation
Soyez le premier à donner votre avis sur cette source.
Vue 8 334 fois - Téléchargée 1 089 fois
Description
c'est comme une installation ,sauf que la source est axé sur la progression ... on y trouve :
- comment faire progréesser la progessbar
- et surtout comment faire un pourcentage du travaille acomplie ...
téléchargé le zip c'est plus simple mais si vous etés plus tot copier / collé il vous faut une form
1 boutton
1 progressbar
et 3 timer
- comment faire progréesser la progessbar
- et surtout comment faire un pourcentage du travaille acomplie ...
téléchargé le zip c'est plus simple mais si vous etés plus tot copier / collé il vous faut une form
1 boutton
1 progressbar
et 3 timer
Source / Exemple :
Dim pour100 'poucentage Dim bptaill 'poucentage Dim addpour100 'poucentage Dim bpvalue 'poucentage / progression Dim anim ' animation Private Sub Command1_Click() Timer3.Interval = "1" Timer1.Interval = "1" 'pour le pourcentage '1/calucule pour100 = "0" 'c'est le chiffre final affiché sur la form bptaill = ProgressBar1.Width ' bpvalue = "30" addpour100 = bptaill / bpvalue addpour100 = 100 / addpour100 'je m'explique pour ceux qui ont pas compris 'pour avoir le pourcentage ont peux faire comme ça : 'en premier il faut diviser la taille total de la progressbar (Width) par la chose qui la fait progressée (ici une information virtuelle(bpvalue) 'on obtient un chiffre qu'il faut diviser par 100 (logique) 'et voila ont a le pourcentage ... 'cool non, si vous avez pas comprit (c'est vrai que je suis pas très clair contactez moi) anim = 0 'c est pour faire bouger le stylo de haut en bas End Sub Private Sub Timer1_Timer() ProgressBar1.Max = ProgressBar1.Width ' pour la Progressbar (pour la stoper) If ProgressBar1.Value >= (ProgressBar1.Max - 80) Then 'fait stoper la PB, c'est tres artisanale mais sa marche alors si vous avez mieux envoyer moi un mail. Timer2.Interval = "1" Timer1.Interval = "0" Else ProgressBar1.Value = ProgressBar1.Value + (bpvalue) End If 'pour le pourcentage '2/affichage pour100 = pour100 + addpour100 pour100 = pour100 Form1.Caption = CInt(pour100) 'pour arrondir End Sub Private Sub Timer2_Timer() ' pour la Progressbar (pour la stoper) If ProgressBar1.Value <= (ProgressBar1.Min + 80) Then 'fait stoper la PB, c'est tres artisanale mais sa marche alors si vous avez mieux envoyer moi un mail. Timer2.Interval = "0" Timer3.Interval = "0" MsgBox "Voila c'est tout. J'espére que sa te sera utile @+", vbDefaultButton1, "Fkiller" End Else ProgressBar1.Value = ProgressBar1.Value - (bpvalue) End If 'pour le pourcentage '2/affichage pour100 = pour100 - addpour100 pour100 = pour100 Form1.Caption = CInt(pour100) 'pour arrondir End Sub Private Sub Timer3_Timer() ' pour l'anim. If Picture1.Left > "3900" Then Picture1.Left = 3600 End If ' pour l'anim. '1/ de droit a gauche Picture1.Left = Picture1.Left + 8 '/2 de haut en bas If anim = 0 Then anim = 1 Else anim = 0 End If If anim = 0 Then Picture1.Top = 120 Else Picture1.Top = Picture1.Top + 9.8 End If End Sub 'De Fkiller 'fkyller@hotmail.com (oui c'est c'est bien fkYller :) 'N° ICQ : 104358060 'et désoler pour les fautes d'ohrtographe
Codes Sources
A voir également
- Progressebar et pourcentage comme dans une installation
- Format pourcentage vba ✓ - Forum - Visual Basic 6
- Impossible de trouver le fournisseur. il est peut-être mal installé ✓ - Forum - Visual Basic 6
- Visual basic 6 installer ✓ - Forum - Visual Basic 6
- Visual studio 2005 installer - Conseils pratiques - Visual Basic / VB.NET
- Automake install - Conseils pratiques - C / C++ / C++.NET
SuR la Progressbar ??
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.