Visual Basic - Menus

Visual Basic
Menus
Estrutura Select Case

Menu
Ensinar a fazer Menus e inserir em cada opção o que se vai aprendendo.

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

Dim num1, num2, soma As Integer soma = 0 num1 = InputBox("Introduza o 1º número", "Janela de entrada do 1º número") num2 = InputBox("Introduza o 2º número", "Janela de entrada do 2º número") soma = num1 + num2
Label1.Text = "A soma dos 2 números é igual a " & soma
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Close()
End Sub

MenuVB

1

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

Dim num1, num2, soma As Integer soma = 0 num1 = InputBox("Introduza o 1º número", "Janela de entrada do 1º número") num2 = InputBox("Introduza o 2º número", "Janela de entrada do 2º número") soma = num1 + num2
MsgBox("A soma dos números introduzidos é igual a " & soma)
End Sub

Botão Sair do Menu:
Dim resp As String resp = InputBox("Tem a certeza que deseja sair?",
"Janela de resposta")
If resp = "S" Or resp = "s" Then
Application.Exit()
ElseIf resp = "n" Or resp = "N" Then
Me.Show()
Else : MsgBox("Valor incorrecto! Digite S/s ou N/n")
Me.Show()
End If

Estrutura condicional Select..Case
A estrutura condicional Select..Case é útil para situações em que o processamento do programa depende do valor de determinada variável ou propriedade e esta pode apresentar diversos valores diferentes.
Por exemplo, um programa que pergunta a idade ao utilizador e se esta corresponder a determinados valores o programa emite uma mensagem específica. Caso a idade seja 14 anos, a mensagem seria “Para já só podes andar de bicicleta.” Caso a idade seja 16 anos, a mensagem seria “Já podes tirar a carta de condução de motociclos.”
Caso a idade seja 18 anos, a mensagem seria “Já podes tirar a carta