Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How can I set the property of a button from a procedure?
Message
From
16/04/1998 13:49:41
 
 
To
16/04/1998 13:47:48
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00092543
Message ID:
00092608
Views:
30
>>>>>>>>>How can I set the property of a button from a procedure?
>>>>>>>>>From a menu option and in a procedure file, I want to enable
>>>>>>>>>a button on my form. any ideas?
>>>>>>>>
>>>>>>>>As long as you keep reference to a form, you can use this reference:
>>>>>>>>oApp.frm1.cmdButton.enabled=.t.
>>>>>>>---
>>>>>>>OK - we said you could createobject for a class and reference a method
>>>>>>>from that class, but we did not say anything about creatobject with a FORM
>>>>>>>and reference objects on that from? can I :
>>>>>>>omy_form = createobject("myform") and then
>>>>>>>omy_form.cmdbutton.enabled - .t. ????
>>>>>>>can I do this? and it this the way it is done?
>>>>>>
>>>>>>Yes, you should link form object to variable or much better to app object property:
>>>>>>oApp.Frm1=createobject("class1")
>>>>>>or
>>>>>>DO FORM frm1 name oApp.frm1 linked
>>>>>---
>>>>>I tried to o.my_form=createobject("my_from") and I got an
>>>>>error message saying: class definition MY_FORM not found?
>>>>>can you help with this? MY_FORM is my main FORM.
>>>>
>>>>You had it:
>>>>DO FORM frm1 name oApp.frm1 linked
>>>---
>>>I guess I have missed a step.
>>>I want to reference a button on a form, but my form is not a class.
>>>could you please me a smal sample of code to do this?
>>
>>Rob, i just gave you the sample. Did you read replies? Repeating:
>>DO FORM frm1 name oApp.frm1 linked
>>oApp.frm1.cmdButton.Enabled=.t.
>---
>Here is the code I am using and it is not working:
>DO FORM updatcal oApp.updatcal linked
>oApp.updatcal.cmdenterquery.Enabled=.t.
>is this all the code?

Where is name? Should i repeat one more time?
Edward Pikman
Independent Consultant
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform