限制TextBox中的逗号数量

Question

我的文本框有点问题。我希望它能付出代价，但问题是我们可以输入多个逗号，这些都会使一切都行不通。我想将逗号数限制为1

以下是我的尝试：

If ("0123456789,\b".IndexOf(e.KeyChar) = -1) Then
  If e.KeyChar <> Convert.ToChar(Keys.Back) Then
    If (",".IndexOf(e.KeyChar) = -1) And txtPrix.Text.Contains(",") Then
      e.Handled = False
    Else
      e.Handled = True
    End If
  End If

Answer 1

最可靠的方法是使用Double.TryParse或Decimal.TryParse：

Dim d = Double.MinValue
If Double.TryParse(txt.Text, d)
    ' it's a number 
Else
    ' it's not a number 
End If