1个回答
展开全部
不知道你问的是这个不
Private UserCpation As String
Property Let Caption(k As String)
UserCpation = k
End Property
Property Get Caption() As String
Caption = UserCpation
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
UserCpation = PropBag.ReadProperty("caption", UserControl.Name)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Caption", UserCpation, UserControl.Name
End Sub
Private UserCpation As String
Property Let Caption(k As String)
UserCpation = k
End Property
Property Get Caption() As String
Caption = UserCpation
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
UserCpation = PropBag.ReadProperty("caption", UserControl.Name)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Caption", UserCpation, UserControl.Name
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询