Sobre tela de login

Question

Boa Noite,

 

Estou fazendo um login em meu software,
mas todas as vezes quando executo o programa ele abre a tela de login coloco a senha correta e ele abre a proxima tela, mas continua com a de login aberta.

O que a de errado desde ja muito Obrigado

 

 

Private Sub cmdConfirmar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConfirmar.Click

 

If txtSenha.Text <> "123456" Then

MsgBox(

"Senha Invalida", vbCritical)

txtSenha.Text =

Nothing

txtSenha.Focus()

 

Else

 

Me.Close()

mdiInicial.Show()

mdiInicial.mnuContatos.Enabled =

True

mdiInicial.mnuAjuda.Enabled =

True

mdiInicial.mnuEnviarEmail.Enabled =

True

mdiInicial.mnuSair.Enabled =

True

mdiInicial.mnuSobre.Enabled =

True

mdiInicial.mnuTrocarUsuario.Enabled =

True

 

End If

 

End Sub

Answer 1

aparentemente nao tem nada de errado com o seu codigo..

porem verifique se vc nao esta colocando a sua tela de login com startup form ao invez de chama-la do seu form mdi principal...

.. poste mais detalhes do seu codigo ai..

abs

Answer 2

Muito Obrigado pela atenção.

Esse é o meu Form Login.

Public Class frmLogin

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelar.Click
    Me.Close()
  End Sub

  Private Sub cmdConfirmar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConfirmar.Click

    If txtSenha.Text <> "123456" Then
      MsgBox("Senha Invalida", vbCritical)
      txtSenha.Text = Nothing
      txtSenha.Focus()


    Else
      Me.Close()
      startupform.Show()
      startupform.mnuContatos.Enabled = True
      startupform.mnuAjuda.Enabled = True
      startupform.mnuEnviarEmail.Enabled = True
      startupform.mnuSair.Enabled = True
      startupform.mnuSobre.Enabled = True
      startupform.mnuTrocarUsuario.Enabled = True


    End If

  End Sub

  Private Sub txtPass_KeyPress(ByVal KeyAscii As Integer)
    If KeyAscii = 13 Then
      cmdConfirmar.Select()
    End If
  End Sub


End Class

 Será que falta algo ?
Eu tenho um mdi Chamado mdiinicial e nas propriedades eu marquei a opção para abir o Startup Object: o frmLogin no qual o codigo de cima pertence a ele.

Tem alguma dica?

Obrigado

 

Answer 3

foi o que imaginei o seu form de login eh o seu form principal...

vc tem que fazer assim...

o seu form principal passa a ser o seu form mdi...

ae seta a propriedade visible dele como false...

ae no load dele vc chama o seu form de login... ae se a senha for a correta vc seta a propriedade visible como true e fecha o form de login

o que acontece eh que aqui neste trecho de codigo vc abre o seu form de login novamente

Else
   Me.Close()
   startupform.Show()



se seu form startup eh o login.. vc abriu ele novamente...

Answer 4

aonde é essa propriedade visible que eu coloco como false?

o resto eu ja inverti

 

Answer 5

outra coisa.

o meu login será agora mdilogin? e o meu mdi que era antes será um startupform é isso ?

Answer 6

Cara eu não entendo mto de vb vo por o código em c# aki e tentar arranha o vb qlqr coisa visita o site http://www.carlosag.net/Tools/CodeTranslator/ um tradutor de códigos entre linguagens e posta o código em C#

if(txtSenha.Text != "123456")
     MessageBox.Show("Senha Inválida");

else
{
    mdiinicial frm = new mdiinicial();
    this.Hide();
    frm.ShowDialog();
    this.Close();
}

em vc não sei mto bem ao certo como ficaria então me perdoe os erros básicos de um humilde programador C#

eu fiz sem a lógik do if else isso vc acresenta ai

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

                   Dim frm As Form2 = New Form2()

 

                   Me.Hide()

                   frm.ShowDialog()

 

                   Me.Close()

 

End Sub

não sei se ta totalmente correto mas é para ser isso

nunk usei vb rsrsr

Answer 7

a propriedade visible eh do seu form principal do seu mdi...

nao o seu login continua a mesma coisa...