Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Adding cmdbuttons programatically
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
01321009
Message ID:
01321048
Views:
16
Sure,
But I just get the code, changed variable name (because I just hate one letter variables) and ...
:-)


>There's better method to access an object in a container by its name
>
>...
>    with GETPEM(thisform, lcButtonName)
>...
>
>
>>
>>Something like (Starting from (0,0) and have 3 buttons at a row:
>>
>>lnTop = 0
>>lnLeft = 0
>>FOR i = 1 TO 80
>>    lcButtonName = 'cmd'+ALLTRIM(STR(i))
>>    thisform.AddObject(m.lcButtonName,'commandbutton')
>>    with evaluate('thisform.' + m.c)
>>         .Top     = m.lnTop
>>         .Left    = m.lnLeft
>>         IF i % 3 == 0
>>            lnTop  = lnTop + .Height + 1
>>            lnLeft = 0
>>         ELSE
>>            lnLeft = lnLeft + .Width + 2
>>         ENDIF
>>         .visible = .t.
>>    endwith
>>next
>>
>>Not tested :-)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform