Считывание штрих-кода с помощью USB-сканера штрих-кода вместе с игнорированием ввода данных с клавиатуры, когда идентификатор продукта сканера и идентификатор поставщика неизвестны

Есть способ различать клавиатуру и USB-считыватель штрих-кода.

Исходя из следующих предположений:

1. код, отсканированный считывателем штрих-кода, будет состоять не менее чем из 4 символов
2. код, отсканированный считывателем штрих-кода, заканчивается нажатием клавиши ENTER
3. передача всего штрих-кода занимает менее 50 мс

Эта простая форма с использованием VS2005 VB содержит:

1. TextBox1
2. TextBox2
3. TextBox3
4. Button1
5. Timer1 - временной интервал, равный 50 мс.

Public Class Form1

Dim BarcodeStr As String = ""
Dim IsBarcodeTaken As Boolean = False
Dim Str As String = ""
Dim str3 As String = ""


Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

    If Timer1.Enabled = False Then
        Str = TextBox1.Text
        str3 = TextBox3.Text
    End If

End Sub

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
    If Timer1.Enabled = False Then
        Timer1.Enabled = True
    End If


    BarcodeStr = BarcodeStr & e.KeyChar
    If Asc(e.KeyChar) = 13 And Len(BarcodeStr) >= 4 Then
        IsBarcodeTaken = True
        TextBox2.Text = BarcodeStr


    End If

End Sub
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    If IsBarcodeTaken = True Then
        TextBox1.Text = Str
        TextBox1.Select(Len(TextBox1.Text), 0)
        Str = ""

        TextBox3.Text = str3
        TextBox3.Select(Len(TextBox3.Text), 0)
        str3 = ""
    End If

End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    BarcodeStr = ""
    IsBarcodeTaken = False
    Timer1.Enabled = False
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox2.Text = ""

End Sub

End Class

Что ж, я использую решение, очень похожее на решение от Ehab - я просто немного очистил код для своего приложения. Я использую собственный класс для элементов управления редактированием (он выполняет и другие функции), но это важные части:

public class ScannerTextBox : TextBox
{
    public bool BarcodeOnly { get; set; }

    Timer timer;

    private void InitializeComponent()
    {
        this.SuspendLayout();

        this.ResumeLayout(false);
    }

    void timer_Tick(object sender, EventArgs e)
    {
        if (BarcodeOnly == true)
        {
            Text = "";
        }

        timer.Enabled = false;
    }

    protected override void OnKeyPress(KeyPressEventArgs e)
    {
        base.OnKeyPress(e);

        if (BarcodeOnly == true)
        {
            if (timer == null)
            {
                timer = new Timer();
                timer.Interval = 200;
                timer.Tick += new EventHandler(timer_Tick);
                timer.Enabled = false;
            }
            timer.Enabled = true;
        }

        if (e.KeyChar == '\r')
        {
            if (BarcodeOnly == true && timer != null)
            {
                timer.Enabled = false;
            }
        }
    }
}

Возможно, это упрощенное решение, но не могли бы вы зафиксировать событие нажатия клавиши и просто предотвратить ввод с клавиатуры?

Есть еще один вопрос о штрих-кодах здесь ссылка приведет вас к ответу, который использует штрих-код через последовательный порт. Может, это решение для вас?

ИМХО: Самым простым решением будет принятие ввода с клавиатуры.