如何添加 DataField 属性?

Question

自己做了个控件，但加不了 DataField 属性，提示“创建的成员已经被 Extender 对象所使用”，要怎样才能添加这个属性呢？

Answer 1

'缺省属性值:
Const m_def_DataField = ""
'属性变量:
Dim m_DataField As StringPublic Property Get DataField() As String
  DataField = m_DataField
End PropertyPublic Property Let DataField(ByVal New_DataField As String)
  m_DataField = New_DataField
  PropertyChanged "DataField"
End Property'为用户控件初始化属性
Private Sub UserControl_InitProperties()
  m_DataField = m_def_DataField
End Sub'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  m_DataField = PropBag.ReadProperty("DataField", m_def_DataField)
End Sub'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  Call PropBag.WriteProperty("DataField", m_DataField, m_def_DataField)
End Sub