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:
01321060
Views:
15
>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 :-)

Instead of regular commandbutton, how would chg it to a cmdbutton I created in a vcx
something like .class="mycmdbtn" ??
"Build a man a fire, and he's warm for a day.
Set a man on fire, and he's warm for the rest of his life."
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform