Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

birib

[Resolvido] txtBox vazio, verificação e msg de aviso

Recommended Posts

Eai galera Boa noite. Estou aqui para pedir ajuda em um trabalho. Quero verificar num programa se o txtbox está vazio e se estiver mandar uma msgbox com uma mensagem. O programa calcula o preço de um produto de acordo com a quantidade.O que eu quero é barrar o erro de algum usuário que clicar no botão sem digitar valor nenhum na txtbox de quantidade. Quem estiver disposto a ajudar agradeço :) segue abaixo meu código:

 

    Private Sub btnSelec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelec.Click
        If txtQtd.Text == "" Then
            MsgBox("Digite uma quantidade maior que zero", MsgBoxStyle.Critical, "ERRO")
            txtQtd.Focus()
        End If
        qtd = txtQtd.Text
        total = preco * qtd
        txtTotal.Text = "R$ " + FormatNumber(total, 2)
    End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Apresenta algum erro?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aparecia um erro de que o valor não podia ser convertido para integer algo assim :P

Mas agora eu consegui fazer, quebrar um pouco a cabeça é sempre bom. Eu tava colocando a verificação SE no txtbox não tiver nada então faça algo, mas não coloquei SENAO estiver vazio o que o programa tem que fazer :huh:

A resposta fica assim:

 

 If txtQtd.Text = vbNullString Then
            MsgBox("Digite um algum valor em quantidade", MsgBoxStyle.Information, "Aviso")
            txtQtd.Focus()
        Else
            qtd = txtQtd.Text
            total = preco * qtd
            txtTotal.Text = "R$ " + FormatNumber(total, 2)
        End If
    End Sub

SE o txtQtd estiver vazio apareça a msgbox SENAO faz a conta e exiba

 

Valeu Mario por querer ajudar http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom que resolveu

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.