Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ADD OBJECT formset1.form1.label1 AS label WITH ???
Message
From
14/12/2000 11:24:11
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00453395
Message ID:
00453426
Views:
27
Hi Larry, and thanks for your reply..
I took that code right out of the class browser.
It looks like the vfp compiler likes the hierarchical levels as long
as you make your FORMS in the FORMS designer...:)

>Robert,
>I don't you can nest hierarchical levels in an ADD OBJECT command. Try breaking out the form class to its own definition and add the label to it:
>PUBLIC oformset1
>
>oformset1=NEWOBJECT("formset1")
>oformset1.Show
>
>DEFINE CLASS formset1 AS formset
>DataSession = 1
>AutoRelease = .T.
>Name = "Formset1"
>
>ADD OBJECT form1 AS form1
>ENDDEFINE
>
>DEFINE CLASS form1 as form
>Top = 14
>Left = 15
>DoCreate = .T.
>Caption = "Form1"
>Name = "FORM1"
>
>ADD OBJECT label1 AS label WITH ;
>Caption = "Label1", ;
>Height = 17, ;
>Left = 120, ;
>Top = 108, ;
>Width = 40, ;
>Name = "Label1"
>ENDDEFINE
>
>>I have a syntax problem with this line...
>>ADD OBJECT formset1.form1.label1 AS label WITH;
>>any ideas?
>>here is my code...
>>
>>PUBLIC oformset1
>>
>>oformset1=NEWOBJECT("formset1")
>>oformset1.Show
>>
>>DEFINE CLASS formset1 AS formset
>>
>>
>> DataSession = 1
>> AutoRelease = .T.
>> Name = "Formset1"
>>
>>
>> ADD OBJECT form1 AS form WITH ;
>> Top = 14, ;
>> Left = 15, ;
>> DoCreate = .T., ;
>> Caption = "Form1", ;
>> Name = "FORM1"
>>
>>
>> ADD OBJECT formset1.form1.label1 AS label WITH ;
>> Caption = "Label1", ;
>> Height = 17, ;
>> Left = 120, ;
>> Top = 108, ;
>> Width = 40, ;
>> Name = "Label1"
>>
>>
>>ENDDEFINE
Robert Keith
Independent Developer
San Antonio, Texas
E-mail address:
rebelrob1@yahoo.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform