olicool
Messages postés16Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention 5 mai 2003
-
5 mai 2003 à 23:47
dread2010
Messages postés5Date d'inscriptionmercredi 16 mai 2007StatutMembreDernière intervention19 mai 2007
-
17 mai 2007 à 13:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
dread2010
Messages postés5Date d'inscriptionmercredi 16 mai 2007StatutMembreDernière intervention19 mai 2007 17 mai 2007 à 13:46
merci c'est simple et efficace.....cool
jrbleboss
Messages postés480Date d'inscriptionjeudi 6 mai 2004StatutMembreDernière intervention 3 septembre 20071 28 mars 2005 à 17:36
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
fazep
Messages postés1Date d'inscriptiondimanche 16 janvier 2005StatutMembreDernière intervention24 janvier 2005 24 janv. 2005 à 08:51
... si quelqu'un a sait comment changer la couleur de la barre de progression je suis preneur...
sebmafate
Messages postés4936Date d'inscriptionlundi 17 février 2003StatutMembreDernière intervention14 février 201437 8 oct. 2003 à 19:59
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
kiminox
Messages postés33Date d'inscriptionjeudi 27 septembre 2001StatutMembreDernière intervention 4 octobre 2003 8 oct. 2003 à 19:49
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
sebmafate
Messages postés4936Date d'inscriptionlundi 17 février 2003StatutMembreDernière intervention14 février 201437 7 mai 2003 à 07:04
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
cs_GRenard
Messages postés1662Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention30 juillet 20081 6 mai 2003 à 16:24
et les elseif ? ca srait bien non !? ou encore mieux un petit select case...
sylric
Messages postés91Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention22 août 2003 6 mai 2003 à 14:03
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
MaxiGigi
Messages postés1Date d'inscriptiondimanche 4 mai 2003StatutMembreDernière intervention 6 mai 2003 6 mai 2003 à 11:22
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.
olicool
Messages postés16Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention 5 mai 2003 5 mai 2003 à 23:47
17 mai 2007 à 13:46
28 mars 2005 à 17:36
C'est pas trop mal 8/10
JRB
24 janv. 2005 à 08:51
8 oct. 2003 à 19:59
si oui tu bornes ton progressbar avec ce nombre et tu incrémentes ton compteur a chaque requête terminée.
Séb
8 oct. 2003 à 19:49
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
7 mai 2003 à 07:04
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
6 mai 2003 à 16:24
6 mai 2003 à 14:03
- 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
6 mai 2003 à 11:22
5 mai 2003 à 23:47