mySQL15
Messages postés79Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention28 août 2010
-
28 mai 2007 à 23:24
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 2007
-
29 mai 2007 à 01:33
Bonsoire a tous j'ai un code qui ajoute +1 a une progresse bar la tout va bien
mais au bout du dernier il y a un probleme
runtime error '380';
Invalid property value
alors la moi je suis bien en bété par un problème
de débutant
voila se que il se passe dans un command1 quand on presse sur le bouton
la textbox1 qui contient préalablement un chiffre devient la valeur max de la
progressbar
ensuite dans le command1 lance timer2
bar1 = progressbar
et voici le code du timer2 ou il y a l'ereur a la ligne Bar1.Value = Bar1.Value + 1
Private Sub Timer2_Timer()
Bar1.Value = Bar1.Value + 1 'incrémente la progresse bar
de +1
If Bar1.Value = Text1.Text Then 'si la valeur qui et dans le
text1 et la même que celui de la valeur de la progresse bar alors stop
Timer2.Enabled = False 'on stop l'incrémentation
Command1.Enabled = True 'on dégrise le command1 qui
se grisent préalablement après avoir cliquer sur command1 une foi
Bar1.Value = 0 'on remet la progresse bar a
zéro
End If 'fermeture de la balise ouverte
End Sub 'fin du code
J'avoue ne pas comprendre ou
et mon erreur si j'ai bien comprit voila ce que il se passe: la bar de
progression a atteint sont maximum mais le timer continu de l'incrémenté ?
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 20072 29 mai 2007 à 01:33
Bonsoir,
il faut tester avant d' incrémenter
Private Sub Timer2_Timer()
If Bar1.Value = Text1.Text Then 'si la valeur qui et dans le text1 et la même que celui de la valeur de la progresse bar alors stop
Timer2.Enabled = False 'on stop l'incrémentation
Command1.Enabled = True 'on dégrise le command1 qui se grisent préalablement après avoir cliquer sur command1 une foi
Bar1.Value = 0 'on remet la progresse bar a zéro
Else
Bar1.Value = Bar1.Value + 1'incrémente la progresse bar de +1
End If 'fermeture de la balise ouverte
End Sub 'fin du code