Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Continuous mousedown
Message
De
28/09/2006 17:27:08
 
 
À
28/09/2006 15:11:57
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
01157829
Message ID:
01157994
Vues:
15
>>>A quick example:
>>>
>>>
>>>
>>>	Procedure command1.MouseUp   &&(1)
>>>	Lparameters nButton, nShift, nXCoord, nYCoord
>>>	Thisform.label1.Caption = "MOUSE UP"

>>>	Thisform.timer1.Enabled = .F.
>>>	Endproc
>>>
>>
>>
>>	Procedure command1.MouseUp   &&(2)
>>	Lparameters nButton, nShift, nXCoord, nYCoord
>>	Thisform.timer1.Enabled = .F.
>>	Thisform.label1.Caption = "MOUSE UP"
>>	Endproc
>>
>
>Fabio:
>
>I said it was a "quick" example :-). Why do you think (2) is better than (1)? If you say so, I am shure there must be a good reason, can you explain it for me. In production code, label1 and those caption settings would'nt even be there I think.
>
>Carlos

The caption can end with a wrong value:
>>>	Thisform.label1.Caption = "MOUSE UP"
* the timer event can to be called here ( with Autoyield = .T. )
>>>	Thisform.timer1.Enabled = .F.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform