VB.NET文本框如何禁用键盘输入但允许扫码枪（二维码）输入？

扫码枪本质是模拟键盘发送输入事件，直接用KeyPressEventArgs.Handled = True或KeyEventArgs.SuppressKeyPress = True会同时拦截扫码输入。要实现需求，需通过输入特征区分人工键盘和扫码枪，以下是三种实用方案：

方案1：基于输入间隔判断（最通用） #

扫码枪的字符输入间隔远快于人工（通常<50ms，人工输入间隔>100ms），通过记录上次输入时间，判断间隔来过滤人工输入：

Private lastInputTime As DateTime = DateTime.MinValue
' 可根据你的扫码枪调整阈值，一般30-100ms都适用
Private Const SCAN_INTERVAL_THRESHOLD As Integer = 50

Private Sub TargetTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TargetTextBox.KeyPress
    Dim currentTime = DateTime.Now
    Dim interval = CInt((currentTime - lastInputTime).TotalMilliseconds)

    ' 首次输入或间隔小于阈值，判定为扫码枪输入，允许通过
    e.Handled = Not (lastInputTime = DateTime.MinValue Or interval < SCAN_INTERVAL_THRESHOLD)

    lastInputTime = currentTime

    ' 处理扫码枪常见的回车后缀（可选，按需添加）
    If e.KeyChar = Chr(13) Then
        e.Handled = True
        ' 这里可以添加扫码完成后的业务逻辑，比如解析TargetTextBox.Text
    End If
End Sub

方案2：利用扫码枪自定义前缀/后缀（更精准） #

多数扫码枪支持设置专属前缀（如#）或后缀（如回车），通过识别标识来切换输入权限：

Private isScanning As Boolean = False

' 假设扫码枪前缀设为^，后缀为回车
Private Sub TargetTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TargetTextBox.KeyPress
    Select Case e.KeyChar
        Case "^"c
            ' 触发扫码状态，隐藏前缀字符
            isScanning = True
            e.Handled = True
        Case Chr(13)
            ' 结束扫码状态，隐藏回车字符
            isScanning = False
            e.Handled = True
            ' 扫码完成，执行后续逻辑
        Case Else
            ' 仅在扫码状态下允许输入
            e.Handled = Not isScanning
    End Select
End Sub

注意：需提前在扫码枪的设置软件中配置前缀/后缀，不同品牌扫码枪的设置方式不同。

方案3：Windows API低级键盘钩子（高精度场景） #

通过API钩子直接区分输入设备的类型，适合对精度要求极高的场景，但实现复杂度较高：

Imports System.Runtime.InteropServices

Public Class MainForm
    Private Const WH_KEYBOARD_LL As Integer = 13
    Private Const WM_KEYDOWN As Integer = &H100
    Private hookProc As LowLevelKeyboardProc
    Private hookID As IntPtr = IntPtr.Zero
    Private isScanDeviceInput As Boolean = False

    ' Windows API声明
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function SetWindowsHookEx(idHook As Integer, lpfn As LowLevelKeyboardProc, hMod As IntPtr, dwThreadId As UInteger) As IntPtr
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function UnhookWindowsHookEx(hhk As IntPtr) As Boolean
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function CallNextHookEx(hhk As IntPtr, nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
    End Function

    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function GetModuleHandle(lpModuleName As String) As IntPtr
    End Function

    Private Delegate Function LowLevelKeyboardProc(nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr

    Private Function KeyboardHookCallback(nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
        If nCode >= 0 AndAlso wParam = WM_KEYDOWN Then
            ' 判断当前焦点是否在目标文本框
            If GetForegroundWindow() = Me.TargetTextBox.Handle Then
                ' 结合输入间隔判断是否为扫码枪输入（可扩展为设备ID判断）
                Dim currentTime = DateTime.Now
                Static lastInputTime As DateTime = DateTime.MinValue
                Dim interval = CInt((currentTime - lastInputTime).TotalMilliseconds)
                isScanDeviceInput = interval < 50 Or lastInputTime = DateTime.MinValue
                lastInputTime = currentTime
            End If

            ' 非扫码设备输入则拦截
            If Not isScanDeviceInput Then
                Return New IntPtr(1)
            End If
        End If
        Return CallNextHookEx(hookID, nCode, wParam, lParam)
    End Function

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        hookProc = AddressOf KeyboardHookCallback
        hookID = SetWindowsHookEx(WH_KEYBOARD_LL, hookProc, GetModuleHandle(Nothing), 0)
    End Sub

    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        UnhookWindowsHookEx(hookID)
    End Sub
End Class

方案选择建议 #

• 优先用方案1：无需额外配置，适配绝大多数扫码枪，调试成本低
• 追求精准度选方案2：需配合扫码枪设置，但判断逻辑更可靠
• 高精度场景用方案3：适合需要严格区分输入设备的场景，需具备Windows API基础

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