2

テキストボックスに少し問題があります。価格を設定したいのですが、複数のコンマを入力するとすべてが機能しなくなるという問題があります。コンマの数を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
4

1 に答える 1

5

最も信頼できるのは、Double.TryParseorを使用することDecimal.TryParseです。

Dim d = Double.MinValue
If Double.TryParse(txt.Text, d)
    ' it's a number 
Else
    ' it's not a number 
End If
于 2012-12-12T15:28:27.660 に答える