我现在想自己做一个控件。这个空间有两个label组成。另外,我自己加了2个属性:prop1, prop2.现在的问题是,如果我想让label2.caption= prop1+prop2,应该怎么做啊?好像只能一个属性对应子控件的一个属性。我这种情况怎么办呢?另外,我发现当我使用这个自定义控件的时候,不管我怎么设置(无论是用代码写也好,还是用属性窗口设置), backcolor这个属性总是黑色(button Text),真把我气死了。我试过在控件中把所有的子控件设成透明,还有将usercotrol的backclor 映射到label1的backcolor上,都不行。
我彻底没辙啦,大家帮帮我吧!!!

解决方案 »

  1.   


    Public Property Get prop1() As Variant
    prop1 = Label1.Caption
    End PropertyPublic Property Let prop1(ByVal vNewValue As Variant)
    Label1.Caption = vNewValue
    End PropertyPublic Property Get prop2() As Variant
    prop2 = Label2.Caption
    End PropertyPublic Property Let prop2(ByVal vNewValue As Variant)
    Label2.Caption = vNewValue + prop1
    End Property关于第二个问题,我没遇见过,如果你的空间不是很麻烦的话
    建议重新做吧,可能是你在做的时候不小心设置了什么属性。