TRATAMENTO DE ERROS

MARCELOO10 19/10/2013 18:38:59
#430171
Quando todos os campos estão vazios e o botão [Ô]calcular[Ô] é acionado eu consegui com que resultasse em erro...

Agora gostaria de saber como faço pra quando apenas um campo estiver preenchido resultar tbm em erro.


Obrigado desde já...
PERCIFILHO 22/10/2013 12:55:59
#430263 Resposta escolhida
Não seria mais ou menos assim:

If TxtAltura.Text=[Ô][Ô] Or TxtPeso.Text=[Ô][Ô] Or TxtIdade.Text=[Ô][Ô] Then ......

Assim, quando qualquer um dos campos estiver em branco, você emitirá a mensagem, correto?

Até mais.
PEGUDO 23/10/2013 09:07:06
#430296
Cara,
Se todos os teus campos são obrigatórios faça um For...Next para ver se estão preenchidos:
Vou supor que os nomes de seus campos são:
txtAltura
xtxPeso
txtIdade
txtTotal (que é onde vai aparecer o resultado
Private Sub Button1_Click...
    Dim estaVazio As Boolean = VerificaTxt()
    
    If Not estaVazio Then
        MsgBox([Ô]Código para calcular caloria[Ô])
    Else
        MsgBox([Ô]Todos os campos são obrigatórios[Ô])
    End If
End Sub

Private Function VerificaTxt() As Boolean
    Dim Vazio As Boolean = False
 
    For Each caixa As TextBox In frmCalorias.Controls.OfType(Of TextBox)
        If Not caixa.Name = [Ô]txtTotal[Ô] Then
            If caixa.Text = [Ô][Ô] Then
                Vazio = True
                Exit For
            End If
        End If
    Next

    Return Vazio
End Function
Claro, este é um exemplo didático que eu criei só para dar uma idéia.
O ideal é você utilizar classes.
Outra coisa - é apenas uma opinião - sua tela está muito poluída, visualmente falando. Tente usar menos cores ou faça a imagem de fundo ficar mais desfocada para dar ênfase aos controles e para que o usuário não fique confuso ao utilizar seu programa.
Tópico encerrado , respostas não são mais permitidas
Voltar