回 帖 发 新 帖 刷新版面

主题:define class一个很严重的芝麻小问题

我define class myContainer AS container
我想在子类里面加上
commandbutton 还有optiongroup

是不是这样:
define class myContainer AS container
            width = 100
            height = 50
             add object myCommandButton AS commandbutton
                  with width = 80,height = 30
                   procedure click
                          do form 
                   endproc
              add object myOptionGroup AS optiongroup
                   with width = 80,height = 20
enddefine

这样有问题吗

我之前是建了一个基于commmandbutton的子类,然后在form的init事件里面我addobject
那样是没问题的,现在我把这个类改成容器,就不知道什么问题了

我本质上的意思就是想在form的init的事件里面动态添加控件

比如我刚开始基于commmandbutton的子类,我addobject就可以动态的添加一些commandbutton

但是我现在想基于container,就是不想只有一个commandbutton,想在里面多一个optiongroup,结果addobject的时候居然报错,请教是什么问题

回复列表 (共1个回复)

沙发

myOptionGroup1


myOptionGroup2

...

我来回复

您尚未登录,请登录后再回复。点此登录或注册