Question

编译时，我在表单上收到此错误消息。表单工作，它按我的意愿运行，但错误不断弹出。

这是我的源代码：

Option Strict On
Option Explicit On

Public Class frmEnterMidPoint

    Dim Obj As New frmCustomRanges

    Private Sub txtMidPointValue_TextChanged(sender As Object, e As EventArgs) Handles txtMidPointValue.TextChanged

        'This event runs when the txtMidPointValue is changed.
        'it enables the clear button if it's not empty.

        If txtMidPointValue.Text = "" Then

            btnClear.Enabled = False

        Else

            btnClear.Enabled = True

        End If


    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click


        'This event runs when the btnOk is pressed. The procedure takes the value
        'entered in the text box and converts to a decimal.  That value
        'is then sent to the frmCustomRanges form Mid label. The procedure
        'also calculates the hourly equivalent.  

        'The procedure ends by closing the current form and opening
        'the frmCustomRanges form.

        If IsNumeric(txtMidPointValue.Text) Then

            'Convert number entered to decimal
            Dim decMidPointValue As Decimal = Convert.ToDecimal(txtMidPointValue.Text)

            'Display results as dollar sign for Annual and Hourly
            Obj.lblAnnualMid.Text = decMidPointValue.ToString("C")
            Obj.lblHourlyMid.Text = Convert.ToDecimal(decMidPointValue / 52 / 40).ToString("C")

            'Close current form
            Me.Close()

            'Open frmCustomRanges
            Obj.ShowDialog()

        Else

            MsgBox("You have entered a non-numeric value. Please check value and enter again", vbCritical, "Input Error")


            With txtMidPointValue
                .Text = ""
                .Focus()

            End With

        End If

    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        'This event runs when the btnClear is clicked.
        'The event clears the textbox and sends the foucs
        'back to the textbox

        With txtMidPointValue
            .Text = ""
            .Focus()

        End With

    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click

        'This even runs when the btnCancel is clicked.
        'The procedure closes the current form and opens the
        'Custom Ranges form.


        'Close current form
        Me.Close()

        'Open the Custom Ranges form
        Obj.ShowDialog()


    End Sub

End Class

Answer 1

您可以使用Decimal.TryParse - IsNumeric（）不一定是检查某些内容是否可以使用的最佳选择。

Private Sub bnOK_Click(sender As Object, e As EventArgs) Handles bnOK.Click
    Dim decMidPointValue As Decimal
    If Decimal.TryParse(txtMidPointValue.Text, decMidPointValue) Then
        ' decMidPointValue contains the parsed value.
        Obj.lblAnnualMid.Text = decMidPointValue.ToString("C")
        Obj.lblHourlyMid.Text = (decMidPointValue / 52 / 40).ToString("C")
        ' more code...
    Else
        ' could not be parsed as a Decimal; decMidPointValue is zero.
        ' inform user.
    End If
End Sub

Answer 2

尝试正确转换。

Dim dec As Decimal
If Decimal.TryParse(txtMidPointValue.Text, dec)
  'dec is now converted
Else
  'dec is not converted - tell the user
End If

编译错误：Microsoft.VisualBasic.dll中出现“System.InvalidCastException”类型的第一次机会异常

2 个答案: