Формат Исключение не обрабатывается

Question

Dim labor, material, partstotal, labortotal, subtotal, tax, total As Decimal 
    material = Decimal.Parse(AmountTextBox.Text) 
    labor = Decimal.Parse(LaborTextBox.Text) 

    partstotal = material 
    labortotal = labor * 50 
    subtotal = labortotal + partstotal 
    tax = subtotal * 0.08 
    total = subtotal + tax 

    partstotal = Decimal.Parse(PartsTextBox.Text) 
    labortotal = Decimal.Parse(LaborTextBox.Text) 
    subtotal = Decimal.Parse(SubTotalTextBox.Text) 
    tax = Decimal.Parse(SalesTaxTextBox.Text) 
    total = Decimal.Parse(TotalTextBox.Text) 

Материал = Десятичный.Парт (AmountTextBox.Text) не запускается. Почему?

Answer 1

Каково строковое значение внутри текстового поля?

TryParse() вернет ошибку вместо метания. Попробуйте это вместо этого.

Answer 2

То, что я думаю, что GregC говорит, что вам нужно использовать такой код:

Dim material As Decimal 
If Not Decimal.TryParse(AmountTextBox.Text, material) Then 
    ' the text in AmountTextBox could not be parsed as 
    ' a Decimal. 
    'TODO: do something about it. 
End If 

Хотя с тем, что многие пункты для проверки, вы можете быть в состоянии обеспечить лучший пользовательский опыт с помощью ErrorProvider Class.