自定义控件中自定义属性问题

[lxh787213]

Dim inFileName As String
Public Property Get inname() As String
inname = inFileName
End Property
Public Property Let inname(ByVal vNewValue As String)
inFileName = vNewValue
PropertyChanged "inname"
End Property
在测试的时候填写了inname后，运行测试后inname和InFileName都是空值，代码是不是错了还是怎么样啊

[tulyroll]

代码不完整，属性值未写入包
可以这样定义：

Const m_def_inname = "初始值"
Dim inFileName As String

Public Property Get inname() As String
inname = inFileName
End Property
Public Property Let inname(ByVal vNewValue As String)
inFileName = vNewValue
PropertyChanged "inname"
End Property

Private Sub UserControl_InitProperties()
inFileName = m_def_inname
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
inFileName = PropBag.ReadProperty("inname", m_def_inname)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("inname", inFileName, m_def_inname)
End Sub
资源里有实例，下载地址：http://download.csdn.net/source/3499246