Логин и пароль для входа - VB

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

Есть программа, перед тем как зайти нужно чтоб в отдельном окне запрашивался логин и пароль прописанные в коде.. Что-то наклепал:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
If InputBox("Г‹Г®ГЈГЁГ*:") = "qwerty" Then
   Else
      Unload Me
   End If
  If InputBox("ГЏГ*Г°Г®Г«Гј:") = "1234" Then
   Else
      Unload Me
      End If
End Sub

Решение задачи: «Логин и пароль для входа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim CancelEx As Boolean
 
Private Sub Command1_Click()
a$ = Text1.Text
If a$ = "12345678" Then
CancelEx = False
Unload Parol
Else
End
End If
End Sub
 
Private Sub Form_Activate()
Text1.PasswordChar = "*"
Command1.Caption = "Ввод"
CancelEx = True
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If CancelEx = True Then Cancel = True
If CancelEx = False Then Cancel = False
End Sub

Оцени полезность:

8 голосов , оценка 3.875 из 5

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

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

Похожие ответы