基于TextBox整体值的条件化KeyPress输入控制实现问询

问题分析 #

你需要在DataGridView的TextBox单元格输入阶段直接控制字符输入，而非事后修正，核心需求是基于文本整体值的三个规则：

• 星号(*)仅允许作为第一个字符
• 句号(.)不能作为首字符输入
• 首字符为星号时，仅允许退格删除，禁止其他输入

KeyPress事件无法获取光标位置、选中状态，也难以处理全选替换这类场景，因此需要改用**KeyDown事件**来实现前置验证。

解决方案代码 #

1. 绑定编辑控件的KeyDown事件 #

在EditingControlShowing事件中，给目标列的TextBox绑定KeyDown处理器（注意移除旧处理器避免重复绑定）：

Private Sub dgv_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles dgv.EditingControlShowing
    If dgv.CurrentCell.ColumnIndex = myColumn.Index AndAlso e.Control IsNot Nothing Then
        Dim tb As TextBox = CType(e.Control, TextBox)
        With tb
            .CharacterCasing = CharacterCasing.Upper
            .MaxLength = 10
            ' 移除旧绑定，防止多次触发
            RemoveHandler .KeyDown, AddressOf controlKeyDown
            AddHandler .KeyDown, AddressOf controlKeyDown
        End With
    End If
End Sub

2. KeyDown事件处理逻辑 #

该事件可获取光标位置、选中状态，提前计算输入后的文本并验证规则：

Private Sub controlKeyDown(sender As Object, e As KeyEventArgs)
    Dim tb As TextBox = CType(sender, TextBox)

    ' 允许功能键和控制键（方向键、退格、删除、Ctrl组合键等）
    If e.Control Or e.Alt Or 
       e.KeyCode = Keys.Back Or e.KeyCode = Keys.Delete Or 
       e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or 
       e.KeyCode = Keys.Home Or e.KeyCode = Keys.End Then
        ' 退格/删除键无需拦截（规则3仅禁止输入，允许删除星号）
        Return
    End If

    ' 处理Ctrl+V粘贴操作
    If e.Control AndAlso e.KeyCode = Keys.V Then
        ValidatePaste(tb, e)
        Return
    End If

    ' 处理单个字符输入
    Dim inputChar As Char = ChrW(e.KeyValue)
    Dim newText As String = CalculateNewText(tb, inputChar.ToString())

    ' 验证输入后的文本是否符合规则
    Dim isValid As Boolean = ValidateInputRules(newText, tb.SelectionStart)

    ' 不符合规则则阻止输入
    If Not isValid Then
        e.SuppressKeyPress = True
    End If
End Sub

' 辅助方法：计算输入/替换后的文本
Private Function CalculateNewText(tb As TextBox, input As String) As String
    Dim selectionStart = tb.SelectionStart
    Dim selectionLength = tb.SelectionLength

    If selectionLength > 0 Then
        Return tb.Text.Remove(selectionStart, selectionLength).Insert(selectionStart, input)
    Else
        Return tb.Text.Insert(selectionStart, input)
    End If
End Function

' 辅助方法：验证输入规则
Private Function ValidateInputRules(newText As String, insertPosition As Integer) As Boolean
    ' 规则3：首字符为*且长度>1，直接禁止
    If newText.StartsWith("*") AndAlso newText.Length > 1 Then
        Return False
    End If

    ' 规则1：星号只能出现在首位置
    If newText.IndexOf("*", 1) >= 1 Then
        Return False
    End If

    ' 规则2：句号不能出现在首位置
    If newText.StartsWith(".") Then
        Return False
    End If

    ' 验证所有字符是否为允许的类型（字母、*、.）
    For Each c As Char In newText
        If Not (Char.IsLetter(c) Or c = "*"c Or c = "."c) Then
            Return False
        End If
    Next

    Return True
End Function

' 辅助方法：验证粘贴内容
Private Sub ValidatePaste(tb As TextBox, e As KeyEventArgs)
    Dim clipboardText = Clipboard.GetText()
    Dim newText = CalculateNewText(tb, clipboardText)

    ' 复用输入规则验证
    Dim isValid = ValidateInputRules(newText, tb.SelectionStart)

    If Not isValid Then
        e.SuppressKeyPress = True
        e.Handled = True
    End If
End Sub

代码说明 #

• KeyDown事件优势：可以获取光标位置、选中状态，提前计算输入后的文本，实现真正的前置控制；
• 规则覆盖：
  1. 星号仅能作为首字符，且后续不能输入任何内容（除删除）；
  2. 句号禁止出现在首位置；
  3. 自动过滤所有非允许的字符（字母、*、.）；
• 全选替换/粘贴处理：通过CalculateNewText方法模拟输入后的文本，确保全选替换、粘贴操作也符合规则；
• 避免重复绑定：每次绑定新的KeyDown处理器前，先移除旧的，防止同一操作多次触发验证。

内容的提问来源于stack exchange，提问作者Alan O'Brien