begin process at 2012 02 13 04:59:37
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

 > PROGRESS BAR

PROGRESS BAR


 Information sur la source

Note :
8,5 / 10 - par 2 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :05/05/2003 Date de mise à jour :05/05/2003 22:50:30 Vu / téléchargé :11 398 / 1 573

Auteur : dynamic66

Ecrire un message privé
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 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

  • '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
'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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip VOIR SI UN FICHIER EXISTE !

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna

Commentaires et avis

Commentaire de olicool le 05/05/2003 23:47:33

Pas mal basique , mais bien.

Commentaire de MaxiGigi le 06/05/2003 11:22:21

Merci t'assure G besoin de truc comme ça pour apprendre !!! Aussi, tu saurais pas comment configurer TabScript (les onglets) je n'arrive pas a créer des onglets indépendant. Merci.

Commentaire de sylric le 06/05/2003 14:03:28

Pour bien commencer, je peux te donner quelques conseils :
   - Quand tu déclare une variable essaie d'indiquer sa portée et surtout son type (c'est plus joli et ta machine tournera plus vite), dans ton cas : dim a as byte
   - Quand tu utilises If et que tu n'as qu'une seule instruction, pas besoin du END IF, dans ton cas :
If a = 0 Then Timer1.Enabled = True, tu mets tout sur la même ligne.
Quand tu as plusieurs instructions pour le même cas If, essaie de les regrouper :
If a = 100 Then
    Timer1.Enabled = False
    MousePointer = 0
End If
Et dans tous les cas, et c'est valable pour tout le monde, pensez à indenter vos lignes de code, c'est plus clair !

Sylric

Commentaire de GRenard le 06/05/2003 16:24:47

et les elseif ? ca srait bien non !? ou encore mieux un petit select case...

Commentaire de sebmafate le 07/05/2003 07:04:41 administrateur CS

pour faire simple voici quelques raccourcis pour ton code :

If a = 0 Then
Timer1.Enabled = True
End If
--&gt; Timer1.Enabled = (a &lt; 100)

If a &lt; 50 Then
Label1.ForeColor = &HFF
End If
If a &gt; 50 Then
Label1.ForeColor = &H80FFFF
End If
--&gt; Label1.ForeColor = iif( a &lt; 50 , &HFF ,  &H80FFFF )

et
If a &lt; 100 Then
MousePointer = 11
End If
une flèche
If a = 100 Then
MousePointer = 0
End If

--&gt; MousePointer = iif( a = 100 , 0 , 11 )

Séb

Commentaire de kiminox le 08/10/2003 19:49:50

et pour faire un progress bar quand on ne connait pas le temps total?
ex : j'ai une requete de milliers d'insertion
je mets donc un progress bar pour faire patienter mais le pb c'est que je connais pas le temps total...
comment faire?
z'avez une idée?

Merci

Commentaire de sebmafate le 08/10/2003 19:59:10 administrateur CS

tu connais le nombre de requêtes ?

si oui tu bornes ton progressbar avec ce nombre et tu incrémentes ton compteur a chaque requête terminée.

Séb

Commentaire de fazep le 24/01/2005 08:51:52

... si quelqu'un a sait comment changer la couleur de la barre de progression je suis preneur...

Commentaire de jrbleboss le 28/03/2005 17:36:28

le mieux c'est de se faire sa progress bar perso qui change de couleur et tout mais bon ...........

C'est pas trop mal 8/10

JRB

Commentaire de dread2010 le 17/05/2007 13:46:45

merci c'est simple et efficace.....cool

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,281 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales