绑定数据源DataGridTextBoxColumn有效数字长度限制及编辑拦截问题

之前的实现存在两个核心逻辑错误，直接导致了编辑被误拦截的问题：

• 拦截判断的时机不对：直接用单元格当前已显示的全量文本计算有效长度，没有考虑用户选中文本后替换输入的场景——当用户选中一段已有内容准备替换时，本次按键的实际效果是“先删除选中内容，再插入新字符”，如果不提前扣除被选中内容的长度，就会把本来长度刚好够的替换操作判定为超长度输入
• 取状态的层级不对：用DataGridView网格自身的KeyDown事件做判断，拿不到编辑状态下原生TextBox控件的实时状态（比如当前选中范围、光标位置），根本算不准操作完成后的实际长度
  之前尝试的CellEndEdit、CellValueChanged事件都是编辑结束才触发，自然满足不了实时拦截的要求。

核心思路是：拿到单元格进入编辑状态时弹出的原生TextBox控件，在字符输入阶段先模拟本次操作完成后的最终文本，再基于模拟文本计算有效数字长度做拦截，而不是拿当前现有文本硬判断。

具体实现步骤 #

1. 绑定编辑控件的实时输入事件
   订阅DataGridView的EditingControlShowing事件，这个事件会在单元格弹出编辑TextBox时触发，在这里给TextBox挂上我们的拦截逻辑，避免用网格层级的事件拿不到控件状态：

   Private Sub dgv_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles dgv.EditingControlShowing
       ' 仅针对需要限制长度的金额列做处理
       If dgv.CurrentCell.OwningColumn.Name = "AmountColumn" Then
           Dim editTb As TextBox = TryCast(e.Control, TextBox)
           ' 先移除旧事件绑定，避免重复绑定导致逻辑叠加
           RemoveHandler editTb.KeyPress, AddressOf AmountTextBox_KeyPress
           RemoveHandler editTb.TextChanged, AddressOf AmountTextBox_TextChanged
           ' 绑定实时拦截事件
           AddHandler editTb.KeyPress, AddressOf AmountTextBox_KeyPress
           AddHandler editTb.TextChanged, AddressOf AmountTextBox_TextChanged
       End If
   End Sub
   

2. 实现带选中文本适配的长度拦截逻辑
   定义统一的正则规则，匹配所有需要过滤的格式符号-、$、,、.，以及最大有效数字长度常量：

   ' 匹配所有需要过滤的格式符号
   Private ReadOnly formatRegex As New Regex("[-$,\.]")
   ' 有效数字最大长度10位
   Private Const MaxValidNumberLength As Integer = 10
   

   编写KeyPress事件的拦截逻辑，核心是先模拟本次输入完成后的文本，再算长度：

   Private Sub AmountTextBox_KeyPress(sender As Object, e As KeyPressEventArgs)
       Dim tb As TextBox = DirectCast(sender, TextBox)
       ' 仅拦截数字输入，退格、方向键等控制键不做限制
       If Char.IsDigit(e.KeyChar) Then
           Dim simulatedAfterInput As String
           ' 如果当前有选中文本，模拟时先删掉选中内容，再插入新输入的数字
           If tb.SelectedLength > 0 Then
               simulatedAfterInput = tb.Text.Remove(tb.SelectionStart, tb.SelectionLength).Insert(tb.SelectionStart, e.KeyChar.ToString())
           Else
               ' 没有选中文本时，直接在光标位置插入新输入的数字
               simulatedAfterInput = tb.Text.Insert(tb.SelectionStart, e.KeyChar.ToString())
           End If
           ' 计算模拟文本的有效数字长度：去掉所有格式符号后统计长度
           Dim currentValidLength As Integer = formatRegex.Replace(simulatedAfterInput, "").Length
           ' 长度超过10位则拦截本次输入
           If currentValidLength > MaxValidNumberLength Then
               e.Handled = True
           End If
       End If
   End Sub
   

   举个之前出问题的场景验证逻辑：原有值为$12,345,678.90，有效数字为10位（1234567890），用户选中数字“1”准备替换为“2”，此时模拟输入后的文本是$22,345,678.90，有效数字长度依然是10，完全符合规则，不会触发拦截，用户可以正常修改数值。
3. 兜底处理粘贴操作
   键盘输入拦截不了直接粘贴的场景，需要在TextChanged事件里加兜底逻辑：如果用户粘贴的内容导致有效数字长度超过10位，就撤销本次修改，避免绕过限制：

   Private Sub AmountTextBox_TextChanged(sender As Object, e As EventArgs)
       Dim tb As TextBox = DirectCast(sender, TextBox)
       ' 计算当前内容的有效数字长度
       Dim validLength As Integer = formatRegex.Replace(tb.Text, "").Length
       If validLength > MaxValidNumberLength Then
           ' 超出限制时还原到修改前的状态
           tb.Undo()
       End If
   End Sub
   

原有配置的适配 #

之前设置的列最大输入长度15（包含格式符号）的配置可以完全保留，因为10位有效数字对应的最长带格式文本就是10个数字加$、-、2个分隔逗号、1个小数点，总共15个字符，刚好匹配设置的上限，不会和新的拦截逻辑冲突。

内容的提问来源于stack exchange，提问作者Nithin Paul