PRB: Custom ActiveX Property Sheet Entries Are Not Saved

MORE INFORMATION

When entering properties via the standard property pane, the host application is setting the properties for your control and, therefore, knows they have been changed.

The host application knows nothing about changes you make via property pages or that there are side effects of other property changes. The user control needs to explicitly tell the host application that properties have been changed, so it can see the changes and save them.

The following example illustrates setting properties:

------ in the property page ------

      Private Sub LabelCaption_Changed()
        Changed = True     ' Enable Apply button
      End Sub

      Private Sub ApplyChanges()
      Dim X As Variant
        For Each X In SelectedControls
          X.Caption = LabelCaption.Text
        Next X
      End Sub
				

------ in the user control ------

      Public Property Let Caption(ByVal NewVal As String)
        lblMain.Caption = NewVal
        PropertyChanged "Caption"
      End Sub
				

This code assumes that you have all other supporting code working, such as the InitProperties, ReadProperties, and WriteProperties events.