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 SubTambé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 OpcaoAgora 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 SubVeja o vídeo em passo a passo:
Artigos relacionados:
