VB 2008 :: Code รับค่า Barcode + Enter

TextBoxBarCode ชื่อ Text ที่รับค่า จาก Barcode
Barcode มีการกำหนดค่า ให้มีการ Enter

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

 

        If e.KeyData = Keys.Enter Then

            If Len(TextBoxBarCode.Text) = 15 Then 'เช็คครบ 15 ตัวหรือป่าวถ้าครับส่งค่าไปอีก Form

                Form_Asset_Detail.connectionString = myConnectionString

 

                Form_Asset_Detail.TextBox_Code.Text = TextBoxBarCode.Text

                Form_Asset_Detail.Show()

            Else ' ถ้าไม่ครับให้แจ้งเตือนว่า Code ไม่ถูฏ

                MsgBox(" รหัสทรัพย์สินไม่ถูก กรุณาตรวจสอบ")

            End If

 

        End If

 

    End Sub