5

我正在为我的 Visual Basic 课程编写一个程序，并有一个快速的问题。我们被鼓励做的一件事是检查以确保在文本框中输入的数量实际上是一个数字。我们的教授建议使用 IsNumeric 来执行此检查，但我遇到了一些麻烦。在他将其添加到说明之前，我已经编写了很多代码，因此不确定如何将其集成到我已有的代码中。

该程序的主要目的是允许用户将一个列表框中的成分添加到食谱列表框中，在文本框中输入每种选择的成分的数量，并计算食谱的总卡路里。我现在编写代码的方式是，IsNumeric 是嵌套 if 语句的一部分，我将开始将所选成分添加到配方列表框中。我不确定这是否是正确的地方。

这是我到目前为止编写的代码。

Public Class Form1

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim i As Integer = lstIngredients.SelectedIndex
        Dim Quantity As Double
        Dim intCount As Integer = 0

        If Trim(txtQuantity.Text = "") Then
            Quantity = 1
        Else
            Quantity = Me.txtQuantity.Text
        End If

        If txtQuantity.Text Is IsNumeric() Then
            If intCount < Quantity Then
                lstRecipe.Items.Add(Quantity & " " & lstIngredients.Text)
                intCount += 1
            End If
        Else
            MessageBox.Show("The quantity entered is not numeric. Please add a numeric    quantity.")
        End If


    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        lstRecipe.Items.Clear()
        txtQuantity.Clear()
        txtAnswer.Clear()
    End Sub

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click


    End Sub
End Class

此外，这是我在尝试运行该程序时收到的错误。

Error   1   Argument not specified for parameter 'Expression' of 'Public   Function IsNumeric(Expression As Object) As Boolean'.

任何建议将不胜感激。

4

6 回答 6

15

更正确的方法是使用or类TryParse中可用的方法Int32Double

If Double.TryParse(txtQuantity.Text, Quantity) Then
     If intCount < Quantity Then
         lstRecipe.Items.Add(Quantity & " " & lstIngredients.Text)
          intCount += 1
     End If
 Else
     MessageBox.Show("The quantity entered is not numeric. Please add a numeric    quantity.")
 End If

您还可以删除测试空文本框的代码。

该TryParse方法需要两个参数，第一个是可以转换的字符串，第二个参数是如果可能的话接收转换结果的变量。如果无法执行转换，则函数返回 false。

有很多理由更喜欢Double.TryParse而不是IsNumeric.

第一个原因是TryParse您还可以获得转换结果，而IsNumeric您必须在检查后进行转换。

第二个原因是你可以给IsNumeric任何你想要的对象（例如按钮）并且它接受它。你永远不会在编译时发现这种错误。相反，使用TryParse，您只能传递一个字符串作为其第一个参数。

于 2014-02-19T23:30:46.887 回答
4

您只是错误地使用了该函数-您需要将字符串作为参数传递。

If IsNumeric(txtQuantity.Text) Then
于 2014-02-19T23:30:49.880 回答
1

使用Regex.IsMatch：

Public Function isNumeric(input As String) As Boolean
    Return Regex.IsMatch(input.Trim, "\A-{0,1}[0-9.]*\Z")
End Function
于 2016-02-28T23:30:54.617 回答
1

是的，Double.Tryparse是这个问题的最佳答案，但是为了节省您的编码时间并确保输入的值始终是数字，请使用NumericDropdown 控件而不是纯文本框，以便您确定输入的值始终是数字并节省您检查输入值的时间，因为该控件只接受数字值。

在此处输入图像描述

于 2020-05-29T05:49:32.120 回答
0

IsNumeric(txtQuantity.Text)如果您定义了该方法，请使用。否则使用Int32.TryParse()方法。如果传入的文本是数字，它将返回 true。

于 2014-02-19T23:31:10.843 回答
0 
Private Sub txbDwellTime_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txbDwellTime.KeyPress

    numDecOnly(e)

End Sub


Public Sub numDecOnly(ByVal e As System.Windows.Forms.KeyPressEventArgs)
    If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Or Asc(e.KeyChar) = 46) Then
        'good job do nothing we only allow positive Decimal numbers in this field
        'Asc(e.KeyChar) 48 Through 57 i.e. 0 through 9 Or Asc(e.KeyChar) 46 (dot= .)
    Else
        e.Handled = True
        MsgBox("Only Positive Decimal Numbers Allowed this field")
    End If

End Sub
于 2020-05-27T17:56:08.450 回答