Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
BindEvent with Labels
Message
 
 
À
20/08/2007 06:46:56
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01249083
Message ID:
01249101
Vues:
18
>I am able to do this alone?

Do you have anyone working with you? Otherwise you may try to do it alone...

Here is a sample:
local loControl
for each loControl in thisform.Controls
    if loControl.BaseClass = 'Label'
       bindevent(loControl, "MouseEnter",thisform,"Change_BackStyle")
       bindevent(loControl, "MouseLeave",thisform,"Reset_BackStyle")
    endif
next
** Change_BackStyle method
local loCalledBy && as Object
LOCAL ARRAY aCurEvent[1]

aevents[aCurEvent,0]
loCalledBy = aCurEvent[1] && should be a label
if vartype(m.loCalledBy)= "O"
   loCalledBy.BackStyle = 1
endif
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform