1

私はテキストボックスを持っていて、ユーザーが数字しか追加できないことを検証するために以下を使用していますが、ユーザーに「。」を1つだけ書き込むようにするにはどうすればよいですか。

Private Sub txtDiagnostic_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtConsultor.KeyPress
        If e.KeyChar <> ChrW(Keys.Back) Then
            If Char.IsNumber(e.KeyChar) Then
            Else
                e.Handled = True
            End If
        End If
    End Sub

contains（）などを使用する予定でしたが、テキストボックスに ドットが1つしかないことをどのように認識できますか？または、ユーザーが1つのドットと1つだけを書き込むことができるようにするにはどうすればよいですか？

4

2 に答える 2

2

最初の行の前にこの行を追加しますIF

If (e.KeyChar.ToString = ".") And (txtDiagnostic.Text.Contains(e.KeyChar.ToString)) Then
     e.Handled = True
     Exit Sub
End If
于 2012-10-17T16:20:18.340 に答える