[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Защита пароля в TextBox'e (Защита пароля в TextBox'e)
Защита пароля в TextBox'e
ilimДата: Среда, 09.11.2011, 22:35 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Защита пароля в TextBox'e (Защита пароля в TextBox'e)
Страница 1 из 11
Поиск: