如果文本框具有字符串，则显示msgbox，但（。）不计数。 视觉基础

Question

我在此文本框中只想输入包括的数字（。）。 例如190.5。

但是，如果它有文本，例如190.5g，它将显示msgbox（“ error”）

我有在某个地方找到的这段代码

 Dim allDigit = pbox.Text.Trim.Length <> 0 AndAlso _
      pbox.Text.All(Function(chr) Char.IsDigit(chr))
        If Not allDigit Then
            MsgBox("Please input number only on price")
            pbox.Clear()
            Exit Sub
        End If

如果我加上。 在其上显示msgbox的数字上，因此无论如何都包含。 ？

Answer 1

请检查Decimal.TryParse ，而不是自己将字符串拉开。

Dim value As Decimal
Dim yourString As String = "1234"
If Not Decimal.TryParse(yourString, value) Then
    MsgBox("Please input number only on price")
    pbox.Clear()
    Exit Sub
End If

应该注意的是，代表小数点分隔符的字符将根据操作系统的语言设置而有所不同-对于美国/英国英语将是句点，对于德语将是逗号。

Answer 2

改用IsNumeric函数

    If Not IsNumeric(pbox.Text) Then
        MsgBox("Please input number only on price")
        pbox.Clear()
        Exit Sub
    End If

Answer 3

这是我在C＃中使用的代码

    private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
    {
        if (!char.IsControl(e.KeyChar) 
            && !char.IsDigit(e.KeyChar) 
            && e.KeyChar != '.')
        {
                            //message box
            e.Handled = true;
        }

        // only allow one decimal point
        if (e.KeyChar == '.' 
            && (sender as TextBox).Text.IndexOf('.') > -1)
        {
                            //message box
            e.Handled = true;
        }
    }