Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Adding cmdbuttons programatically
Message
From
02/06/2008 13:26:12
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
01321009
Message ID:
01321066
Views:
16
>>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" ??

Change this line:
thisform.AddObject(m.lcButtonName,'commandbutton')
to:
thisform.NewObject(m.lcButtonName,'mycmdbtn', '<your classlib>')
Tamar
Previous
Reply
Map
View

Click here to load this message in the networking platform