Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 07:10:00

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 729 membres
76 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 800 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PROGRESS BAR

Information sur la source

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é: 10 320 / 1 471

Auteur : dynamic66

Ecrire un message privé

Note :

8,50 / 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Progress Bar
- MSSCCPRJ.SCC198 octets
- Progress Bar.exe20 480 octets
- Progressbar.frm 2 817 octets
- progressbar.vbp 773 octets
- progressbar.vbw 49 octets

Télécharger le zip

Sources du même auteur

VOIR SI UN FICHIER EXISTE !

Toutes les sources de dynamic66

Sources de la même categorie

CONVERTION VB6-VB5 par Galactus13

TABLEAU INITIALISE par CGSI3

PAGE DE TRAVAIL SOUS EXCEL par MotorsV10

ISOLATOR - GÉNÉREZ LES FICHIERS .MANIFEST POUR VOS EXE, DLL ... par Renfield

CONTROLE DE LA BARRE DES TACHES A DISTANCE par djgab21

Toutes les sources de la catégorie Trucs & Astuces

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
--> Timer1.Enabled = (a < 100)

If a < 50 Then
Label1.ForeColor = &HFF
End If
If a > 50 Then
Label1.ForeColor = &H80FFFF
End If
--> Label1.ForeColor = iif( a < 50 , &HFF , &H80FFFF )

et
If a < 100 Then
MousePointer = 11
End If
une flèche
If a = 100 Then
MousePointer = 0
End If

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