有关自写控件的问题

[CatchWind]

如何讓自寫控件的Caption初始值與其Name的初始值相同.好比你在窗體上引用多個標簽,其Caption屬性會自動設為Label1,Label2,Label3.....

[sworddx]

在usercontrol_initialize事件中定制。

[sworddx]

private sub usercontrol_initialize()
usercontrol.caption=usercontrol.name
end sub

[myhot-河马吃草]

private sub usercontrol_initialize()
usercontrol.caption=usercontrol.name
end sub

[冰山来客123499]

Private Sub UserControl_InitProperties()
m_Caption =Extender.Name
End Sub

[CatchWind]

但这些都只能返回设计时的名称,比如设计时为MLabel,窗体上引用此控件时的名称为MLabel1,MLabel2,MLabel3,但其Caption属性却永远为MLabel,并未与Name同步.

[sworddx]

Private Sub UserControl_InitProperties()
m_Caption = UserControl.Name
End Sub