Tentaiva de login

[Danielsh]

Pessoal me ajude, preciso verificar se o usuário digitou a senha mais de 3 vezes e sair do sistema, estou fazendo assim e não dá certo.

Podem me ajudar?

Obrigado

Private Sub Command1_Click()
Dim s As Integer
s = 0

    If Not s < 3 Then
       If Text1.Text = ("Daniel") And Text2.Text = ("123") Then
          frm_principal.Show
          Unload Me
       Else
          s = s + 1
          MsgBox " Usuário ou senha inválida, tente novamente "
         Text1.Text = ""
         Text2.Text = ""
         Text1.SetFocus
      End If
  Else
    MsgBox " Senha bloqueada"
    End
  End If

End Sub

Editado Maio 5, 2012 por kuroi
Adicionar tag CODE

[Danleonhart]

Tente deixar a variável que faz a contagem das tentativas "fora" do evento...

pois toda vez que se pressiona o botão (evento clique) note que ela é "zerada" logo de inicio :rolleyes:

Ponha no General Declarations:

Public s As Integer

E no evento Load do Form:

s = 0

Na verdade coloca se quiser, pois como o VB não é uma linguagem fortemente tipada não é preciso alocar nenhum valor de inicio na variável...a não ser que declare-se o Option Explicit também no General Declarations :mellow: .

Faz isso aí e dá um retorno...

se der certo ou não dá um feedback :)

pois assim saberemos se a ajuda foi útil ou não.