Visual Basic 6. Руководство разработчика


         

Цикл жизни элемента управления - часть 3


Инициализирует экземпляр элемента управления режима конструи­рования.

InitProperties.

Присваивает начальные значения свойствам.

При переключении из режима конструирования в режим выполнения происходят следующие события.

WriteProperties.

Сохраняет свойства, перечисленные в окне Properties.

Terminate. Удаляет экземпляр элемента управления режима конструирования.

Initialize.

Инициализирует новый экземпляр (режима выполнения) элемента управления.

ReadProperties.

Считывает сохраненные свойства.

При переключении из режима выполнения в режим конструирования происходят следующие события.

Initialize.

Инициализирует экземпляр элемента режима конструирования.

ReadProperties.

Считывает значения из окна Properties и присваивает их соот­ветствующим свойствам.

Совет

При переключении из режима выполнения в режим конструирования ни одно событие WriteProperties не происходит. Как и ожидалось, Visual Basic не сохраняет свойства, которые изменяются во время выполнения, и переустанавливает элемент управления ActiveX в значения набора свойств из окна Properties режима конструирования. Другими словами, изменения свойств элемента управления, произошедшие в режиме конструирования, продолжают действовать в режиме выполнения. Обратное утверждение неверно. Изменения, сделанные во время выполнения, при переключении обратно в режим конструирования сбрасываются.

Для поддержки значений свойств при переключении элемента управления из режима конструирования в режим выполнения необходимо добавить несколько строк кода в события ReadProperties и WriteProperties. Мы уже знаем, как значения свойства записываются и считываются из объекта Property Bag. Поэтому код для свойства Title не вызывает вопросов:

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Debug.Print "writing properties"

PropBag.WriteProperty "Title", m_Title, "Control Title"

End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Debug.Print "reading properties"

Title = PropBag.ReadProperty ("Title", "Control Title")

End Sub




Содержание  Назад  Вперед