Главная | Регистрация | Вход | RSSСуббота, 22/Сен/2018, 14:15

МБОУ "СШ №36"

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум Школы №36 » Программирование » Visual Basic 6.0 » Пароль
Пароль
ex1kДата: Воскресенье, 09/Дек/2007, 16:21 | Сообщение # 1
¤Администратор + модератоР¤
Группа: Администраторы
Сообщений: 243
Репутация: 19
Статус: Offline
Создадим програмку "пароль".
На форме создадим два лэйбла, один с caption: "Имя пользователя", а второй с caption: "Введите пароль и нажмите Enter"
Также поместим два текстовых поля и кнопку "ОК".
Далее пишем код:

Private Sub Command1_Click()
Const ps As String = "пароль"
Dim SooB As String
If Text2.Text = ps Then
Text1.Locked = False
Text1.SetFocus
SooB = MsgBox("Пароль введен верно!")
Else: SooB = MsgBox("Повторите ввод пароля")
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End If
End Sub

Паролем будет являться "пароль".
Ах да чуть не забыл для первого текстового поля зададим параметр Text: User
Все програмку можно запускатЬ!


________________0ооо___
___ооо0________(___)____
__(___)_________) _/_____
___\_ (_________(_/______
____\_)_________________
 
Форум Школы №36 » Программирование » Visual Basic 6.0 » Пароль
  • Страница 1 из 1
  • 1
Поиск:


Copyright MyCorp © 2018
Бесплатный конструктор сайтов - uCoz