Ошибка при установке флажка

Question

У меня есть довольно простая программа как назначение (я новичок, так что это все еще сложно для меня), для чего требуется ввести десятичное значение и установить флажок а затем показать результат в разных ярлыках. Я постоянно получаю ошибки, когда я устанавливаю флажок без добавленных значений.

Private Sub chkGST_CheckedChanged(sender As Object, e As EventArgs) Handles chkGST.CheckedChanged 
    'get txtDollarAmt*const dGST (0.07D) display lblGSTOutput. txtDollarAmt+dGST, display lblTotalOutput 

    Dim dAmt As String 

    dAmt = Decimal.Parse(txtDollarAmt.Text) 

    If chkGST.Checked = True Then 
     lblGSTOutput.Text = dAmt * dGST 

    End If 



End Sub 

Answer 1

Прежде чем пытаться разобрать текст (преобразовать его в десятичный), проверьте, является ли оно нулевым. Используйте Try Catch block.

вместо этой линии.

dAmt = Decimal.Parse(txtDollarAmt.Text) 

Использование this-

Try 
    dAmt = Decimal.Parse(txtDollarAmt.Text) 

Catch e As FormatException 

End Try 

Answer 2

Dim dAmt As Decimal 

If Decimal.TryParse(txtDollarAmt.Text, dAmt) Then 
    If chkGST.Checked = True Then 
     lblGSTOutput.Text = dAmt * dGST 
    End If 
End If