當我檢查一個複選框時出現錯誤

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塊。

而不是這條線。

dAmt = Decimal.Parse(txtDollarAmt.Text) 

使用這個 -

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