GHGFSJD
Messages postés113Date d'inscriptionsamedi 11 novembre 2000StatutMembreDernière intervention16 août 2008
-
11 juin 2008 à 17:39
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 2014
-
11 juin 2008 à 20:30
Bonjour,
Voila mon gros soucis, dans mon application j'ai une procedure qui est active tout le temps et qui m'actualise aussi mon control LABEL.CAPTION a chaque fois que j'appuie sur une touche clavier par exemple.
J'aimerais a default d'un timer (il n'y as que ca qui fonctionne correctement)
créé une procedure qui detecte un contenus de "5555" dans le label par exemple puis SHUTDOWN.
Si j'utilise "Label2_Change" ca fait buger mon application et je ne veus pas de timer.
Merci de votre aide
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 11 juin 2008 à 18:09
Bonjour,
je ne vois pas pourquoi et comment Label2_change planterait ton appli si tu exécutes une instruction alors que son caption est "5555" !
Si c'est parce que ton autre procédure continue à modifier, utilise une variable (booléenne, par exemple) pour la stopper ...
GHGFSJD
Messages postés113Date d'inscriptionsamedi 11 novembre 2000StatutMembreDernière intervention16 août 2008 11 juin 2008 à 19:18
Oui tout a fait ma procedure continue a modifieret donc ca plante tout, si j'utilise un timer pour surveiller le contenus du label l'execution shutdown fonction parfaitement mais je ne veus pas de timer.
Aurais tu un exemple de code a me filer ?
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 11 juin 2008 à 20:30
Je ne vois pas pourquoi Label2_Change fait planter ton appli, même si l'autre procédure contine de la modifier. Il n'y a pas de raison. Seule la procédure appelée par ce changement ne doit pas venir modifier le label, car, là, oui effectivement il y a un risque d'appel en boucle :
----
Private Sub Label2_Change()
If Label2.Caption = "5555" Then
Call TaProcedureDeTraitement
End If
End Sub , ----
, ----
[code.aspx?ID=41455 Coloration Syntaxique pour VB6 By ]