Question

我在VB中遇到try和catch问题。我有2个按钮（btnCalculate，btnPay）和3个标签（lblTotal，lblCash，lblChange）

btnCalculate =总价格
btnPay =客户支付的金额

lblTotal =显示总价格
lblCash =显示客户支付的现金
lblChange =显示更改

编辑：从字符串转换为类型Double无效错误

Private Sub btnPay_Click(sender As Object, e As EventArgs) Handles btnPay.Click
    Dim payAmount As Double
    Dim total As Double
    total = CDbl(lblTotal.Text)

    Do While (payAmount < total)
        payAmount = Val(InputBox("Enter customer pay amount: "))
        If (payAmount < total) Then
            MessageBox.Show("Please pay the amount of total bill!")
        Else
            lblCash.Text = "$" & CStr(payAmount)
            lblChange.Text = "$" & CStr(payAmount - total)
        End If
    Loop
End Sub

Answer 1

问题是你丢掉真正的错误原因。看看你的程序做了什么：

输入的号码无效：请输入有效号码。
系统内存不足：请输入有效号码。
您犯了一个编程错误：请输入有效数字！会显示。
出现其他问题：请输入有效号码。

那不好，是吗？事实上，你只想表明＆＃34;请输入一个有效的数字＆＃34;如果输入了无效的号码，那么不要进行口袋妖怪异常处理：将异常处理放在您希望发生错误的语句和只捕获您需要的特定例外。

如果您执行全局异常处理，请在显示的错误消息中包含ex.Message，以确保可以确定真正的错误原因。< / p>

转换字符串到Double在VB中无效

1 个答案: