如何在输入框中禁止非数字字符及负数输入？已实现非数字拦截

嘿，看起来你已经搞定了输入框禁止非数字字符的功能，要再加个禁止负数的限制其实很简单，咱们可以从输入拦截和提交校验两个层面来做，双保险更可靠：

1. 从输入源头拦截负号 #

如果你是用KeyPress事件来阻止非数字输入的，那直接在同一个事件里加个判断，把负号也拦下来就行。比如假设你的输入框是txtH1、txtV1这类，给每个输入框绑定下面的事件：

Private Sub NumericInput_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtH1.KeyPress, txtH2.KeyPress, txtV1.KeyPress, txtV2.KeyPress
    ' 允许数字和退格键（Backspace）
    If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> ControlChars.Back Then
        e.Handled = True
    End If
    ' 额外拦截负号输入
    If e.KeyChar = "-"c Then
        e.Handled = True
    End If
End Sub

这样用户连负号都打不出来，从根源上避免了负数输入的可能。

2. 提交时二次校验（防止粘贴等绕过输入拦截的情况） #

有时候用户可能会通过粘贴的方式把负数弄到输入框里，所以在点击btnAdd的时候，咱们再做一次全面校验会更稳妥。修改你的btnAdd_Click事件，在解析整数前先检查输入是否为非负整数：

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
    Dim h1, h2, h3, h4, h5, h6, h7, homeTotal As Integer
    Dim v1, v2, v3, v4, v5, v6, v7, visitorsTotal As Integer
    Dim prompt, title, prompt1, title1 As String
    Dim dataHome As String

    ' 逐个校验输入框，以txtH1为例
    If Not ValidateNonNegativeInput(txtH1, h1) Then Return
    If Not ValidateNonNegativeInput(txtH2, h2) Then Return
    ' 继续对txtH3到txtH7、txtV1到txtV7做同样的校验

    ' 下面是你原来的业务逻辑，比如计算总分等
    ' homeTotal = h1 + h2 + ... + h7
    ' visitorsTotal = v1 + v2 + ... + v7
    ' ...
End Sub

' 写个通用校验函数，避免重复代码
Private Function ValidateNonNegativeInput(inputBox As TextBox, ByRef outNum As Integer) As Boolean
    ' 尝试解析输入为整数，同时判断是否非负
    If Integer.TryParse(inputBox.Text, outNum) AndAlso outNum >= 0 Then
        Return True
    Else
        MessageBox.Show($"请在{inputBox.Name}中输入有效的非负整数！", "输入错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        inputBox.Focus() ' 聚焦到错误输入框，方便用户修改
        Return False
    End If
End Function

这个通用函数ValidateNonNegativeInput可以复用在所有需要校验的输入框上，代码更简洁，维护起来也方便。如果某个输入框的内容无效，会直接弹窗提示，并且让用户回到那个输入框修改，体验也不错。

内容的提问来源于stack exchange，提问作者Siyabonga Kubeka