Защита пароля в 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", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

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