Создание ActiveX-элемента PasswordEx

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

Из построения предыдущего ActiveX-элемента Вы знаете, что он может существовать в двух ипостасях - а именно на этапе разработки программы и на этапе её выполнения. Для передачи свойств из одного состояния в другое служит объект PropBag типа PropertyBag.

Вставьте в код Вашего ActiveX-элемента следующие строки:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  m_strPassword = PropBag.ReadProperty("Password", "")
  m_tMaxAttempt = PropBag.ReadProperty("MaxAttempt", 1)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  PropBag.WriteProperty "Password", m_rPassword, ""
  PropBag.WriteProperty "MaxAttempt", m_MaxAttempt, 1
End Sub

Убедитесь, что добавленный код позволяет запоминать свойства для нашего ActiveX-элемента. Для этого задайте какое-нибудь значение для свойств Password и MaxAttempt запустите программу и закройте её. Ваши значения для свойств Password и MaxAttempt будут сохранены (через объект PropBag).

hidden/visible