Вход в прогу - VB

Формулировка задачи:

Не давно видел в примерах про логин и пароль. Где то накасячил
'Form1
Form1.Visible = False
Form2.Visible = True
'Form2
Dim a As String
Dim b As String
 
Private Sub Form_Active()
Text2.PasswordChar = "*"
Command1.Caption = "Ââîä"
End Sub
 
Private Sub Command1_Click()
a = Text2.Text
b = Text1.Text
If a = "88" And b = "vadim" Then
 
Form1.Visible = True
Form2.Visible = False
 
End If
End Sub
 
'Private Sub Form2_UnLoad(Cancel As Integer)
UnLoad Form1
'End Sub
Нужно, чтобы пока не ввели правильно код не открывалась основая прога. А если я закрыл форму 2 , то и основное окно закрывалось, да и наоборот тоже, т.е при закрытии любой формы прога закрывлась полностью.

Код к задаче: «Вход в прогу - VB»

textual
Private Sub Form_Active() '???

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ