UserControl - не сохраняются свойства

[djalex777]

Есть форма и на ней UserControl.

Код UserControl:

Код: Выделить всё

Option Explicit
Dim sCaption As String

Public Property Get Caption() As String
Caption = sCaption
End Property

Public Property Let Caption(ByVal value As String)
sCaption = value
End Property


У UserControl-а на форме меняю свойство Caption. Запускаю программу (F5), останавливаю и свойство Caption опять пустое. Давно не работал с UserControl. Никак не могу понять что я упускаю.

[arthur2]

Запусти создание свойств контрола мастером - и увидишь, чем должен отличаться код, который сохраняет свойства

[trash]

Нужно обрабатывать события USerControl_ReadProperties/WriteProperties

[djalex777]

Спасибо, разобрался. Для этой задачи и нужен PropertyBag