EVENTO AFTERUPDATE VB.NET

ALTAIR148 30/03/2011 11:45:54
#369713
Estou começando a programar em VB.NET e estou implementando um controle de cadastro em meu sistema e tenho a seguinte dúvida.
Quando for fazer o cadastro por exemplo será digitado o CPF do cliente e eu gostaria que após digitar fosse verificado se o cadastro já existe. Em vba eu usava o evento AfterUpdate, e em vb.net como que fica?
ADHEL 30/03/2011 11:48:09
#369714
lostfocus
ALTAIR148 30/03/2011 11:50:52
#369715
Dessa forma ai sempre que digito ele faz o evento, na verdade eu quero que o evento ocorre se o textbox for atualizado e não quando ele perder foco.
Obrigado
JONATHANSTECKER 30/03/2011 11:56:57
#369717
Use o evento TextChanged.
Neste caso estou usando uma mascara para receber o CPF.

    Private Sub maskCPF_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles maskCPF.TextChanged
        If Me.maskCPF.MaskCompleted Then
            MessageBox.Show([Ô]O CPF informado é: [Ô] & Me.maskCPF.Text)
        End If
    End Sub
ADHEL 30/03/2011 11:58:16
#369718

Um exemplo

ele verifica no evento lostfocus se o cpj já está cadastrado
se já existe esse cpf no banco de dados ele retorna os dados no respectivoa campos


Private Sub txtCpf_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCpf.LostFocus
ConexaoBd()

sql = [Ô]SELECT * FROM Clientes WHERE CPF = [ô][Ô] & txtCpf.Text & [Ô][ô][Ô]
Comando = New MySqlCommand(sql, Conexao)
Dim leitor As MySqlDataReader = Comando.ExecuteReader

If leitor.Read = True Then
MsgBox([Ô]ESTE CLIENTE JÁ ESTÁ CADASTRADO[Ô], MsgBoxStyle.Information, [Ô]ATENCAO[Ô])
txtBairro.Text = leitor.Item([Ô]Bairro[Ô]).ToString
txtCidade.Text = leitor.Item([Ô]Cidade[Ô]).ToString
txtContato.Text = leitor.Item([Ô]Contato[Ô]).ToString
txtCpf.Text = leitor.Item([Ô]Cpf[Ô]).ToString
txtEmail.Text = leitor.Item([Ô]Email[Ô]).ToString
txtEndereco.Text = leitor.Item([Ô]Endereco[Ô]).ToString
txtId.Text = leitor.Item([Ô]Id[Ô]).ToString
txtRazaoSocial.Text = leitor.Item([Ô]Razao_Social[Ô]).ToString
txtNomeFantasia.Text = leitor.Item([Ô]Nome_Fantasia[Ô]).ToString
txtObservacao.Text = leitor.Item([Ô]Observacao[Ô]).ToString
txtRg.Text = leitor.Item([Ô]RG[Ô]).ToString
mskCelular.Text = leitor.Item([Ô]Celular[Ô]).ToString
mskCep.Text = leitor.Item([Ô]CEP[Ô]).ToString
mskTelefone1.Text = leitor.Item([Ô]telefone1[Ô]).ToString
mskTelefone2.Text = leitor.Item([Ô]Telefone2[Ô]).ToString
btnGravar.Enabled = False
End If
leitor.Close()
Conexao.Close()
Conexao.Dispose()
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar