avengerfrance
Messages postés9Date d'inscriptionmercredi 17 septembre 2003StatutMembreDernière intervention26 janvier 2010
-
26 janv. 2010 à 21:21
jdbenoist
Messages postés1Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention 3 mars 2010
-
3 mars 2010 à 11:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
jdbenoist
Messages postés1Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention 3 mars 2010 3 mars 2010 à 11:23
Salut,
Sympa ton programme, j'ai appris plein de trucs.
Je me permets, en toute humilité de te proposer deux modifs:
1) Dans la routine "cercle" de "Form1", changer:
x1 = mTab(vIndex).Rectangle.Top
y1 = mTab(vIndex).Rectangle.Left
x2 = mTab(vIndex).Rectangle.Bottom
y2 = mTab(vIndex).Rectangle.Right
par:
y1 = mTab(vIndex).Rectangle.Top
x1 = mTab(vIndex).Rectangle.Left
y2 = mTab(vIndex).Rectangle.Bottom
x2 = mTab(vIndex).Rectangle.Right
pour respecter abscisses et ordonnées (cohérent avec l'algo qui suit dans ton code).
2) Pour arrêter les Threads, j'ai ajouté un "End" après le While de "cercle":
y1 += Dy
End If
End If
End While
End 'là le End ajouté
End Sub
Cela termine le programme, et le fait disparaître de la liste des processus dans
le Gestionnaire de tâches de Windows rubrique "processus".
J'espère que cela ne laisse pas de scories, mais je n'en suis pas sûr!
Amicalement.
Jean-Denis
jaknight007
Messages postés17Date d'inscriptionmardi 8 mars 2005StatutMembreDernière intervention16 août 2014 28 janv. 2010 à 19:28
Oui effectivement, ca plante... je ne me suis pas arrêté la dessus quand j'ai développé l'application. Désolé
mafieulemouton
Messages postés24Date d'inscriptionlundi 30 juin 2008StatutMembreDernière intervention26 janvier 2010 28 janv. 2010 à 02:44
ton application marche, mais quand j'ai voulu fermer la form... aie aie aie plantage. En gros ca continuait a tourner avec le formulaire qui répondait plus. Je croyais pourtant que l'utilisation de threads devaient améliorer la stabilité?
jaknight007
Messages postés17Date d'inscriptionmardi 8 mars 2005StatutMembreDernière intervention16 août 2014 27 janv. 2010 à 15:22
Merci AvengerFrance pour ton commentaire et un grand merci pour ta source aussi,
elle m'as été bien utile.
avengerfrance
Messages postés9Date d'inscriptionmercredi 17 septembre 2003StatutMembreDernière intervention26 janvier 2010 26 janv. 2010 à 21:21
Salut !
Bon j' ai regarder la source (c'est bien pensé, commenté en Français) donc super. De plus je suis simplement content que mon exemple (qui sent le moisi) a servi à quelqu'un. Qui de plus, montre une application beaucoup mieux construite ...
3 mars 2010 à 11:23
Sympa ton programme, j'ai appris plein de trucs.
Je me permets, en toute humilité de te proposer deux modifs:
1) Dans la routine "cercle" de "Form1", changer:
x1 = mTab(vIndex).Rectangle.Top
y1 = mTab(vIndex).Rectangle.Left
x2 = mTab(vIndex).Rectangle.Bottom
y2 = mTab(vIndex).Rectangle.Right
par:
y1 = mTab(vIndex).Rectangle.Top
x1 = mTab(vIndex).Rectangle.Left
y2 = mTab(vIndex).Rectangle.Bottom
x2 = mTab(vIndex).Rectangle.Right
pour respecter abscisses et ordonnées (cohérent avec l'algo qui suit dans ton code).
2) Pour arrêter les Threads, j'ai ajouté un "End" après le While de "cercle":
y1 += Dy
End If
End If
End While
End 'là le End ajouté
End Sub
Cela termine le programme, et le fait disparaître de la liste des processus dans
le Gestionnaire de tâches de Windows rubrique "processus".
J'espère que cela ne laisse pas de scories, mais je n'en suis pas sûr!
Amicalement.
Jean-Denis
28 janv. 2010 à 19:28
28 janv. 2010 à 02:44
27 janv. 2010 à 15:22
elle m'as été bien utile.
26 janv. 2010 à 21:21
Bon j' ai regarder la source (c'est bien pensé, commenté en Français) donc super. De plus je suis simplement content que mon exemple (qui sent le moisi) a servi à quelqu'un. Qui de plus, montre une application beaucoup mieux construite ...