Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- 'Logica hoje é usa IF
- Private Sub BtnEntrar_Click(sender As Object, e As EventArgs) Handles BtnEntrar.Click
- 'Vou criar uma Variavel com um Nome de Usuario
- Dim user = "Felipe"
- 'e uma Variavel com uma senha..
- Dim pass = "137"
- 'IF <condição> then <~então~> execulta codigo tal...
- 'Usando IF vou dizer que... Se o textbox "Usuario" for = user que contem "Felipe" então... execulta codigo depois
- 'do "Then" ou então se não for igual pula para "End if" sem execulta o codigo depois do "Then"
- 'Condição: Usuario.Text = user
- 'Usando ELSE podemos execulta outros codigo se a condição não for verdadeira!!
- If Usuario.Text = user Then
- If Senha.Text = pass Then
- 'Então se caso tudo for OK
- 'Mostra o Form de Menu e Oculta o Form de Login!!
- 'Usando hide
- Me.Hide() 'Oculta...
- 'Usando Show
- 'Mostra Menu
- FormMenu.Show()
- 'Vamos fazer uma pequena tranferencia de Dados...
- 'Podemos acessa outro FORM dentro deste form
- 'Muito simples
- FormMenu.Label1.Text += Usuario.Text
- Else 'Se Senha.Text não for = a "pass" então
- 'Vou usa um MsgBox pra mostra uma menssagem na tela
- MsgBox("Senha Invalida")
- End If
- Else
- MsgBox("Usuario Invalido")
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement