Jump to content
Sign in to follow this  
joninho

[VB6]Verificar pass

Recommended Posts

joninho

If pass = "******" Then

    Load Menu

Else

    MsgBox "PassWord Errada"

End If

mas quando insiro a pass correcta o programa nao faz nada :S, e devia fazer load do form menu ou tah alguma coisa mal?

CUmps...

Share this post


Link to post
Share on other sites
David Pintassilgo

1º que nada,..em vez do load menu mete por exemplo um MSGBOX("WDSD") assim ficas logo a saber se o problema é no Load Menu se no IF

e por ai a fora,...é assim que vou testando as cenas.


cool stuffs to check.

http://blog.zxcoders.com//

Share this post


Link to post
Share on other sites
joninho

mas a parte do load tá certo? eu tenho o form menu direito dentro do mesmo project

Share this post


Link to post
Share on other sites
joninho

ERRO: Method or data member not found, e quando fasso debug, aquilo aponta para o .load

Share this post


Link to post
Share on other sites
joninho

Compile Error: Expected function or variable :S opá, como é que se faz um load? fogo eu axo k já fiz so load formx e dava :S agora n da nao sei pk :S

Share this post


Link to post
Share on other sites
Tiago Salgado

Não será melhor pores aí o codigo completo ? Pq poderá estar o erro noutro local

Share this post


Link to post
Share on other sites
joninho

Form Pass:

Option Explicit
Dim pass As String
Private Sub Command1_Click()
acabou = False
tent = 3
pass = txtPass
If pass = "Password" Then
    MsgBox "Bem Vindo"
    Load Menu.Show
Else
    MsgBox "PassWord Errada"
End If
End Sub

Private Sub Form_Load()

End Sub

Form Menu

Option Explicit
Private Sub cmdBar_Click()
MsgBox "em construcção"
End Sub

Private Sub cmdEstado_Click()
MsgBox "em construcção"
End Sub

Private Sub cmdParte_Click()
MsgBox "em construcção"
End Sub

Private Sub cmdPessoal_Click()
MsgBox "em construcção"
End Sub

Private Sub cmdRenda_Click()
MsgBox "em construcção"
End Sub

Private Sub cmdSair_Click()
Unload Me
End Sub

Private Sub cmdSaldo_Click()
MsgBox "em construcção"
End Sub

Private Sub Form_Load()

End Sub

Share this post


Link to post
Share on other sites
M@KO

Oi!!

Se o form se chama só menu poes só  menu.show

tipo:

If pass = "Password" Then

    MsgBox ("Bem Vindo")

    Menu.Show

Else

    MsgBox ("PassWord Errada")

End If

ve la se dá

Share this post


Link to post
Share on other sites
vbmaster

tão e se meteres

menu.visible= true  ?

se eu bem precebi é assim que fasso sempre...

Tás a ocupar memória desde o ínicio do programa sem necessidade, penso eu de que...

EDIT: Digo isto obviamente porque ao fazer visible = true, indica que a form já estava a correr em background...

Share this post


Link to post
Share on other sites
Tiago Salgado

M@KO Funka :cheesygrin: XD Brigadao

Não percebi como é que com a forma que eu te disse "NomeFormulario.Show" deu-te erro, e da maneira do M@KO, que é o mesmo, não te deu...alguma coisa fizeste mal ...

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.