Главная страницаОбратная связьКарта сайта

Защита пароля в TextBoxe



Dim pswd As String

'в свойствах текстового поля установите в PasswordChar звёздочку "*".

Private Sub Text1_KeyPress(KeyAscii As Integer)
pswd = pswd + Chr(KeyAscii)
KeyAscii = Asc("*")
End Sub

'Если кто-то хочет сделать так, как в Linux'e, т.е. никаких звёздочек
'нет вообще, то строку KeyAscii = Asc("*") надо заменить на KeyAscii = 0

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Защита пароля в TextBoxe", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2022 Дискета.info