Mark_Meng
Apr 20th, 2001, 04:20 PM
Can someone explain why the code below does not work. I create a user control and type something in the datafield at property window. But it will disappear after I run the app. Can somebody help? Thanks very much
private m_DataField as string
Public Property Let DataField(vDatafield As String)
m_DataField = vDatafield
PropertyChanged "DataField"
End Property
Public Property Get DataField() As String
DataField = m_DataField
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
fpblnYes.DataField = PropBag.ReadProperty("DataField", DataField)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("DataField", m_DataField, DataField)
End Sub
private m_DataField as string
Public Property Let DataField(vDatafield As String)
m_DataField = vDatafield
PropertyChanged "DataField"
End Property
Public Property Get DataField() As String
DataField = m_DataField
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
fpblnYes.DataField = PropBag.ReadProperty("DataField", DataField)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("DataField", m_DataField, DataField)
End Sub