Jump to content

Recommended Posts

Posted

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...

Posted

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
Posted

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...

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
×
×
  • 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.