Série Cadastro – Episódio #08

Programando Form Cliente Parte 1 em VB.net

Neste episódio vamos dar início a programação do formulário de cadastro de cliente criando as funcionalidades de movimentação dos botões da barra de ferramentas.

Para controlar a ativação e desativação dos controles do formulário vamos criar uma rotina com parâmetro Boolean para mudarmos os enables dos controles.

Segue a rotina:

 Private Sub AtivaDesativa(ByVal Enable As Boolean)
        txtNome.Enabled = Enable
        txtEndereco.Enabled = Enable
        txtNumero.Enabled = Enable
        txtTelefone.Enabled = Enable
End Sub

Também vamos criar um enumerador para definirmos qual é o tipo de operação que está sendo executada como por exemplo inclusão, alteração ou edição.

    Enum Opcao As Integer
        Cancelar = 0
        Incluir = 1
        Editar = 2
        Consultar = 3
    End Enum

    Private intOpcao As Opcao

Agora vamos definir os códigos dos botões incluir, editar, consultar e cancelar:

    Private Sub tsbIncluir_Click(sender As Object, e As EventArgs) Handles tsbIncluir.Click
        intOpcao = Opcao.Incluir

        AtivaDesativa(True)

        tsbIncluir.Enabled = False
        tsbEditar.Enabled = False
        tsbConsultar.Enabled = False
        tsbGravar.Enabled = True
        tsbCancelar.Enabled = True
        txtNome.Focus()
    End Sub

    Private Sub tsbEditar_Click(sender As Object, e As EventArgs) Handles tsbEditar.Click
        intOpcao = Opcao.Editar

        txtID.Enabled = True
        txtID.Focus()

        tsbIncluir.Enabled = False
        tsbEditar.Enabled = False
        tsbConsultar.Enabled = False
        tsbCancelar.Enabled = True

    End Sub

    Private Sub tsbConsultar_Click(sender As Object, e As EventArgs) Handles tsbConsultar.Click
        intOpcao = Opcao.Consultar

        txtID.Enabled = True
        txtID.Focus()

        tsbIncluir.Enabled = False
        tsbEditar.Enabled = False
        tsbConsultar.Enabled = False
        tsbCancelar.Enabled = True
    End Sub

    Private Sub tsbCancelar_Click(sender As Object, e As EventArgs) Handles tsbCancelar.Click
        intOpcao = Opcao.Cancelar
        AtivaDesativa(False)
        txtID.Enabled = False
        txtID.Clear()
        txtNome.Clear()
        txtEndereco.Clear()
        txtNumero.Clear()
        txtTelefone.Clear()
        tsbIncluir.Enabled = True
        tsbEditar.Enabled = True
        tsbConsultar.Enabled = True
        tsbDeletar.Enabled = False
        tsbGravar.Enabled = False
        tsbCancelar.Enabled = False
    End Sub

Veja o vídeo em passo a passo: