Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Add a ctrl source to a commandbutton
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01543604
Message ID:
01543609
Vues:
97
This message has been marked as the solution to the initial question of the thread.
Try to use DynamicFontUnderline:
*** Form Init event
oGrid.Column1.DynamicFontUnderline = "thisform.WhenModify()"

*** WhenModify method
 oGrid.Column1.Button1.CAPTION = V_Resident.cetats
RETURN .f.
>Hi dragan,
>
>i try
>
>
>
> BINDEVENT( oGrid.Column1.Text2 ,"Refresh" , oGrid , "WhenModify" , 1 )
>   BINDEVENT( oGrid.Column1 ,"Refresh" , oGrid , "WhenModify" , 1 )
>
>
>and a method whenmodify
>
>
>LOCAL laObjects(1),;
>  loEventSource
>
>AEVENTS( laObjects, 0)
>loEventSource = laObjects(1)
>
>WITH loEventSource
> 
>  DO CASE
>
>      *-----------------------------------------------------------------
>    CASE INLIST( .T. , 'text2' $ LOWER( .NAME ) , .BASECLASS <> 'Commandbutton')
>  
>      loEventSource.CAPTION = V_Resident.cetats
>
>
>    OTHERW
>  ENDCASE
>
>
>ENDWITH
>
>
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform