Enter as a valid entry in a textbox (VB)

Grimgore · October 27th, 2008, 01:24 AM

I am new to VB2008 and I am stuck. I am creating an automated entry form for a barcode printing program. The goal is to scan (via keyboard wedge type scanner) a barcode label format into a textbox and then have the user press enter (or have the enter keystroke embedded in the scanned barcode). Once the enter has been pressed/scanned I would like to have control of the textbox as I would with the on Click. How do I do this?

Thank you

Patrick Cambria · February 9th, 2009, 04:33 PM

Code:

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            MsgBox("Enter was pressed")
            'Now we need to stop the annoying ding
            e.KeyChar = Chr(1)
        End If
    End Sub

If this helps you please use the thanks button.

Patrick Cambria · February 9th, 2009, 04:37 PM

Code:

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Not InStr(TextBox1.Text, Chr(13)) = 0 Then MsgBox("Enter Key was sent to text box")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "hello" & Chr(13)
    End Sub

If this helps you please use the thanks button.