Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - kaiman -

Visual Basic 5.0/6.0 - Разное

Все примеры / Разное

Запрос Login/pass перед открытием программы

Автор: kaiman | добавлено: 06.03.2010, 12:37 | просмотров: 2804 (1+) | комментариев: 0 | рейтинг: *x6
Пример создания окна с запросом логина и пароля перед открытием программы + подробные разъяснения к коду.

Код

Private Sub Form_Load() 'При загрузки формы
Form1.Caption = "Show"
Form2.Show 'Форма 2 включается
Me.Visible = False 'Видимость формы 1 выключается
End Sub

Dim a As String 'Обявляем переменные для хранения чисел
Dim b As String

Private Sub Command1_Click() 'При нажатии на кнопку 1
If Text1.Text = a And Text2.Text = b Then 'Выполняется функция, если текстовое поле 1 равно переменной a и текстовое поле 2 переменной b то
Unload Me 'Форма 2 выгружается
Form1.Visible = True ' Форма 1 становится видимой
Else 'Если же происхожит любое другое действие например невеный ввод логина и парля то выскакивает сообщение с ошибкой
MsgBox "Неверный логин или пароль!", 16, "Ошибка!" 'Сама ошибка
End If 'Оператор закончился
End Sub

Private Sub Command2_Click() 'При нажатии кнопки 2
Unload Form1 'Обе формы выгружаются
Unload Me
End Sub

Private Sub Form_Load() 'При загрузке формы 2
Command1.Caption = "OK" 'Надпись на command1 OK
Command2.Caption = "Cancel" 'Надпись на Command2 Cancel
a = "qwert" 'Переменный, переменная a = qwert переменная b = qwerty
b = "qwerty"
Text1.Text = "" 'Надпись в текстовых полях неровняется ничему
Text2.Text = ""
Form2.Caption = "Login" 'Заголовок формы 2
End Sub
Файлы login.rar (2,32 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

kaiman

Нет информации об авторе...
kaiman
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики