Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dynamic Label
Message
From
01/03/2024 07:51:15
 
 
To
01/03/2024 06:01:41
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Title:
Miscellaneous
Thread ID:
01687658
Message ID:
01687667
Views:
50
can be done in more ways...
oLabel = createobject( "Label")
with oLabel
endwith
loForm.Addobject("elbl"+Alltrim(Recno()), "label", oLabel )
upd: not really certain if
scan
  cLabel = "elbl"+Alltrim(Recno())
  ADD OBJECT ("loForm."+m.cLabel)  AS label WITH ;
    Top = , ;
    Left = , ;
    Visible = .T., ;
    Name = m.cLabel
endscan
would work



>>>>I'm really sorry for my earlier wrong comments. It seems that you can't use With-Endwith the way you do. Try the following workaround instead:
>>>>
>>>>  oLabel = "elbl"+Alltrim(Str(i))
>>>>  loForm.Newobject(oLabel, "Label")
>>>>  With eval("loform."+olabel)
>>>
>>>Another option is my favorite trick (stolen from Fabio, he found it)
>>>
>>>with getpem(loForm, oLabel)
>>
>>There are always several ways to the same goal with FoxPro. :-)
>
>There were two versions of the proverb, can't decide which one I prefer:
>
>if it can't be done three ways in fox
>- it's not worth doing at all
>- it can't be done anyway
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform