VBNet - Форум - Помогите ламеру с паролем...

Вопрос: Помогите ламеру с паролем... Добавлено: 21.10.05 14:15

Автор вопроса: Guyver | ICQ: 286-965-705

Народ подскажите ламеру, как доработать прогу с паролем.
Нужно чтобы при вводе пароля Alex2 не выскакивала надпись Invalid Password, try again! Если при этом пароль был введен правильно, а то получается вводишь правильный пароль выскакивает надпись Invalid Password, try again!.

Option Explicit
Public UserName As Boolean
Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    LoginSucceeded = False
    Me.Hide
    UserName = False
End Sub
Private Sub cmdOK_Click()
    If txtPassword = "12345" And txtUserName = "Alex" Then
        LoginSucceeded = True
        Me.Hide
        Form2.Show
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If

    If txtPassword = "67890" And txtUserName = "Alex2" Then
        LoginSucceeded = True
        Me.Hide
        Form3.Show
    Else
        'MsgBox "Invalid Password, try again!", , "Login"

    End If

End Sub
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182	Профиль \| Цитата \| #1	Добавлено: 21.10.05 14:29
	Select Case - тебе должен помочь. Ответить

Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| Цитата \| #2	Добавлено: 21.10.05 22:51
	Private Sub cmdOK_Click() Select Case txtUserName & ":" & txtPassword Case "Alex:12345" LoginSucceeded = True Form2.Show Case "user:password" LoginSucceeded = True Form3.Show End select if LoginSucceeded = False then MsgBox "Invalid Password, try again!", , "Login" end if End Sub ? Ответить

Номер ответа: 3 Автор ответа: Guyver ICQ: 286-965-705 Вопросов: 1 Ответов: 1	Профиль \| Цитата \| #3	Добавлено: 26.10.05 00:10
	Большое спасибо Хакер. Мне очень помогло select case/ благодарю. Ответить

Страница: 1 |