Sistema de login em vb , com imagens

[shenow 7]

O proprio vb ja vem com um sistema de login pra vc colocar

no seu propragam,entao vo ensina como faze isso.

 

Abra o vb ,selecione StandardEXE e de ok.

 

La do lado direito tem uma janelinha assim:

Clique com o botao direito em Project1 e va em add,depois form,

conforme mostra a imagem a seguir:

Vai abrir uma janela com varias opções de forms,escolha "Log in Dialog"

como mostra a imagem a seguir :

Agora um form com um sistema simples de login foi adicionado ao seu projeto(acho q isso n precisa de imagem ;D )

No form anterior(sem ser o de login) ,clique duas vezes no form ,vai abrir

a janela de codigos com o seguinte codigo escrito nela

Private Sub Form_Load()

 

End Sub

Entre essas duas linhas,adicione esse codigo

Form1.Hide

frmLogin.Show

Agora minimize essa janela de codigos e esse form,voltando no form de login,abra a janela de codigos e apague tudo que tem dentro,volte para o form e clique duas vezes no botao "Cancel",a janela de codigos se abrira com o seguinte codigo

Private Sub cmdCancel_Click()

 

End Sub

Explicando o codigo :

Verde : Componente que o evento se refere

Vermelho : Evento sendo utilizado

Azul : Final do evento

 

Agora ,entre as duas linhas,adicione o codigo a seguir

End

Explicando o codigo :

Azul : Significa "Fim",ou seja , o programa sera fechado.

 

Agora sim...a parte + complicada do tuto

Clique Duas vezes no botao "OK" ,o mesmo codigo ali de cima aparecera,+ a parte verde "cmdCancel",sera "cmdOK",pq o componente eh outro.

Entre aquelas duas linhazinhas,adicione esse codigo :

If txtUserName.Text = "webcheats" And txtPassword.Text = "1234" Then

Form1.Show

frmLogin.Hide

Else

MsgBox "Voce errou o password ou username,tente denovo!"

End If

Agora explicando tudin,vou explicar traduzino os codigos para voces verem

If(se) txtUserName.Text(propriedade Text do componente txtUserName) = "webcheats" e txtPassword.Text(propriedade Text do componente txtPassword) = "1234" Entao

Form1.Show ( Mostrar form1 )

frmLogin.Hide ( Esconder frmLogin )

Else ( Caso Contrario )

MsgBox(caixa de mensaem) "Voce errou o password ou username,tente denovo!"

End If(final do Se)

Legenda:

Vermelho : Usuário

Azul : Senha

Mudem esses dois de acordo com oque voces quiserem

Esse tuto ficou um pouco grande,pq quero q quem leia nao faça apenas "ctrl+c" e "ctrl+v" , quero que entendam o codigo

 

Creditos pelo tuto,imagens,etc : Shenow(eu lol)

Caso queiram a source eh so postar aqui pedindo q eu posto sem problemas.

 

Flw ;)