vb.net - 在 Visual Basic 中仅允许数字和小数的正确文本框

Question

我真的需要视觉基础方面的帮助。

我有 3 个文本框，允许使用以下代码进行数字和小数：

If Not Char.IsDigit(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar)
                               AndAlso Not e.KeyChar = "." Then
    e.Handled = True
End If

但是我遇到了几个问题：

1. 我可以把“。” 任何地方
2. 当我尝试添加每个文本框时，结果是一团糟。示例 1.2 + 3 =15

你能修复我的代码，以便它可以进行正确的十进制计算吗？

Answer 1

这可能会有所帮助

   Private Sub txtrate_TextChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtmarks.KeyPress
            If InStr(txtmarks.Text, ".") Then
                e.Handled = Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar))
            Else
                e.Handled = Not ((Char.IsDigit(e.KeyChar) Or e.KeyChar = ".") Or Char.IsControl(e.KeyChar))
            End If
    End Sub