关于OCX自定义属性
小的想创建第一个OCX,只在OCX中放置一个label控件,调用者的Caption属性即label的Caption属性,只想用代码完成,程序如下:
'自定义属性

Public Property Get Caption() As String

Caption = Label11.Caption

End Property

Public Property Let Caption(ByVal NewCaption As String)

Label1.Caption = NewCaption

VB.UserControl.PropertyChanged "Caption "

End Property


Private Sub UserControl_InitProperties() '初始化属性

Caption = VB.UserControl.Extender.Name

End Sub


Private Sub UserControl_ReadProperties(ProBag As PropertyBag) '读属性

VBRUN.PropBag.ReadProperty "Caption "

End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag) '写属性

VBRUN.PropBag.WriteProperty "Caption ", Caption

End Sub

结果屡试不成...请赐教T T
问题不是很难,请高手务必指点T T
要不小的必死矣T T

[解决办法]
Public Property Get Caption() As String

Caption = Label1.Caption

End Property

Public Property Let Caption(ByVal NewCaption As String)

Label1.Caption = NewCaption

PropertyChanged "Caption "

End Property


Private Sub Label1_Click()

End Sub

Private Sub UserControl_InitProperties() '初始化属性

Caption = Extender.Name

End Sub


Private Sub UserControl_ReadProperties(PropBag As PropertyBag) '读属性

Label1.Caption = PropBag.ReadProperty( "Caption ", "Label1 ")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag) '写属性

PropBag.WriteProperty "Caption ", Label1.Caption, "Label1 "

End Sub