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

Добавление свойств

В окно кода для нашего ActiveX-элемента мы должны добавить свойства Password и MaxAttempt.

Как Вы должны помнить из предыдущего примера разработки ActiveX-элемента, для этого нам надо, во-первых, добавить внутренние свойства для нашего элемента PasswordBox, и, во-вторых, сделать эти свойства видимыми снаружи (с помощью

Property Let и Property Get).

Приступаем к практическому написанию кода.

Добавляем внутренние свойства. Для этого в окне кода ActiveX-элемента пишем

Dim m_strPassword As String
Dim m_intMaxAttempt As Integer
Dim m_intUsedAttempt As Integer

Добавленные переменные н их описание перечислены в следующей таблице:

Переменная	Тип	Описание
m_strPassword	String	Переменная для хранения пароля.Она будет доступна на этапе разработки для чтения и для записи (с помощью Property Let и Property Get).
m_intMaxAttempt	Integer	Переменная для хранения максимального числа попыток.Она будет доступна на этапе разработки для чтения и для записи (с помощью Property Let и Property Get).
m_intUsedAttempt	Integer	Внутренняя переменная, в которой будет храниться текущее число израсходованных попыток (т. е. сколько раз пользователь уже вводил пароль).Эта переменная не будет видна снаружи и, следовательно, для неё мы не будем писать Property Let и Property Get.

Пишем теперь код, который сделает наше свойство Password доступным на этапе разработки (т. е. программист сможет задавать его в окне свойств Visual Basic'а):

Public Property Get Password() As String
  Password = strPassword
End Property
Public Property Let Password(strNewPassword As String)
  strPassword = strNewPassword
End Property

Код для опубликования свойства MaxAttempt добавьте сами. Он полностью аналогичен приведённому.

hidden/visible